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}
 
\newcommand\SectionChampignon{
 /r1 R 0.4 mul def
 /r2 R 0.6 mul def
 /r3 0.2 R mul def
  0 0 %1
% 0 r1 0 % 2
 -33 10 43 { /Angle ED
    Angle cos 0.5 h mul mul 0.2 h mul sub
      Angle sin 0.5 h mul mul 0.3 h mul add
      } for
 0 10 90 {
    /Angle ED
    0.8 R mul Angle cos mul r3 add 0.8 R mul Angle sin mul 0.6 h mul add
    } for
 0 0.8 R mul 0.6 h mul add
}
 
\def\myFigure{%
\psset[pst-solides3d]{SphericalCoor=true,viewpoint=100 20 20,Decran=50,lightsrc=\bi\space 20 20}
%\psSolid[object=anneau,section=\SectionChampignon,fillcolor=red!20,h=10,r1=5,r0=0,unit=0.5,RotX=-20,linewidth=0.5\pslinewidth](-4,5,0)
\rput(3,-2){\psSolid[object=anneau,section=\SectionChampignon,fillcolor=red!\ai,h=10,r1=5,r0=0,linewidth=0.5\pslinewidth](0,0,0)}
%\psSolid[object=anneau,section=\SectionChampignon,fillcolor=yellow!50,h=10,r1=5,r0=0,unit=0.4,RotY=-90,RotZ=-40,linewidth=0.5\pslinewidth](4,6,0)
}
 
\FPdiv{\myDeltaA}{90}{60}%
\def\ai{0}%
\FPdiv{\myDeltaB}{40}{90}%
\def\bi{0}%
 
\multido{\i=1+1}{60}{
    \begin{pspicture}(-5,-4)(5,4)\myFigure\end{pspicture}
    \newpage
    \FPadd{\ai}{\ai}{\myDeltaA}
    \FPadd{\bi}{\bi}{\myDeltaB}
}
\end{document}