Re: Automatic Closing of Animation Graphics Cells
- To: mathgroup at smc.vnet.net
- Subject: [mg38044] Re: [mg37978] Automatic Closing of Animation Graphics Cells
- From: Rolf Mertig <rolf at mertig.com>
- Date: Tue, 26 Nov 2002 00:51:07 -0500 (EST)
- Organization: Mertig Consulting
- Reply-to: rolf at mertig.com
- Sender: owner-wri-mathgroup at wolfram.com
Hello,
one possibility is:
CloseAniSequenceTest :=
(SelectionMove[EvaluationNotebook[],
After, EvaluationCell];
SelectionMove[EvaluationNotebook[],
Next, Cell]; SelectionMove[
EvaluationNotebook[], Next,
GeneratedCell]; FrontEndExecute[
{FrontEndToken[EvaluationNotebook[],
"OpenCloseGroup"]}])
Needs["Graphics`Animation`"];
Graphics`Animation`Animate[Plot[Sin[x*t], {x, -Pi, Pi}],
{t, 1, 3, 1}];
CloseAniSequenceTest
Regards,
Rolf Mertig
--
Mertig Consulting, Berlin, Germany
Specialized Software & Training
http://www.mertig.com