Re: Q: ROTATING ANIMATIONS in MMA?
- To: mathgroup at smc.vnet.net
- Subject: [mg2194] Re: Q: ROTATING ANIMATIONS in MMA?
- From: ianc (Ian Collier)
- Date: Fri, 13 Oct 1995 02:25:13 -0400
- Organization: Wolfram Research, Inc.
In article <45d0hg$5tc at ralph.vnet.net>, Zorro <berriz at husc.harvard.edu> wrote:
> Hi. I'm trying to produce an animation of a 3-D object to simulate
> the smooth rotation of the object about the vertical axis. I came up
> with
>
> Table[Show[3DObject, Boxed -> False,
> ViewPoint->{ 2 Cos[n 2 Pi/60], 2 Sin[n 2 Pi/60],2 }],
> {n, 0, 60}];
>
> This *almost* worked. The only problem is that Mathematica doesn't
> keep the size of 3DObject constant (wrt to the rest of the window)
> from one frame to the next, so the image zooms in and out as it
> rotates (a semi-cool effect, in face, but not exactly what I had in
> mind). How can I get Mathematica to keep the image size constant wrt
> the window from one frame to the next?
>
> Thanks in advance,
>
> Z.
You could try using SpinShow which is defined in Graphics`Animation`,
one of the Standard Mathematica Packages that came with your copy
of Mathematica.
SpinShow automatically computes the viewpoints for you.
In this example at least the size of the image appears stable.
In[20]:=
Needs[ "Graphics`Animation`"]
In[21]:=
Needs[ "Graphics`Shapes`"]
In[22]:=
Needs[ "Graphics`Polyhedra`"]
In[23]:=
?SpinShow
SpinShow[graphics, opts...] will animate a three-dimensional
graphics object by rotating it.
In[26]:=
g = Show[ Stellate[ Polyhedron[Octahedron],4.0]]
Out[26]=
-Graphics3D-
In[28]:=
SpinShow[ g, Frames -> 10,
SpinRange -> { 0 Degree, 180 Degree}];
I hope this helps.
--Ian
-----------------------------------------------------------
Ian Collier
Technical Sales Support
Wolfram Research, Inc.
-----------------------------------------------------------
tel:(217)-398-0700 fax:(217)-398-0747 ianc at wri.com
Wolfram Research Home Page: http://www.wri.com/
-----------------------------------------------------------