Source : donyespacecube.mp

%%Sommets
NbS:=8;
Sommet1:=(0,0,1);
Sommet2:=(-0.4714045,0.8164965,1/3);
Sommet3:=(0.4714045,0.8164965,-1/3);
Sommet4:=(0.942809,0,1/3);
Sommet5:=(-0.4714045,-0.8164965,1/3);
Sommet6:=(-0.942809,0,-1/3);
Sommet7:=(0,0,-1);
Sommet8:=(0.4714045,-0.8164965,-1/3);
%%Faces
NF:=6;
Fc[100]:=4;Fc[101]:=1;Fc[102]:=4;Fc[103]:=3;Fc[104]:=2;
Fc[200]:=4;Fc[201]:=4;Fc[202]:=8;Fc[203]:=7;Fc[204]:=3;
Fc[300]:=4;Fc[301]:=8;Fc[302]:=4;Fc[303]:=1;Fc[304]:=5;
Fc[400]:=4;Fc[401]:=5;Fc[402]:=1;Fc[403]:=2;Fc[404]:=6;
Fc[500]:=4;Fc[501]:=6;Fc[502]:=2;Fc[503]:=3;Fc[504]:=7;
Fc[600]:=4;Fc[601]:=7;Fc[602]:=8;Fc[603]:=5;Fc[604]:=6;