anim.tex

\documentclass{article}
\usepackage{amsmath,amssymb}
\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 -20 20,Decran=50}
\pstVerb{%
/tmin 0 def
/tmax 7 def
/xi 1 \ai\space 2.5 mul cos sub 1.3 mul 6 \ai\space mul cos mul def
/yi 1 \ai\space 2.5 mul cos sub 1.3 mul 6 \ai\space mul sin mul def
/zi \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)
%\psPoint(xi,yi,zi){O}
%\psPoint(xi,yi,0){XY}
%\psPoint(xi,4,zi){XZ}
%\psPoint(-4,yi,zi){YZ}
%\psline[linestyle=dashed,linecolor=gray](O)(XY)
%\psline[linestyle=dashed,linecolor=gray](O)(XZ)
%\psline[linestyle=dashed,linecolor=gray](O)(YZ)
\deffunctionR[algebraic]{helice}(t){1.3*(1-cos(\ai\space*t))*cos(6*t)}{1.3*(1-cos(\ai\space*t))*sin(6*t)}{t}
\deffunctionR[algebraic]{helice_xy}(t){1.3*(1-cos(\ai\space*t))*cos(6*t)}{1.3*(1-cos(\ai\space*t))*sin(6*t)}{0}
\deffunctionR[algebraic]{helice_xz}(t){1.3*(1-cos(\ai\space*t))*cos(6*t)}{4}{t}
\deffunctionR[algebraic]{helice_yz}(t){-4}{1.3*(1-cos(\ai\space*t))*sin(6*t)}{t}
 
\psSolid[object=courbe,
        linecolor=blue,
        linewidth=0.05,
        resolution=360,
        normale=0 0 1,
        function=helice_xy]%
\psSolid[object=courbe,
        linecolor=green,
        linewidth=0.05,
        resolution=360,
        normale=0 0 1,
        function=helice_xz]%
\psSolid[object=courbe,
        linewidth=0.05,
        resolution=360,
        normale=0 0 1,
        function=helice_yz]%
\psSolid[object=courbe,
        linecolor=red,
        linewidth=0.1,
        resolution=360,
        function=helice]%
}
 
 
\FPdiv{\myDeltaA}{7.8}{60}%
\def\ai{0}%
\FPdiv{\myDeltaB}{60}{60}%
\def\bi{3}%
 
\multido{\i=1+1}{60}{%
 \begin{pspicture}(-7,0)(5,9)
   \myFigure%
 \end{pspicture}
 \newpage
 \FPadd{\ai}{\ai}{\myDeltaA}\FPsub{\bi}{\bi}{\myDeltaB}
}
 
\end{document}