\documentclass{article} \usepackage{multido} \usepackage[nomessages]{fp} \usepackage{pstricks-add} \usepackage{pst-solides3d} \pagestyle{empty} \begin{document} \psset{unit=0.8} \def\myFigure{% \psset{lightsrc=10 -20 50,SphericalCoor,viewpoint=50 -20 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]{helice}(t){0.6*t*cos(5*t)}{0.6*t*sin(5*t)}{t} \deffunctionR[algebraic]{helice_xy}(t){0.6*t*cos(5*t)}{0.6*t*sin(5*t)}{0} \deffunctionR[algebraic]{helice_xz}(t){0.6*t*cos(5*t)}{4}{t} \deffunctionR[algebraic]{helice_yz}(t){-4}{0.6*t*sin(5*t)}{t} %vardef f(expr t) = t*cos(4*t) enddef; %vardef g(expr t) = t*sin(4*t) enddef; %vardef h(expr t) = t enddef; \psSolid[object=courbe, linecolor=red,linewidth=0.1, resolution=360, normale=0 0 1, function=helice_xy]% \psSolid[object=courbe, linecolor=green,linewidth=0.1, resolution=360, normale=0 0 1, function=helice_xz]% \psSolid[object=courbe, linewidth=0.1, resolution=360, normale=0 0 1, function=helice_yz]% \psSolid[object=courbe, linecolor=blue,linewidth=0.1, resolution=360, function=helice]% } \FPdiv{\myDeltaA}{6}{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}