Re: Re: SpinShow problem
- To: mathgroup at smc.vnet.net
- Subject: [mg56418] Re: [mg56388] Re: SpinShow problem
- From: Peter Pein <petsie at arcor.de>
- Date: Sun, 24 Apr 2005 03:29:15 -0400 (EDT)
- References: <NDBBJGNHKLMPLILOIPPOIEIKEHAA.djmp@earthlink.net>
- Sender: owner-wri-mathgroup at wolfram.com
David Park wrote: > Peter, > > I don't see how that helps at all, at least not in Version 5.0.1. We still > do not have access to the Graphics output cells. > > David Park > djmp at earthlink.net > http://home.earthlink.net/~djmp/ > > From: Peter Pein [mailto:petsie at arcor.de] To: mathgroup at smc.vnet.net > > shawn peng wrote: > >> 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 >> >> > anim=Block[{$RasterFunction=$DisplayFunction},SpinShow[....]]; and > export anim to a .gif as usual. > > -- > Peter Pein > Berlin > > David, you're right. While testing this yesterday, I didn't restart Mathematica. I guess $DisplayFunction had been set to sth. non-standard. g = ParametricPlot3D[{x, Cos[t]*Sin[x], Sin[t]*Sin[x]}, {x, -Pi, Pi}, {t, 0, 2*Pi}, Axes -> False, Boxed -> False]]; pl = Reap[Block[{$RasterFunction = Display[$Display, Sow[#1]] & }, SpinShow[g, Frames -> 10, SpinRange -> {0, 180*Degree}, Closed -> True]]][[2,1]] Export["ani.gif",pl,"GIF"]; should (hopefully) do it's job. Peter