Fichier ex08.mp (figure 1) — Modifié le 3 Août 2008 à 07 h 09
Source
%http://melusine.eu.org/lab/bpst/pst-solides3d/surfaces/corne.pst
input mp-solid
%2''
figureespace(-10u,-10u,10u,10u);
Initialisation(2000,50,20,30);
incolor=0.5[jaune,white];
outcolor=0.5[vert,white];
draw Sparam("((2+u*cos(v))*sin(2*pi*u),(2+u*cos(v))*cos(2*pi*u)+2*u,u*sin(v))",0,1,0.02,0,2*pi,pi/10);
finespace;
end