fig09.tex

\documentclass[a4paper]{article}
\usepackage{pst-solides3d}
\pagestyle{empty}
\begin{document}
 
%@AUTEUR: Manuel Luque
 
\psset{viewpoint=25 30 55,SphericalCoor,unit=1}
\begin{pspicture*}(-3.5,-3)(3.5,3)
\psframe(-3.5,-3)(3.5,3)
\psset{Decran=20}
\psSolid[object=grille,base=-8 8 -8 8,action=draw](0,0,-1)
\multido{\i=150+30,\r=0+0.08}{12}{%
\definecolor{torus}{hsb}{\r,1,1}%
\pstVerb{/iA \i\space def}%
\psSolid[r1=0.85,r0=0.15,object=tore,ngrid=4 6,RotX=90,RotZ=iA,RotY=30,
    fillcolor=torus](3 iA cos mul,3 iA sin mul,0)}
\psSolid[r1=3,r0=1,object=tore,ngrid=6 12,action=draw]%
\end{pspicture*}
 
\end{document}