Manipulate Parameters in 3D Graphics
Mathematica 6 lets you manipulate 3D graphics, interactively changing parameters, then directly rotating or zooming with the mouse.
In[1]:=  |  Manipulate[
SphericalPlot3D[
1 + a Sin[3 \[Phi]] Sin[2 \[Theta]], {\[Theta], 0, Pi}, {\[Phi], 0,
2 Pi}, Mesh -> None, Ticks -> None, PlotRange -> 5], {a, 0, 5}] |
Out[1]=  |