input mp-solid

figureespace(-10u,-10u,10u,10u);
Initialisation(500,60,20,25);
nb:=17; subh:=20;
eclairage:=false;
drawoptions(withcolor gris);
outcolor:=blanc;
Objetgrille1("am=-5.5","an=3","bm=-5","bn=5");
AffichageObjet1;
drawoptions();
eclairage:=true;
outcolor:=0.5[rouge,blanc];
incolor:=0.5[vert,blanc];
subh:=3;
ObjetRuban2("h=2")(for t=-pi step pi/36 until 35*pi/36:1.5*(2*cos(t)-cos(2*t),2*sin(t)-sin(2*t),0), endfor(-4.5,0,0));
AffichageObjet2;
TraceAxesD(3.5,5.5,4);
finespace;
end