MathGroup Archive 2004

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

Search the Archive

RE: Animation


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



  • Prev by Date: Re: How to Plot this equation ?
  • Next by Date: Re: How to print large graphics cells?
  • Previous by thread: Re: Animation
  • Next by thread: help with integration and warning message