Re: movie question
- To: mathgroup at smc.vnet.net
- Subject: [mg29488] Re: movie question
- From: simon shannon <sshannon at taz.dra.hmg.gb>
- Date: Fri, 22 Jun 2001 02:20:16 -0400 (EDT)
- References: <9gs2k9$k3s$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
a long while back this soln was posted in response to a similar
question...
----------------------------
myanimate[] := (
SelectionMove[EvaluationNotebook[],All,GeneratedCell];
FrontEndTokenExecute["CellGroup"];
FrontEndTokenExecute["OpenCloseGroup"]; );
Do[Plot[Sin[x+i*Pi/8],{x,0,2Pi}];,{i,8}];
myanimate[];
-----------------------------
it is such a useful little gem that i have myanimate[]
defined in my init.m
-simon.
Michael Probst wrote:
>
> Hi, Experts !
>
> When I animate a function (for example, Sin[t x] with t being 'time') using
> Animate or ShowAnimation, I get a series of plots. Then I have to click on
> the cell bracket in order to hide all but the first plot *. When I want to
> play
> the movie, I can select this group of cells and use CTL-Y to play the movie.
> I have a small educational project where the student changes the function
> and
> creates a movie from it.
> Is there a way to avoid having to do step * ?
> It would be somewhat nicer if the single frames were hidden from the user
> and the movie would start right away !
>
> Thanks !
> Michael