Real Time Animation
- To: mathgroup at smc.vnet.net
- Subject: [mg36796] Real Time Animation
- From: Goyder Dr HGD <H.Goyder at rmcs.cranfield.ac.uk>
- Date: Thu, 26 Sep 2002 04:56:49 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a presentation I wish to use Plot to generate a sequence of frames and
then animate them. The problem is that the audience sees the animation
twice. Once when the frames are being generated and then again after I have
closed the group and double clicked on the top graphic. However, the first
showing during generation is enough (but uncontrolled).
Is it possible to tidy up the generation of the graphic so that it becomes
the animation?
I have tried the following
Do[Plot[Sin[t]*Sin[x], {x, 0, Pi}, PlotRange -> {{0, Pi}, {-1, 1}},
ImageSize -> 400];
SelectionMove[EvaluationNotebook[], All, GeneratedCell];
FrontEndExecute[{FrontEnd`SelectionAnimate[0.1]}];
FrontEndExecute[{FrontEndToken["Clear"]}], {t, 0, 15, 0.1}]
This works but the cell dividing line flashes on and off spoiling the
animation and if there is anything in the cell below this jumps up and down.
Is there a proper way of doing this?
Hugh Goyder