RE: Real Time Animation

*To*: mathgroup at smc.vnet.net*Subject*: [mg36820] RE: [mg36796] Real Time Animation*From*: "DrBob" <drbob at bigfoot.com>*Date*: Fri, 27 Sep 2002 04:15:21 -0400 (EDT)*Reply-to*: <drbob at bigfoot.com>*Sender*: owner-wri-mathgroup at wolfram.com

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