RE: Animation

*To*: mathgroup at smc.vnet.net*Subject*: [mg47105] RE: [mg47084] Animation*From*: "David Park" <djmp at earthlink.net>*Date*: Fri, 26 Mar 2004 03:55:47 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

Bruce, Add the following commands right after the Do loop and in the same cell. SelectionMove[EvaluationNotebook[], All, GeneratedCell] FrontEndTokenExecute["OpenCloseGroup"]; Pause[0.5]; FrontEndExecute[{FrontEnd`SelectionAnimate[200, AnimationDisplayTime -> 0.1, AnimationDirection -> Forward]}] If you have the DrawGraphics palette, you can paste them in from the "A" button on the palette. Also remember that often a good way to view an animation is to use the arrow keys, the "p" and "c" keys and the number keys on the number pad. David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: Bruce W. Colletti [mailto:bcolletti at compuserve.com] To: mathgroup at smc.vnet.net Re Mathematica 5.0.1.0 under WinXP Home. I wish to animate a graphic whose profiles are created via a Do loop. That's easy enough: select the output cells and then Cell/Animate. However, I'd rather group output cells, collapse them (by doubleclicking the group's bar) and then doubleclick the sole visible output. Question: What is the command that will group the cells and then collapse them? Thanks. Bruce