anim.tex

\documentclass{article}
\usepackage{multido}
\usepackage[nomessages]{fp}
\usepackage{pstricks-add}
\usepackage{pst-solides3d}
\pagestyle{empty}
\begin{document}
\psset{unit=0.85}
\def\myFigure{%
\psset{lightsrc=10 -20 50,SphericalCoor,viewpoint=50 -30 20,Decran=50}
\pstVerb{/tmin 0 def /tmax \ai\space def}%
\psSolid[object=grille,base=-4 4 -4 4,linecolor=lightgray,linewidth=0.5\pslinewidth]%
\psSolid[object=grille,base=-4 4 0 8,linecolor=lightgray,RotX=90,linewidth=0.5\pslinewidth](0,4,0)
\psSolid[object=grille,base=-4 4 -4 4,linecolor=lightgray,RotY=90,linewidth=0.5\pslinewidth](-4,0,4)
 
\deffunctionR[algebraic]{cardior}(t){1.6*(1-cos(t))*cos(t)}{1.6*(1-cos(t))*sin(t)}{4-2*sin(t)}
\deffunctionR[algebraic]{cardior_xy}(t){1.6*(1-cos(t))*cos(t)}{1.6*(1-cos(t))*sin(t)}{0}
\deffunctionR[algebraic]{cardior_xz}(t){1.6*(1-cos(t))*cos(t)}{4}{4-2*sin(t)}
\deffunctionR[algebraic]{cardior_yz}(t){-4}{1.6*(1-cos(t))*sin(t)}{4-2*sin(t)}
 
\psSolid[object=courbe,
        linecolor=blue,
        linewidth=0.05,
        resolution=360,
        normale=0 0 1,
        function=cardior_xy]%
\psSolid[object=courbe,
        linecolor=green,
        linewidth=0.05,
        resolution=360,
        normale=0 0 1,
        function=cardior_xz]%
\psSolid[object=courbe,
        linewidth=0.05,
        resolution=360,
        normale=0 0 1,
        function=cardior_yz]%
\psSolid[object=courbe,
        linecolor=red,
        linewidth=0.1,
        resolution=360,
        function=cardior]%
}
 
 
\def\ai{0}%
\multido{\i=1+1}{66}{%
 \begin{pspicture}(-7,0)(5,9)
  \myFigure%
 \end{pspicture}
 \newpage
 \FPadd{\ai}{\ai}{0.104719755} % Incrément de Pi/30
}
\end{document}