%http://melusine.eu.org/lab/bpst/pst-solides3d/surfaces/ex_5.pst

input mp-solid

invnormale:=-1;

%2''
figureespace(-10u,-10u,10u,10u);
Initialisation(4000,120,20,150);
incolor=0.5[rouge,white];
arcenciel:=true;
draw Sparam("(cos(u)*cos(v)*((abs(cos(3*u/4))+abs(sin(3*u/4)))**(-1))*((abs(cos(6*v/4))+abs(sin(6*v/4)))**(-1)),sin(u)*((abs(cos(3*u/4))+abs(sin(3*u/4)))**(-1)),cos(u)*sin(v)*((abs(cos(3*u/4))+abs(sin(3*u/4)))**(-1))*((abs(cos(6*v/4))+abs(sin(6*v/4)))**(-1)))",-pi/2,12*pi/24,pi/24,0,48*pi/24,pi/24);
finespace;
end