Re: Smooth animation
- To: mathgroup at smc.vnet.net
- Subject: [mg47180] Re: Smooth animation
- From: "Steve Luttrell" <steve1 at _removemefirst_luttrell.org.uk>
- Date: Mon, 29 Mar 2004 04:22:27 -0500 (EST)
- References: <c45ngs$s2m$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
If you create the animation using a larger ImageSize the problem with the bar widths is reduced. Steve Luttrell "Erich Neuwirth" <erich.neuwirth at univie.ac.at> wrote in message news:c45ngs$s2m$1 at smc.vnet.net... > I am trying to do a nice animation. > Here it is > > << Graphics`Graphics` > > Env[x_] := (Cos[Min[Abs[x], 1]*Pi]/2 + 1/2) > > ShepFrame[order_, frac_] := > Module[{g1, g2}, > g1 = Plot[Env[t], {t, -1.1, 1.1}, DisplayFunction -> Identity]; > g2 = GeneralizedBarChart[ > Table[{(frac + i)/order, Env[(frac + i)/order], 0.025}, > {i, -order, order - 1}], > DisplayFunction -> Identity]; > Show[g1, g2, DisplayFunction -> $DisplayFunction, > AspectRatio -> 0.3, > ImageSize -> {500, 200}]] > > Do[ShepFrame[3, t/100], {t, 0, 100}] > > > It works, but the animation is jumpy, the bare change their widths > wich they should not. Is there an easy way of making the animation smoother? >