2 %http://www.lassine.be/polyedres/catalan/hexaedre_tetrakis.html
5 outcolor:=1/2[rouge,white];
6 incolor:=1/2[bleu,white];
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),%
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)%