anim.tex

%@AUTEUR: Juergen Gilg
\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}
 
\psset{SphericalCoor,viewpoint=50 20 30,Decran=50}
\psset{unit=0.5}
\psset{solidmemory}
\def\voc{%
\psSolid[object=cube,
a=8,
RotX=-\bi\space,
action=draw*,
linecolor=blue,
fillcolor=lightgray]%
\psSolid[object=cube,a=8,
name=A1,
RotX=-\bi\space,
action=none](0,0,0)
\psset{fontsize=200,
 no=0,
 solidname=A1}
 \psProjection[object=texte,linecolor=gray,text=A]%
 \psset{phi=\ai\space}
 \psProjection[object=texte,linecolor=red,text=A]%
 \axesIIID(4,4,4)(6,6,6)
}
 
\FPdiv{\myDeltaA}{60}{60}%
\def\ai{0}%
\FPdiv{\myDeltaB}{90}{60}%
\def\bi{0}%
\multido{\i=1+1}{60}{
 \begin{pspicture}(-3,-4)(4,7)
  \voc
 \end{pspicture}
 \newpage
 \FPadd{\ai}{\ai}{\myDeltaA}
 \FPadd{\bi}{\bi}{\myDeltaB}
}
 
\end{document}