torecoupe.tex

\documentclass{book}
\usepackage[dvipsnames,svgnames]{pstricks}
\usepackage{pst-solides3d}
 
\begin{document}
\pagestyle{empty}
 
\psset{unit=1.25}
\begin{pspicture}(-5,-5)(6,6)
\psframe(-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=0 2 pi mul pi 2 div neg pi 2 div,fillcolor=yellow!50,incolor=green!50,
   function=torus,linewidth=0.5\pslinewidth,unit=2,RotZ=180,
   ngrid=20]%
\defFunction[algebraic]{cercleA}(t)
   {0}
   {0.5*cos(t)+1}
   {0.5*sin(t)}
\psSolid[object=courbe,r=0,
    range=0 2 pi mul,unit=2,
    linecolor=blue,
    resolution=360,
    function=cercleA]%
\defFunction[algebraic]{cercleB}(t)
   {0}
   {0.5*cos(t)-1}
   {0.5*sin(t)}
\psSolid[object=courbe,r=0,
    range=0 2 pi mul,unit=2,
    linecolor=blue,
    resolution=360,
    function=cercleB]%
\gridIIID[Zmin=-2,Zmax=2](-3,3)(-3,3)
\end{pspicture}
 
\end{document}