3

I'm building an Animate where I have a 3D plot with some of its parameters changing:

Animate[SphericalPlot3D[Sin[(3/z)*x], x, y, PlotStyle -> Opacity[0.7]], {z, 1, 5}]

Whilst it is running through the changes though, the entire plot goes very low-res. How can I ensure that the resolution stays high throughout the animation, and not just when it stops running?

Aron
  • 1,722
  • 1
  • 12
  • 30
  • First try to go to Edit/Preferences/Appearance/Graphics and set the Slider to "Highest Quality" in case it changes anything :) – Öskå Apr 11 '14 at 12:16

1 Answers1

6

Also fix BoxRatios, PlotRange...

1-way: PerformanceGoal -> "Quality":

Animate[SphericalPlot3D[Sin[(3/z)*x], x, y, PlotStyle -> Opacity[0.7],
   PerformanceGoal -> "Quality", BoxRatios -> 1, PlotRange -> 1], {z, 
  1, 5}]

2-way: specify explicitly options that set the quality: 

Animate[SphericalPlot3D[Sin[(3/z)*x], x, y, PlotStyle -> Opacity[0.7],
   BoxRatios -> 1, PlotRange -> 1, PlotPoints -> 30, Mesh -> 10], {z, 
  1, 5}]
Vitaliy Kaurov
  • 73,078
  • 9
  • 204
  • 355