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}
 
\psset{%SphericalCoor,
viewpoint=30 \ai\space 30,
Decran=14,
lightsrc=10 30 20}
 
\def\myFigure{%
\rput(0,0){\codejps{
 /SquareRing1 {
    [10 -1 10 1 8 1 8 -1] 4 newanneau
    {0 0 45 rotateOpoint3d} solidtransform
    dup (LimeGreen) outputcolors} def
/SquareRing2 {
    [10 -1 10 1 8 1 8 -1] 4 newanneau
         {0 60 0 rotateOpoint3d} solidtransform
         {1 7.5 0 translatepoint3d} solidtransform
         dup (Goldenrod) outputcolors} def
/SquareRing3 {
    [10 -1 10 1 8 1 8 -1] 4 newanneau
         {0 150 20 rotateOpoint3d} solidtransform
         {1 17.5 1 translatepoint3d} solidtransform
         dup (NavyBlue) outputcolors} def
/un {SquareRing1 SquareRing2 solidfuz} def
/deux {un SquareRing3 solidfuz} def
deux drawsolid**}
}
}
 
\FPdiv{\myDeltaA}{55}{90}%
\def\ai{55}%
\multido{\i=1+1}{90}{%
 \begin{pspicture}(-5,-4)(5,4)
  \myFigure%
 \end{pspicture}
 \newpage
 \FPsub{\ai}{\ai}{\myDeltaA}
}
 
\end{document}