\documentclass{article}
\usepackage[a5paper,landscape,margin=5mm]{geometry}
\usepackage{pst-solides3d}
\usepackage{animate}
\pagestyle{empty}

\begin{document}

\begin{center}
\begin{animateinline}[controls,autoplay,loop,
  begin={\begin{pspicture}(-6,-5)(6,4)},
  end={\end{pspicture}}]{5}
%		% Generate frames for -2 ... 2
  \multiframe{18}{iA=0+20}{%
  \psset{lightsrc=viewpoint,viewpoint=40 \iA\space 15 rtp2xyz,Decran=50}
  \psSolid[object=grille,base=-4 4 -4 4,ngrid=8 8,linecolor=black!10](0,0,-2)
  \psImplicitSurface[
    XMinMax=-2.0 2.0 0.15,YMinMax=-2.0 2.0 0.15,ZMinMax=-2.0 2.0 0.15,
    algebraic,
    ImplFunction=4*x^4+4*y^4+8*y^2*z^2+4*z^4+17*x^2*y^2+17*x^2*z^2-20*x^2-20*y^2-20*z^2+17,
    fillcolor=cyan!20,hue=.1 .8 0.5 1,
    linewidth=0.01pt]%
}
\end{animateinline}
\end{center}

\end{document} 


