input mp-solid

figureespace(-10u,-10u,10u,10u);
Initialisation(500,60,20,25);
nb:=10; subh:=26;
eclairage:=false;
outcolor:=blanc;
Objetgrille1("am=-5","an=5","bm=-13","bn=13");
AffichageObjet1;
eclairage:=true;
outcolor:=0.5[rouge,blanc];
incolor:=0.5[vert,blanc];
subh:=3;
ObjetRuban2("h=2")(for t=-4*pi step (pi/12) until 47*pi/12:(2*sin(t),t,0), endfor(0,4*pi,0));
AffichageObjet2;
TraceAxes;
finespace;
end