input mp-solid;

%-1"
figureespace(-10u,-10u,10u,10u);
Initialisation(500,-20,40,20);
eclairage:=false;
outcolor:=blanc;
Objetgrille0("am=-6","an=6","bm=-6","bn=6");
AffichageObjet0;
outcolor:=jaune;
ObjetBiface1((5,0,0) for t=0.06544 step 0.06544 until pi:,(5*(cos(t)**2),(3*sin(t)*((cos(t))**3)),0) endfor);
angz:=90;
outcolor:=violet;
ObjetBiface2((5,0,0) for t=pi+0.06544 step 0.06544 until 2*pi:,(5*(cos(t)**2),(3*sin(t)*((cos(t))**3)),0) endfor);
angz:=180;
outcolor:=bleu;
ObjetBiface3((5,0,0) for t=0.06544 step 0.06544 until pi:,(5*(cos(t)**2),(3*sin(t)*((cos(t))**3)),0) endfor);
angz:=-90;
outcolor:=rouge;
ObjetBiface4((5,0,0) for t=0.06544 step 0.06544 until pi:,(5*(cos(t)**2),(3*sin(t)*((cos(t))**3)),0) endfor);
nbobj:=4;
DessineFusion;
TraceAxesD(6,6,6);
finespace;
end