%@AUTEUR: Manuel Luque

\begin{pspicture}(-5,-5)(6,6)
\psframe(-5,-5)(6,6)
\psset[pst-solides3d]{viewpoint=20 20 20,SphericalCoor,Decran=20,
    lightsrc=20 15 15}
% Parametric Surfaces
\psSolid[object=grille,base=-3 3 -3 3,action=draw,linecolor=red](0,0,-2)
\defFunction[algebraic]{torus}(u,v){%
    (1+ 0.5*cos(u))*cos(v)}{(1+ 0.5*cos(u))*sin(v)}{0.5*sin(u)}
\psSolid[object=surfaceparametree,
   base=0 2 pi mul pi 2 div neg pi 2 div,fillcolor=yellow!50,incolor=green!50,
   function=torus,unit=2,RotZ=180,
   ngrid=6 6,rm=48 49 50 51 52 53]%
\gridIIID[Zmin=-2,Zmax=2](-3,3)(-3,3)
\end{pspicture}