Making an animation

When making frames for an animation it's convenient to have all the frames of the animation grouped together with all but the first frame closed.  The code in the next cell does this automatically.  This solution was sent to the MathGroup by  (adam.smith@hillsdale.edu).

Do[Plot[Sin[2 π   (t + n/25)], {t, 0, 1}], {n, 1, 25}] ; SelectionMove[Evaluati ... l] ; FrontEndTokenExecute["CellGroup"] FrontEndTokenExecute["OpenCloseGroup"]

Created by Mathematica  (May 16, 2004)

Back to Ted’s Tricks index page