input mp-solid

figureespace(-10u,-10u,10u,10u);
Initialisation(500,-30,20,30);
nb:=14; subh:=12;
eclairage:=false;
outcolor:=blanc;
Objetgrille1("am=-1","an=6","bm=-1","bn=5");
AffichageObjet1;
eclairage:=true;
outcolor:=0.5[rouge,blanc];
incolor:=0.5[vert,blanc];
subh:=3;
ObjetRuban2("h=2")((0,0,0),(2,2,0),(4,0,0),(6,2,0));
AffichageObjet2;
TraceAxes;
finespace;
end