MathGroup Archive 2002

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

Search the Archive

RE: Real Time Animation


Put this after the Plot statement, in the same cell:

SelectionMove[EvaluationNotebook[], All, GeneratedCell]
FrontEndTokenExecute["OpenCloseGroup"]
FrontEndTokenExecute["SelectionAnimate"]

Bobby Treat

-----Original Message-----
From: Goyder Dr HGD [mailto:H.Goyder at rmcs.cranfield.ac.uk] 
To: mathgroup at smc.vnet.net
Subject: [mg36820] [mg36796] Real Time Animation

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





  • Prev by Date: Re: Real Time Animation
  • Next by Date: RE: Why can't Mathematica do this simple integral ?
  • Previous by thread: Re: Real Time Animation
  • Next by thread: RE: Re: Real Time Animation