input mp-solid

figureespace(-10u,-10u,10u,10u);
Initialisation(500,30,30,10);
outcolor:=ciel;
subh:=4;
angx:=10;
Objetanneau1("R=8","r=6","h=3");
AffichageObjet1;
finespace;
figureespace(-10u,-10u,10u,10u);
Initialisation(500,30,30,25);
arcenciel:=true;
incolor:=jaune;
R:=4;
subh:=24;
path pp;
pp=for k=0 step 10 until 90:(R+1+cosd(k),1+sind(k))-- endfor for k=90 step 10 until 180:(R+cosd(k)-1,1+sind(k))-- endfor for k=180 step 10 until 270:(R+cosd(k)-1,sind(k)-1)-- endfor for k=270 step 10 until 350:(R+cosd(k)+1,sind(k)-1)-- endfor (R+2,1)--cycle;
ObjetAnneau1("nbp=42",pp);
AffichageObjet1;
finespace;
end