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

ex12.mp (figure 1)
Source

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

input mp-solid

%1''
figureespace(-10u,-10u,10u,10u);
Initialisation(4000,120,20,20);
incolor=0.5[rouge,white];
outcolor=0.5[bleu,white];
draw Sparam("(cos(u)*(4*sqrt(1-(v**2))*sin(abs(u))**abs(u)),v,sin(u)*(4*sqrt(1-(v**2))*sin(abs(u))**abs(u)))",-20*pi/30,29*pi/30,pi/30,-0.9,0.9,0.1);
finespace;
end