MathGroup Archive 2005

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

Search the Archive

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


  • Prev by Date: Re: A bug in Integrate ?
  • Next by Date: Re: What's new in .NET/Link 1.2.0?
  • Previous by thread: Re: Re: SpinShow problem
  • Next by thread: Re: SpinShow problem