%@AUTEUR: Juergen Gilg

\psset{viewpoint=-10 -10 10,
   lightsrc=-8 -5 6,
   Decran=50}
\begin{pspicture}(-5,-5)(5,5)
\psset{unit=0.25}
\pstVerb{ /gro { 4 dict begin
   /M defpoint3d
   /a 0.375 def
   /b 2.25 a 5 sqrt mul sub def
   /k M norme3d a mul b sub def
   M k mulv3d
end } def } \psset{action=draw**,linewidth=.02,linecolor=lightgray}
\psSolid[object=tore,
      fillcolor=red,
      r1=5,
      r0=2.7,
      transform=gro,
      ngrid=36 36,
      ](0,0,0)
\end{pspicture}