MathGroup Archive 2005

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

Search the Archive

Re: SpinShow problem

  • To: mathgroup at
  • Subject: [mg56392] Re: [mg56339] SpinShow problem
  • From: "David Park" <djmp at>
  • Date: Sat, 23 Apr 2005 01:16:40 -0400 (EDT)
  • Sender: owner-wri-mathgroup at


It appears that the commands in the Animation package do not make the actual
output graphics available to the user. That is not good! (Maybe someone will
show how one can access them.)

So as a fall back, you can make your own SpinShow. Here is an example.

plot1 = Plot3D[x Cos[y], {x, -3, 3}, {y, -3, 3},
    Axes -> False,
    Boxed -> False]

Convert this from SurfaceGraphics to Graphics3D so we can transform the xy

plot2 = Graphics3D[plot1]

Next define one frame of the animation by rotating all xy points by angle t.

frame[t_] :=
      First[plot2] /. {x_?NumberQ, y_?NumberQ,
            z_?NumberQ} -> {Cos[t]x - Sin[t]y, Sin[t]x + Cos[t]y, z}],
    PlotRange -> {{-5, 5}, {-5, 5}, {-5, 5}},
    Boxed -> False]

The following shows the animation and generates the plot frames using Table.

plotframes =
  Table[frame[t], {t, 0, 2\[Pi] - \[Pi]/12, \[Pi]/12}]
SelectionMove[EvaluationNotebook[], All, GeneratedCell]
FrontEndTokenExecute["OpenCloseGroup"]; Pause[0.5];
FrontEndExecute[{FrontEnd`SelectionAnimate[200, AnimationDisplayTime -> 0.1,
      AnimationDirection -> Forward]}]

Now pick a filename maybe using the following

filename = Experimental`FileBrowse[]

using name.gif for the actual file.

Then export with

Export[filename, plotframes, "GIF",
  ConversionOptions -> {"Loop" -> True, "AnimationDisplayTime" -> 0.2}]

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: Re: Re: (x-y) DiracDelta[x-y] does not simplify to 0
  • Next by Date: Re: Re: Re: multiple 3d plots
  • Previous by thread: Re: SpinShow problem
  • Next by thread: Re: Re: SpinShow problem