Re: cell grouping and animation
- To: mathgroup at smc.vnet.net
- Subject: [mg16840] Re: cell grouping and animation
- From: paulh (P.J. Hinton)
- Date: Thu, 1 Apr 1999 21:35:18 -0500
- Organization: Wolfram Research, Inc.
- References: <7dprs6$dqs@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In article <7dprs6$dqs at smc.vnet.net>, you write:
> Is there a way to automatically close the group of cells for a 100+ frame
> animation?
When is the group of cells to be closed?
Are you generating a large number of graphics and then attempting
to close the group of cells after the graphics are generated through
some programmatic matter?
If so, you could do something like this little code snippet.
Do[Plot[Sin[2 Pi f t], {t,0,1}],{f,1,5}];
SelectionMove[EvaluationNotebook[], After, EvaluationCell];
SelectionMove[EvaluationNotebook[], Next, CellGroup];
FrontEndTokenExecute["OpenCloseGroup"]
--
P.J. Hinton
Mathematica Programming Group paulh at wolfram.com
Wolfram Research, Inc. http://www.wolfram.com/~paulh/
Disclaimer: Opinions expressed herein are those of the author alone.