\documentclass{article}
\usepackage[a6paper,landscape,margin=2mm]{geometry}
\usepackage{pst-solides3d,animate}
\pagestyle{empty}
\begin{document}

\begin{center}
\begin{animateinline}[controls,autoplay,palindrome,
  begin={\begin{pspicture}(-5,-4)(5,4)},
  end={\end{pspicture}}]{5}
%		% Generate frames for -2 ... 2
  \multiframe{19}{rA=-2.0+0.1}{%
    \psset{lightsrc=viewpoint,viewpoint=50 90 30 rtp2xyz,Decran=50}
    \psSolid[object=grille,base=-4 4 -4 4,ngrid=8 8,linecolor=black!20](0,0,-1)
    \psImplicitSurface[%hollow,
    hue=1 0 0.5 1,
    XMinMax=-4 4 0.2,YMinMax=-4 4 0.2,ZMinMax=-4 4 0.2,
    algebraic,ImplFunction=1/((x+\rA\space)^2+y^2+z^2)+1/((x-\rA\space)^2+y^2+z^2)-1,
    fillcolor=cyan!20,linewidth=0.05pt]
%    \psPoint(\rA,0,0){O1}\psPoint(\rA\space neg,0,0){O2}
%    \psdots(O1)(O2)
  }
\end{animateinline}
\end{center}

\end{document} 