MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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?
>


  • Prev by Date: a problem of nminimize
  • Next by Date: Re: solving nonlinear equation with mathematica !!
  • Previous by thread: Smooth animation
  • Next by thread: RE: Smooth animation