anim.tex

 
\documentclass{article}
\usepackage{pst-torusmagic}
\pagestyle{empty}
\begin{document}
 
\psset[pst-solides3d]{viewpoint=40 30 30,SphericalCoor,Decran=30,lightsrc=10 10 30}
\psset{%
   incolor=yellow!50,fillcolor=green!25,
   linecolor={[cmyk]{1,0,1,0.5}}}
\multido{\i=2+10}{36}{
\begin{center}
\begin{pspicture}(-8,-9)(7,5)
\psframe*(-8,-9)(7,5)
\psSolid[object=grille,base=-6 6 -6 6,linecolor=red,linewidth=0.5\pslinewidth,ngrid=12](0,0,-6)
\psSolid[object=grille,base=-6 6 -6 3,RotX=-90,linecolor=red,linewidth=0.5\pslinewidth,ngrid=12 9](0,-6,-3)
\psSolid[object=grille,base=-6 3 -6 6,RotY=90,linecolor=red,linewidth=0.5\pslinewidth,ngrid=9 12](-6,0,-3)
\psTorusMagic[R=3,r=1.5,angularAperture=\i,linecolor=red,linewidth=0.75\pslinewidth,torusMagic,projectionXY,projectionXZ,projectionYZ]%
\psTorusMagicSolid[R=3,r=1.5,angularAperture=\i]%
\red\gridIIID[Zmin=-6,Zmax=3,QZ=-1.5,linecolor=red](-6,6)(-6,6)
\end{pspicture}
\end{center}
\newpage}
 
\end{document}