animation on fixed background
- To: mathgroup at smc.vnet.net
- Subject: [mg23399] animation on fixed background
- From: Wijnand Schepens <Wijnand.Schepens at rug.ac.be>
- Date: Sat, 6 May 2000 02:26:43 -0400 (EDT)
- Organization: RUG
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
I want to create an animation with a fixed background, i.e. each frame
consists of a Show[back, fore[p] ]
where back and fore are graphics objects and fore depends on some
parameter p
(e.g. a particle moving on a fixed curve)
e.g.
In[5]:=
back = Plot[Sin[x], {x, 0, 6}]
In[6]:=
fore[p_] := Plot[Sin[x + p], {x, 0, 6}, DisplayFunction -> Identity]
In[13]:=
frame[p_] := Show[back, fore[p], DisplayFunction -> $DisplayFunction]
In[15]:=
Table[frame[p], {p, 0, 1, 0.1}];
Then I close the cell-group and press crtl-Y to start the simulation
(Win95, M 4.0)
Questions:
1. is the ugly DisplayFunction construct the only way to avoid the
rendering of intermediate plots?
2. Is there a way to automate the selection of a cell-group, the closing
of the cell-group and the starting of the animation from within a
notebook?
3. The Windows interace provides you with buttons to influence the
animations: change direction, regulate speed etc. Is there a way to
prevent the animation from restarting again each time afresh? I want to
see all the frames only once.
4. Is there a way to avoid the showing of 'back' every time? The fact
that every frame contains the (same) background graphics means that this
takes a lot of memory. Is there a way to reduce this memory-overhead?
Can anyone help me?
Wijnand Schepens
University of Ghent, Belgium