Re: Re: Animation with Sound in Mathematica?
- To: mathgroup at smc.vnet.net
- Subject: [mg105704] Re: [mg105687] Re: Animation with Sound in Mathematica?
- From: Michael Greene <mgreene at csumb.edu>
- Date: Wed, 16 Dec 2009 06:17:29 -0500 (EST)
- References: <hg00cj$j8l$1@smc.vnet.net> <hg2d8t$j94$1@smc.vnet.net>
You might want to look at the source for http://demonstrations.wolfram.com/EquationOfALineGame/ <http://demonstrations.wolfram.com/EquationOfALineGame/>Sergio Mejia demonstrates a very clever trick of using a cellular automation as a note source. It's not synchronized precisely with the other code which is what I thought you were asking for but it may give you some additional ideas. Michael On Tue, Dec 15, 2009 at 4:28 AM, BenT <brtubb at pdmusic.org> wrote: > > Thank you very much! That is an excellent educational "code" example > of how to integrate sound and video, although neither the music nor > video of your example are what I have in mind <G>. > > --- Benjamin Tubb > > > > 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 > > > -- Michael Greene - Programmer Analyst Information Systems, mgreene at csumb.edu California State University, Monterey Bay Corporation Bldg - RM 201 - 100 Campus Center, Seaside, CA 93955-8001 831.582.3567 Fax 831.582.4796