2
$\begingroup$

This question already has an answer here:

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?

$\endgroup$

marked as duplicate by Kuba May 17 '17 at 8:12

This question has been asked before and already has an answer. If those answers do not fully address your question, please ask a new question.

  • $\begingroup$ First try to go to Edit/Preferences/Appearance/Graphics and set the Slider to "Highest Quality" in case it changes anything :) $\endgroup$ – Öskå Apr 11 '14 at 12:16
5
$\begingroup$

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}]
$\endgroup$
  • $\begingroup$ Excellent, thank you very much $\endgroup$ – Aron Apr 11 '14 at 12:32

Not the answer you're looking for? Browse other questions tagged or ask your own question.