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

ex05.mp (figure 1)
Source

%mathmuse.sci.ibaraki.ac.jp/geom/param13E.html

input mp-solid

%6''
figureespace(-10u,-10u,10u,10u);
Initialisation(2000,-90,40,15);
incolor=0.5[bleu,white];
outcolor=0.5[orange,white];
draw Sparam("(2*cos(u)*(1+sin(u))+8*(1-cos(u)/2)*(cos(v+pi)),3*sin(u),8*(1-cos(u)/2)*sin(v))",0,2*pi,pi/18,0,2*pi,pi/24);
finespace;
end