% Troncature des polyèdres: on part des cinq polyèdres
% réguliers et on obtient 7 polyèdres semi-réguliers
% simples.

% Jean-Bernard ROUX. Collège de Saussure, 1998

% Si les matrices ne sont pas définies on exécute POLYEDRE.M
if ~(exist('ST') & exist('FT') & exist ('SH') & exist('FH') & ...
	exist('SO') & exist ('FO') & exist ('SD') & exist('FD') & ...
	exist('SI') & exist ('FI'))
	polyedres
end

% Tétraèdre tronqué
k=1/3;
[STT,FTT]=faceTronquee(ST,FT,k);
[STN,FTN]=faceNouvelle(ST,FT,AT,k);

% Cubes tronqués
k=1/2;	% cuboctaèdre
[SHT1,FHT1]=faceTronquee(SH,FH,k);
[SHN1,FHN1]=faceNouvelle(SH,FH,AH,k);
k=1-sqrt(2)/2;	% cube tronqué
[SHT2,FHT2]=faceTronquee(SH,FH,k);
[SHN2,FHN2]=faceNouvelle(SH,FH,AH,k);

% Octaèdres tronqués
k=1/2;		% cubocatèdre
[SOT1,FOT1]=faceTronquee(SO,FO,k);
[SON1,FON1]=faceNouvelle(SO,FO,AO,k);
k=1/3;		% octaèdre tronqué
[SOT2,FOT2]=faceTronquee(SO,FO,k);
[SON2,FON2]=faceNouvelle(SO,FO,AO,k);

% Dodécaèdres tronqués
k=1/2;	% icosidodécaèdre
[SDT1,FDT1]=faceTronquee(SD,FD,k);
[SDN1,FDN1]=faceNouvelle(SD,FD,AD,k);
T=(1+sqrt(5))/2;
k=1/(T+2);	% dodécaèdre tronqué
[SDT2,FDT2]=faceTronquee(SD,FD,k);
[SDN2,FDN2]=faceNouvelle(SD,FD,AD,k);

% Icosaèdres tronqués
k=1/2;	% icosidodécaèdre
[SIT1,FIT1]=faceTronquee(SI,FI,k);
[SIN1,FIN1]=faceNouvelle(SI,FI,AI,k);
k=1/3;	% icosaaèdre tronqué
[SIT2,FIT2]=faceTronquee(SI,FI,k);
[SIN2,FIN2]=faceNouvelle(SI,FI,AI,k);

