doc/figures/hommage5.mp

   1 input mp-solid
   2
   3 %5"
   4 figureespace(-10u,-10u,10u,10u);
   5 Initialisation(500,20,10,10);
   6
   7 vardef Pp(expr R,h)=(0,0)--
   8 for k=-33 step 10 until 43:
   9  (cosd(k)*0.5*h-0.2*h,0.3*h+0.5*h*sind(k))--
  10 endfor
  11 for l=0 step 15 until 90:
  12   (0.8*R*cosd(l)+0.2*R,0.8*R*sind(l)+0.6*h)--
  13 endfor
  14 (0,h)
  15 enddef;
  16
  17 outcolor:=blanc;
  18 nb:=30;subh:=15;
  19 h=10;R=5;
  20 Ferme1:=true;
  21 ObjetAnneau1("nbp=18",Pp(R,h));
  22 angx:=-20;
  23 outcolor:=0.5[rouge,blanc];
  24 TR:=(-4,2.5,0);
  25 h:=5;R:=2.5;
  26 Ferme2:=true;
  27 ObjetAnneau2("nbp=18",Pp(R,h));
  28 angx:=30;
  29 TR:=(-4,-4,0);
  30 h:=4;R:=2;
  31 outcolor:=0.5[jaune,white];
  32 Ferme3:=true;
  33 ObjetAnneau3("nbp=18",Pp(R,h));
  34 nbobj:=3;
  35 DessineFusion;
  36 finespace;
  37 end