anim.tex

\documentclass{article}
\usepackage{amsmath,amssymb}
\usepackage{multido}
\usepackage[nomessages]{fp}
\usepackage[dvipsnames,svgnames]{pstricks}
\usepackage{pstricks-add}
\usepackage{pst-solides3d}
 
\pagestyle{empty}
\begin{document}
\psset{unit=0.725}
\def\myFigure{%
\psset{lightsrc=50 20 20,viewpoint=70 30 \ai\space,Decran=70}
\rput(0,0){\psSolid[object=grille,
   ngrid=8,
   fillcolor=blue,
   base=-8 8 -8 8,
   name=A1](0,0,0)}
\rput(0,0){\psProjette[object=texte,
   fontsize=.2,
   text=pst-solides3d,
   normale=1 0 0 90,
](0,0,2)
\psProjette[object=texte,
   fontsize=.2,
   text=PS Tricks,
   normale=1 0 0 90,
](4,0,2)}
}
 
 
\FPdiv{\myDeltaA}{90}{60}%
\def\ai{0}%
\FPdiv{\myDeltaB}{60}{60}%
\def\bi{3}%
\multido{\i=1+1}{60}{%
 \begin{pspicture}(-9,0)(3,5)
   \myFigure%
 \end{pspicture}
 \newpage
 \FPadd{\ai}{\ai}{\myDeltaA}
 \FPsub{\bi}{\bi}{\myDeltaB}
}
\end{document}