anim.tex

\documentclass{article}
\usepackage[dvipsnames,svgnames]{pstricks}
\usepackage{pst-node,pst-plot,pst-eucl}
\usepackage{graphicx}
\usepackage{pst-solides3d}
\usepackage{multido}
\usepackage[nomessages]{fp}
\pagestyle{empty}
\begin{document}
 
% \section*{Color spectacle \dots}
%\textBgColor{lightgray}  % sets the backgroundcolor
 
\psset{unit=0.25}
\psset{viewpoint=15 -15 15,
   lightsrc=8 -10 6,
   Decran=90}
 
\def\voc{%
 
 
\psset{action=draw**,linewidth=.02,linecolor=lightgray}
\rput(20,-12){\psSolid[object=cube,
      hue=\bi\space \ai\space,
      a=5,
      ngrid=8,
      ](0,0,0)
      }
}
 
\FPdiv{\myDeltaA}{0.5}{50}%
\def\ai{0.1}%
\FPdiv{\myDeltaB}{0.95}{50}%
\def\bi{0.5}%
\multido{\i=1+1}{50}{
 \begin{pspicture}(-5,-4)(5,4)
 %    \pscircle[linecolor=gray,linewidth=1pt](0,0){\R}
  \voc
 \end{pspicture}
 \newpage
 \FPadd{\ai}{\ai}{\myDeltaA}
 \FPadd{\bi}{\bi}{\myDeltaB}
}
 
\end{document}