doc/figures/objetoctaedre.mp

   1 input mp-solid
   2
   3 figureespace(-10u,-10u,10u,10u);
   4 Initialisation(1500,70,20,150);
   5 outcolor:=jaune;
   6 incolor:=0.5[vert,blanc];
   7 Objetoctaedre1("a=1");
   8 nb:=24;subh:=36;
   9 creux:=true;
  10 Objetsphere2("R=1");
  11 string toto;
  12 toto=""&for k=0 upto apj2-2:if ((k div 18) mod 2)=1:decimal(k)&","& fi endfor decimal(863)&"";
  13 ObjetEnleve2(scantokens toto);
  14 nbobj:=2;
  15 DessineFusion;
  16 finespace;
  17 end