%k3dsurf Toupie

input mp-solid

%7''
figureespace(-10u,-10u,10u,10u);
Initialisation(1000,10,20,200);
incolor:=gris;
arcenciel:=true;
draw Sparam("(cosd(v)*((abs(u)-1)**2),(abs(u)-1)**2*sind(v),u)",-1,1,0.1,0,360,5);
finespace;
end