MathGroup Archive 2009

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

Search the Archive

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



  • Prev by Date: Re: Infinite series
  • Next by Date: Re: Return in function
  • Previous by thread: Re: Animation with Sound in Mathematica?
  • Next by thread: Having problems finding skeleton of a binary image using Lantuejoul's