%http://www.iecn.u-nancy.fr/~pincon/scilab/Doc/node75.html

input mp-solid

%invnormale:=-1;

%19''
figureespace(-10u,-10u,10u,10u);
Initialisation(1500,0,30,160);
incolor:=gris;
arcenciel:=true;
draw Sparam("((1+0.2*(1+0.4*sin(8*v))*cos(u))*cos(v),(1+0.2*(1+0.4*sin(8*v))*cos(u))*sin(v),0.2*(1+0.4*sin(8*v))*sin(u))",0,2*pi,0.12566,0,2*pi,0.12566);
finespace;
end