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{unit=1}
\psset{lightsrc=10 0 10,SphericalCoor=true,viewpoint=50 -20 30,Decran=50}
 
\def\voc{
\rput(0,0){\codejps{
3 newtetraedre
dup \ai\space solidchampfreine
dup videsolid
dup (jaune) outputcolors
dup (rouge) inputcolors
%{0 0 \ai\space rotateOpoint3d} solidtransform
dup drawsolid**
}
}
}
 
\FPdiv{\myDeltaA}{0.8}{49}%
\def\ai{0}%
\FPdiv{\myDeltaB}{0.73}{49}%
\def\bi{0}%
\FPdiv{\myDeltaC}{30}{49}%
\def\ci{15}%
\leavevmode\multido{\i=1+1}{49}{
 \begin{pspicture}(-3,-3)(3,3)
  \voc
 \end{pspicture}
 \newpage
 \FPadd{\ai}{\ai}{\myDeltaA}\FPround{\ai}{\ai}{6}%
 \FPadd{\bi}{\bi}{\myDeltaB}\FPround{\bi}{\bi}{6}%
 \FPadd{\ci}{\ci}{\myDeltaC}\FPround{\ci}{\ci}{6}%
}
\end{document}