Fichier ex04.mp (figure 1) — Modifié le 3 Août 2008 à 07 h 09
Source
%mathmuse.sci.ibaraki.ac.jp/geom/param13E.html
input mp-solid
%14''
figureespace(-10u,-10u,10u,10u);
Initialisation(2000,-40,40,15);
incolor=0.5[bleu,white];
outcolor=0.5[orange,white];
draw Sparam("(u*cos(cos(u))*cos(v),u*cos(cos(u))*sin(v),u*sin(cos(u)))",0.1,9*pi/2,pi/18,0,3*pi/2,pi/18);
finespace;
end