Fichier ex08.mp (figure 1) — Modifié le 29 Août 2008 à 09 h 13
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