input mp-solid

%
figureespace(-20u,-20u,20u,20u);
Initialisation(5000,-25,30,20);
eclairage:=false;
outcolor:=blanc;
drawoptions(withcolor gris);
Objetgrille1("am=-5","an=5","bm=-5","bn=5");
AffichageObjet1;
drawoptions();
eclairage:=true;
creux:=true;
nb:=1;
subh:=5;
incolor:=0.5[vert,blanc];
outcolor:=0.5[marron,blanc];
ObjetPrisme1("axe=(0,0,1)","h=8")(for t=0 step 5 until 355:(4*(cosd(t)**3),4*(sind(t)**3),0), endfor (4,0,0));
AffichageObjet1;
TraceAxesD(6,6,10);
finespace;
end