input mp-solid %5" figureespace(-10u,-10u,10u,10u); Initialisation(500,20,10,10); vardef Pp(expr R,h)=(0,0)-- for k=-33 step 10 until 43: (cosd(k)*0.5*h-0.2*h,0.3*h+0.5*h*sind(k))-- endfor for l=0 step 15 until 90: (0.8*R*cosd(l)+0.2*R,0.8*R*sind(l)+0.6*h)-- endfor (0,h) enddef; outcolor:=blanc; nb:=30;subh:=15; h=10;R=5; Ferme1:=true; ObjetAnneau1("nbp=18",Pp(R,h)); angx:=-20; outcolor:=0.5[rouge,blanc]; TR:=(-4,2.5,0); h:=5;R:=2.5; Ferme2:=true; ObjetAnneau2("nbp=18",Pp(R,h)); angx:=30; TR:=(-4,-4,0); h:=4;R:=2; outcolor:=0.5[jaune,white]; Ferme3:=true; ObjetAnneau3("nbp=18",Pp(R,h)); nbobj:=3; DessineFusion; TraceAxesD(11,11,11); finespace; end