anim.tex

\documentclass{article}
\usepackage[dvipsnames,svgnames]{pstricks}
\usepackage{pst-node,pst-plot,pst-eucl}
\usepackage{pst-solides3d}
\usepackage{multido}
\usepackage[nomessages]{fp}
\pagestyle{empty}
\begin{document}
 
\def\myFigure{%
    \rput(0,0){%
	\codejps{%
	    /anneau1 {%
		0.5 2 [18 36] newtore
		dup (NavyBlue) outputcolors
	    } def
	    /anneau2 {%
		0.25 0.9 [18 30] newtore
		{90 0 0 rotateOpoint3d} solidtransform
		{2 0 0 translatepoint3d} solidtransform
		{0 0 \ai\space rotateOpoint3d} solidtransform 
		dup (Emerald) outputcolors
	    } def
	    anneau1 anneau2 solidfuz 
	    drawsolid*}
    }
}
 
\def\myIncrement{
    \FPadd{\ai}{\ai}{\myDeltaA}
    \FPadd{\bi}{\bi}{\myDeltaB}
    \FPadd{\ci}{\ci}{\myDeltaC}
}    
 
 
\FPdiv{\myDeltaA}{360}{90}%
\def\ai{0.5}%
\FPdiv{\myDeltaB}{180}{90}%
\def\bi{1}%
\FPdiv{\myDeltaC}{90}{90}%
\def\ci{1}%
 
\multido{\i=1+1}{90}{%
    \begin{pspicture}(-5,-4)(5,5)
	\myFigure%
    \end{pspicture}
    \myIncrement%
    \newpage
}
 
\end{document}