doc/figures/objetnew.mp

   1 %Hexaedre tetrakis
   2 %http://www.lassine.be/polyedres/catalan/hexaedre_tetrakis.html
   3 input mp-solid
   4
   5 outcolor:=1/2[rouge,white];
   6 incolor:=1/2[bleu,white];
   7
   8 intensite:=1.5;
   9 figureespace(-10u,-10u,10u,10u);
  10 Initialisation(2500,30,40,50);
  11 ObjetNew1((0,0,-3*sqrt(6)/4),%
  12 (-sqrt(3)/2,-3/2,-sqrt(6)/4),%
  13 (sqrt(3),0,-sqrt(6)/4),%
  14 (-sqrt(3)/2,3/2,-sqrt(6)/4),%
  15 (sqrt(3)/2,-3/2,sqrt(6)/4),%
  16 (-sqrt(3),0,sqrt(6)/4),%
  17 (sqrt(3)/2,3/2,sqrt(6)/4),%
  18 (0,0,3*sqrt(6)/4),%
  19 (-3*sqrt(3)/4,0,-3*sqrt(6)/8),%
  20 (3*sqrt(3)/8,-9/8,-3*sqrt(6)/8),%
  21 (3*sqrt(3)/8,9/8,-3*sqrt(6)/8),%
  22 (-3*sqrt(3)/8,-9/8,3*sqrt(6)/8),%
  23 (-3*sqrt(3)/8,9/8,3*sqrt(6)/8),%
  24 (3*sqrt(3)/4,0,3*sqrt(6)/8)%
  25 )(3,0,1,8,%
  26 3,0,8,3,%
  27 3,3,8,5,%
  28 3,1,5,8,%
  29 3,0,9,1,%
  30 3,0,2,9,%
  31 3,2,4,9,%
  32 3,1,9,4,%
  33 3,0,3,10,%
  34 3,0,10,2,%
  35 3,2,10,6,%
  36 3,3,6,10,%
  37 3,2,13,4,%
  38 3,2,6,13,%
  39 3,6,7,13,%
  40 3,4,13,7,%
  41 3,3,5,12,%
  42 3,3,12,6,%
  43 3,6,12,7,%
  44 3,5,7,12,%
  45 3,1,11,5,%
  46 3,1,4,11,%
  47 3,4,7,11,%
  48 3,5,11,7%
  49 );
  50 Ferme1:=true;
  51 AffichageObjet1;
  52 finespace;
  53 end