doc/figures/Sectionanneau.mp

   1 input mp-solid
   2
   3 figureespace(-10u,-10u,10u,10u);
   4 Initialisation(500,30,30,10);
   5 outcolor:=ciel;
   6 subh:=4;
   7 angx:=10;
   8 Objetanneau1("R=8","r=6","h=3");
   9 AffichageObjet1;
  10 finespace;
  11 figureespace(-10u,-10u,10u,10u);
  12 Initialisation(500,30,30,25);
  13 arcenciel:=true;
  14 incolor:=jaune;
  15 R:=4;
  16 subh:=24;
  17 path pp;
  18 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;
  19 ObjetAnneau1("nbp=42",pp);
  20 AffichageObjet1;
  21 finespace;
  22 end