\documentclass[a4paper]{article} \usepackage{pst-solides3d} \pagestyle{empty} \begin{document} %@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} \end{document}