%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