%@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}