%Icositétraèdre trapézoïdal
%http://www.lassine.be/polyedres/catalan/icositetraedre_trapezoidal.html
input mp-solid

tau=1.61803;
xi=1.68941;

outcolor:=rouge;

figureespace(-10u,-10u,10u,10u);
Initialisation(1500,30,20,50);
ObjetNew1((0,0,-sqrt(2)),%
(0,-1,-1),%
(1,0,-1),%
(0,1,-1),%
(-1,0,-1),%
(0,-sqrt(2),0),%
(1,-1,0),%
(sqrt(2),0,0),%
(1,1,0),%
(0,sqrt(2),0),%
(-1,1,0),%
(-sqrt(2),0,0),%
(-1,-1,0),%
(0,-1,1),%
(1,0,1),%
(0,1,1),%
(-1,0,1),%
(0,0,sqrt(2)),%
(-(sqrt(2)+4)/7,-(sqrt(2)+4)/7,-(sqrt(2)+4)/7),%
((sqrt(2)+4)/7,-(sqrt(2)+4)/7,-(sqrt(2)+4)/7),%
((sqrt(2)+4)/7,(sqrt(2)+4)/7,-(sqrt(2)+4)/7),%
(-(sqrt(2)+4)/7,(sqrt(2)+4)/7,-(sqrt(2)+4)/7),%
((-sqrt(2)-4)/7,(-sqrt(2)-4)/7,(sqrt(2)+4)/7),%
((sqrt(2)+4)/7,(-sqrt(2)-4)/7,(sqrt(2)+4)/7),%
((sqrt(2)+4)/7,(sqrt(2)+4)/7,(sqrt(2)+4)/7),%
((-sqrt(2)-4)/7,(sqrt(2)+4)/7,(sqrt(2)+4)/7)%
)(4,0,1,18,4,%
4,0,2,19,1,%
4,0,3,20,2,%
4,0,4,21,3,%
4,4,18,12,11,%
4,1,5,12,18,%
4,1,19,6,5,%
4,2,7,6,19,%
4,2,20,8,7,%
4,3,9,8,20,%
4,3,21,10,9,%
4,4,11,10,21,%
4,11,12,22,16,%
4,5,13,22,12,%
4,5,6,23,13,%
4,6,7,14,23,%
4,7,8,24,14,%
4,8,9,15,24,%
4,9,10,25,15,%
4,10,11,16,25,%
4,13,17,16,22,%
4,13,23,14,17,%
4,14,24,15,17,%
4,15,25,16,17%
);
Ferme1:=true;
AffichageObjet1;
TraceAxes;
finespace;
end