torecoupe2.tex

\documentclass{book}
\usepackage[dvipsnames,svgnames]{pstricks}
\usepackage{pst-solides3d}
 
\begin{document}
\pagestyle{empty}
 
\psset{unit=1.25}
\begin{pspicture}(-5,-5)(6,6)
\psset[pst-solides3d]{viewpoint=20 20 20 rtp2xyz,
   Decran=20,lightsrc=10 15 0}
% 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,linecolor={[cmyk]{1,0,1,0.5}},
   base=pi neg 0 0 2 pi mul ,fillcolor=yellow!50,incolor=green!50,
   function=torus,linewidth=0.5\pslinewidth,unit=2,
   intersectiontype=1,
   intersectionplan={[0 0 1 .01]},
   intersectionlinewidth=1,
   intersectioncolor=(bleu),
   ngrid=20]%
\gridIIID[Zmin=-2,Zmax=2](-3,3)(-3,3)
\end{pspicture}
 
 
 
\end{document}