input mp-solid

figureespace(-10u,-10u,10u,10u);
Initialisation(100,5,10,25);
incolor:=0.5[jaune,white];
outcolor:=0.75[violet,blanc];
drawarrow Projette((0,0,0))--Projette((0,3,3)) withpen pencircle scaled2bp;
for l=-1 upto 5:
  draw Projette((l,-1,0))--Projette((l,5,0)) withcolor gris;
  draw Projette((-1,l,0))--Projette((5,l,0)) withcolor gris;
endfor;
TraceAxes;
drawarrow Projette((0,0,0))--Projette((0,3,3)) withpen pencircle scaled2bp;
draw Sparam("(6*(cos(u)**3)*sin(u),4*cos(u)*cos(u)+v,v)",0,2*pi,pi/30,0,2*sqrt(2),0.1);
finespace;
end