%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