MathGroup Archive 2005

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

Search the Archive

Re: making an animated picture from many pictures


Guy,

Here is an example.

Needs["Graphics`Animation`"]

frame[phase_] :=
  Plot[Sin[t + phase], {t, 0, 2Pi},
    Frame -> True]

Animate[frame[phase], {phase, 0, 2Pi - 2Pi/40, 2Pi/40}]
SelectionMove[EvaluationNotebook[], All, GeneratedCell]
FrontEndTokenExecute["OpenCloseGroup"]; Pause[0.5];
FrontEndExecute[{FrontEnd`SelectionAnimate[200, AnimationDisplayTime -> 0.1,
      AnimationDirection -> Forward]}]

You could have used Table instead of Animate, but it is worthwhile getting
to know the Animation package.

Although it wasn't necessary in this example, generally when making
animations you will need to include a PlotRange option to make certain that
all frames use the same plot range.

The statements after the Animate statement select all the generated graphics
cells, close them up, and start the animation. You do see the cells as they
are first being generated but I don't find that objectional. In fact I like
to see them because if the cells are complex and take some time, I want to
know that the graphics are working as I intended and I can abort the
animation if they aren't.

If you use DrawGraphics package from my web site, the statements are on the
DrawGraphics palette and can simply be clicked in.

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/

From: Guy Israeli [mailto:guyi1 at netvision.net.il]
To: mathgroup at smc.vnet.net


Hi,

How do I create one image that is animated from many other images without
displays all of them and double clicking on one of them?

Thanks,

Guy






  • Prev by Date: Re: 2 stage solution with FindRoot
  • Next by Date: Re: a dangerous feature of Module[]?
  • Previous by thread: making an animated picture from many pictures
  • Next by thread: Two related question. Question 1