MathGroup Archive 1995

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

Search the Archive


  • To: mathgroup at
  • 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>, Zorro <berriz at> 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.

    Needs[ "Graphics`Animation`"]
    Needs[ "Graphics`Shapes`"]
    Needs[ "Graphics`Polyhedra`"]


    SpinShow[graphics, opts...] will animate a three-dimensional
       graphics object by rotating it.

    g = Show[ Stellate[ Polyhedron[Octahedron],4.0]]


    SpinShow[ g, Frames -> 10,
            SpinRange -> { 0 Degree, 180 Degree}];

I hope this helps.


Ian Collier
Technical Sales Support
Wolfram Research, Inc.
tel:(217)-398-0700     fax:(217)-398-0747      ianc at
Wolfram Research Home Page:   

  • Prev by Date: Re: 4th degree polynomials
  • Next by Date: Re: Replacing a part of a list/matrix?
  • Previous by thread: Re: Q: ROTATING ANIMATIONS in MMA?
  • Next by thread: RE: Q: ROTATING ANIMATIONS in MMA?