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}
 
% \section*{Un tore \'{e}lastique!}
 
\psset{unit=0.6}
\def\myFigure{%
\pstVerb{%
/ri \ai\space 3 mul sin 1.3 mul 1.95 add def
/li \ai\space 2 mul sin 1.85 mul 2.05 add def
/si \ai\space 1.6 mul sin 1.25 mul 1.75 add def
}
\rput(9,-4){\codejps{
 /ORing1 {
    0.25 0.9 [18 30] newtore
	{0 -2.5 0 translatepoint3d} solidtransform
    {1 1 li scaleOpoint3d} solidtransform
	{11 45 22 rotateOpoint3d} solidtransform
    dup (Blue) outputcolors} def
    ORing1 drawsolid**}
}
}
 
 
\FPdiv{\myDeltaA}{800}{90}%
\def\ai{0}%
 
\multido{\i=1+1}{90}{%
 \begin{pspicture}(-5,-4)(5,4)
  \myFigure%
 \end{pspicture}
 \newpage
 \FPadd{\ai}{\ai}{\myDeltaA}
}
 
\end{document}