anim.tex

\documentclass{article}
\usepackage[dvipsnames,svgnames]{pstricks}
\usepackage{pst-solides3d,pstricks-add}
\pagestyle{empty}
\begin{document}
\newcommand\SectionCoupe{
0 0
1.5 0
1.5 0.2
1.5 0.2
   -90 -10 -180{
      /Angle exch def
      0.3 Angle cos mul 0.5 add % y=0.3cos(A) + 0.5
      0.3 Angle sin mul 0.5 add % z=0.3sin(A) + 0.5
   } for
0.2 3.1
-85 10 0{
      /Angle exch def
      2 Angle cos mul % y=2cos(A) + 0.5
      2 Angle sin mul 5 add % z=2sin(A) + 5
   } for
2 5
0 -10 -90{
      /Angle exch def
      1.9 Angle cos mul % y=2cos(A) + 0.5
      1.9 Angle sin mul 5 add % z=2sin(A) + 5
   } for
   }
\multido{\r=20+1}{50}{
\begin{pspicture}(-5,-3)(5,6)
\psset[pst-solides3d]{SphericalCoor,viewpoint=70 40 \r\space,Decran=50,lightsrc=50 40 35}
\psSolid[object=grille,base=-4 4 0 7,fillcolor=OrangeRed,RotX=90,RotZ=90]%
\psSolid[object=grille,base=0 7 -4 4,fillcolor=Goldenrod]%
\psSolid[object=anneau,section=\SectionCoupe,fillcolor=Silver,linecolor=Gray](4,0,0)%
\end{pspicture}
\newpage
}
 
\end{document}