MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Animation with Sound in Mathematica?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg105644] Re: Animation with Sound in Mathematica?
  • From: Helen Read <hpr at together.net>
  • Date: Sun, 13 Dec 2009 05:38:46 -0500 (EST)
  • References: <hg00cj$j8l$1@smc.vnet.net>
  • Reply-to: HPR <read at math.uvm.edu>

On 12/12/2009 6:56 AM, BenT wrote:
> Can anyone give an example of a true multimedia-like "music video"
> created exclusively in Mathematica 7?
>
> I have not worked with animation very often, and although I understand
> how to use the related functions, I haven't found a way to "sync" them
> to a/an audio (Play or SoundNote generated) track(s). An example of
> how to do so would be very welcomed!

I'd like to know how to do that too. In previous versions of 
Mathematica, you could combine graphics and sounds with Show, but in 
Mathematica 7, Show seems only to like graphics objects.

You can simply play the sounds at the same time the animation runs, 
however, like this.

ding = SoundNote["F", 1, "Tinklebell"];
soundeffects :=
   EmitSound[
    Sound[{Table[
       SoundNote[m, 1, "Goblins"], {m,
        RealDigits[N[\[Pi], 10], 10][[1]]}],
      SoundNote[RealDigits[N[\[Pi], 15], 15][[1]], 10, "Sweep"],
      ding}]];
animation =
   Animate[Plot[{a Sin[b x], -a Sin[1/b x]}, {x, 0, 2 \[Pi]},
     PlotRange -> {-5, 5}, PlotStyle -> Thick,
     ColorFunction -> Function[{x, y}, ColorData["Rainbow"][y]],
     Axes -> False, PerformanceGoal -> "Quality"], {a, -5, 5}, {b, .1,
     10}, AnimationDirection -> ForwardBackward,
    AnimationRepetitions -> 2];
Evaluate[soundeffects];
animation




-- 
Helen Read
University of Vermont


  • Prev by Date: Re: Curve-fitting,
  • Next by Date: Re: Re: vector format rendering with gradient capabilities
  • Previous by thread: Animation with Sound in Mathematica?
  • Next by thread: Re: Animation with Sound in Mathematica?