Fichier ex11.mp (figure 1) — Modifié le 3 Août 2008 à 07 h 09

ex11.mp (figure 1)
Source

%http://melusine.eu.org/lab/bpst/pst-solides3d/surfaces/ex_6.pst

input mp-solid

%14''
figureespace(-10u,-10u,10u,10u);
Initialisation(2000,-30,10,20);
incolor=0.5[gris,white];
outcolor=0.5[vert,white];
draw Sparam("((3*(1+sin(v))+2*(1-cos(v)/2)*cos(u))*cos(v),-2*(1-cos(v)/2)*sin(u),(4+2*(1-cos(v)/2)*cos(u))*sin(v))",0,2*pi,pi/24,0,2*pi,pi/24);
finespace;
end