MathGroup Archive 2005

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

Search the Archive

Re: SpinShow problem

  • To: mathgroup at
  • Subject: [mg56421] Re: [mg56339] SpinShow problem
  • From: "David Park" <djmp at>
  • Date: Sun, 24 Apr 2005 03:29:23 -0400 (EDT)
  • Sender: owner-wri-mathgroup at

Thanks to Mark Fisher and Peter Pein we now have a way to do this, but I do
not understand the internals.

They use the following two system functions.

$RasterFunction = ($AnimationDisplayFunction[#1]; ) &

$AnimationFunction = Null &

However I do not find any documentation on the meaning and use of these
functions. (In fact the user's access to animation control is very poorly
done in the present Mathematica.) Apparently, to get the graphics output we
have to get rid of the ";" in $RasterRunction and change Null& to Identity
in $AnimationFunction.

Then I wrote the following routine to obtain the graphics objects as output
for any of the commands in the Graphics`Animation` package. (Mark Fisher's
routine from his site works well and has the additional advantage allowing
the suppression of the display, but is specialized to SpinShow.)

AnimationGraphics::usage =
    "AnimationGraphics[animatecommand] generates the regular animations \
produced by the various commands in the Animation packages and also returns
the list of graphics objects produced.";
Attributes[AnimationGraphics] = {HoldFirst};
AnimationGraphics[animatecommand_] :=
  Block[{$AnimationFunction = Identity, $RasterFunction = $DisplayFunction},

For examples...


plot1 = Plot3D[x*Cos[y], {x, -1, 1}, {y, -Pi, Pi}, Axes -> False,
    Boxed -> False];


frame[p_] :=
    Plot3D[x Cos[p y], {x, -1, 1}, {y, -Pi, Pi},
      Axes -> False,
      Boxed -> False];

AnimationGraphics[Animate[frame[p], {p, 0, 4, 0.25}]]

  MovieParametricPlot[{s Cos[2 Pi s + t], s Sin[2 Pi s + t]}, {s, 0, 4}, {t,
      0, 2Pi}, Frames -> 10, Axes -> False, AspectRatio -> Automatic,
    PlotRange -> {{-4, 4}, {-4, 4}}]]

  MoviePlot3D[x Cos[p y], {x, -1, 1}, {y, -\[Pi], \[Pi]}, {p, 0, 2, 0.1},
    Axes -> False,
    Boxed -> False]]

David Park
djmp at

From: shawn peng [mailto:shawnpeng23 at]
To: mathgroup at

I used SpinShow command to rotate a 3D graph. But when I export the results,
they can't be saved as .gif file. So, my question is how to save "SpinShow"
results as a .gif file in order to get a 3D movie?

  • Prev by Date: Re: simplifying ulam spiral code
  • Next by Date: Re: simplifying ulam spiral code
  • Previous by thread: Re: Re: SpinShow problem
  • Next by thread: A bug in Integrate ?