RE: movie question
- To: mathgroup at smc.vnet.net
- Subject: [mg29492] RE: [mg29471] movie question
- From: "David Park" <djmp at earthlink.net>
- Date: Fri, 22 Jun 2001 02:20:21 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Michael,
Needs["Graphics`Animation`"]
The following defines a single frame of your movie. It is usually necessary
to specify the PlotRange for animation to ensure that all frames have the
same actual plot range.
frame[t_] := Plot[Sin[t x], {x, 0, 2 Pi}, PlotRange -> {{0, 2 Pi}, {-1, 1}}]
The following cell: 1) creates the animation 2) selects all the generated
graphics cells 3) closes them up and 4) starts the animation. If the
animation has been stopped it can be restarted just by double clicking on
the visible graphics cell.
Animate[frame[t], {t, 0, 2Pi}]
SelectionMove[EvaluationNotebook[], All, GeneratedCell]
FrontEndTokenExecute["OpenCloseGroup"]
FrontEndTokenExecute["SelectionAnimate"]
Also notice that, in addition to the animation control box at the bottom of
the notebook, you can
also control the animation with the arrow keys and control the speed with
the numeric keyboard.
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
> From: Michael Probst [mailto:michael.probst at tirol.com]
To: mathgroup at smc.vnet.net
>
> 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
>
>
>