\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,-6)(6,6)},
  end={\end{pspicture}}]{8}
\multiframe{18}{iA=0+20}{%%%% CHANGE 1 to 18 for an animation
  \psset{lightsrc=viewpoint,viewpoint=40 \iA\space 20 rtp2xyz,Decran=50}
  \psSolid[object=grille,base=-4 4 -4 4,ngrid=8 8,linecolor={[rgb]{0 0 0.5}}](0,0,-2)
  \pstVerb{/RRadius 2 def }
  \psImplicitSurface[XMinMax=-3.5 3.5 0.2,YMinMax=-3.5 3.5 0.2,ZMinMax=-3.5 3.5 0.2,
           algebraic,ImplFunction=x^2*y^2+y^2*z^2+z^2*x^2-RRadius^2*x*y*z,
           fillcolor=cyan!20,hue=.1 .8 0.5 1,
           linewidth=0.01pt,linecolor={[rgb]{0 0 0.5}}]%
}
\end{animateinline}
\end{center}

\end{document} 