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

Re: SpinShow problem

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

Shawn,

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
points.

plot2 = Graphics3D[plot1]

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

frame[t_] :=
  Show[Graphics3D[
      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 earthlink.net
http://home.earthlink.net/~djmp/


From: shawn peng [mailto:shawnpeng23 at yahoo.com.cn]
To: mathgroup at smc.vnet.net


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?
Thanks.
Shawn