Re: Animation
- To: mathgroup at smc.vnet.net
- Subject: [mg47115] Re: Animation
- From: drbob at bigfoot.com (Bobby R. Treat)
- Date: Fri, 26 Mar 2004 03:56:01 -0500 (EST)
- References: <c3ue6t$9r9$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
animate::usage = "animate[] animates graphics in the output cell."
animate[] :=
(
SelectionMove[EvaluationNotebook[], All, GeneratedCell];
FrontEndTokenExecute["OpenCloseGroup"];
FrontEndTokenExecute["SelectionAnimate"];
);
Bobby
"Bruce W. Colletti" <bcolletti at compuserve.com> wrote in message news:<c3ue6t$9r9$1 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