Smooth animation of rotating 3D sphere in Mathematica

[n00dle0]

Hi!

Here is the code in Mathematica 7.

sphere = RegionPlot3D[(x^2 + y^2 + z^2  <= 1) && (x < 0 || y < 0 || 
     z < 0), {x, -1, 1}, {y, -1, 1}, {z, -1, 1}, Mesh -> False, 
  Boxed -> False, Axes -> True, AxesOrigin -> {0, 0, 0}, 
  AxesLabel -> {X, y, Z}, PlotPoints -> 50, 
  ColorFunctionScaling -> False, 
  ColorFunction -> 
   Function[{x, y, z}, ColorData["Rainbow"][1 - (x^2 + y^2 + z^2 )]], 
  ViewPoint -> {1, 1, 1}, ViewVertical -> {1, 0, 0}, 
  ViewCenter -> {0, 0, 0}]


Animate[Show[sphere, ViewVertical -> {Cos[v], Sin[v], 0}, 
  ViewCenter -> {1, 1, 1}], {v, 0, 2 Pi, Pi/20}]

This plots a sphere with one of the quadrants cut out. I wish to animate this plot by rotating about the body diagonal of the bounding box. With the above Animate, I get te subsequent frames to jump around. How can that be fixed.

Ultimately, I would like to make a movie clip out of it, what would be the best way to go about doing that.

Thanks in advance.
- N

 

[n00dle0]

Solved! SphericalRegion->True does the job. I think I did try it set to true in the sphere before I posted here, but maybe I was messing things elsewhere.

- N

Animate[Show[sphere, Axes -> False, SphericalRegion -> True, 
  ViewVertical -> {Sin[v], Cos[v], 0}], {v, 0, 2 Pi, Pi/36}]

 

[Dale]

Also, to make it smoother you can use the option:
DisplayAllSteps -> True