# How do I keep my Animate running at high resolution?

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?

-
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

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}]

-
Excellent, thank you very much – Aron Apr 11 '14 at 12:32