input mp-solid
 
figureespace(-10u,-10u,10u,10u);
Initialisation(1500,-25,30,30);
outcolor:=blanc;
eclairage:=false;
nb:=6;subh:=6;
Objetgrille0("am=-3","an=3","bm=-3","bn=3");
AffichageObjet0;
eclairage:=true;
nb:=1;
outcolor:=0.5[orange,blanc];
ObjetPrisme1("axe=(0,0,1)","h=6")(for k=0 step 10 until 90:(1+cosd(k),1+sind(k),0),endfor for k=90 step 10 until 180:(cosd(k)-1,1+sind(k),0), endfor for k=180 step 10 until 270:(cosd(k)-1,sind(k)-1,0), endfor for k=270 step 10 until 350:(cosd(k)+1,sind(k)-1,0), endfor (2,1,0));
AffichageObjet1;
TraceAxesD(4,4,8);
finespace;
end