% script de définition des 5 polyèdres réguliers
% ST et FT définissent le tétraèdre
% SH et FH définissent le hexaaèdre ou cube
% SO et FO définissent le octaèdre
% SD et FD définissent le dodécaèdre
% SI et FI définissent l'icosaèdre
% Pour représenter, utiliser PLOT3D(S,F,TYPE)

% J.-B. Roux, octobre 1998

% Sommets du tétraèdre régulier

c=1/sqrt(3);
b=sqrt(2);
a=c*b;

ST=[0   0 3*c
    2*a 0 -c
    -a  b -c
    -a -b -c];
	
% Faces du tétraèdre

FT=[4 1 2 3 1
    4 1 4 2 1
	4 1 3 4 1
	4 2 4 3 2];
	
AT=[1 2;1 3;1 4;2 1;2 3;2 4;3 1;3 2;3 4;4 1;4 2;4 3];


%plot3d(ST,FT)
% pause

% sommets du cube ou hexaèdre régulier

a=1/sqrt(2);

SH=a.*[ 1  1  1
       -1  1  1
	   -1 -1  1
	    1 -1  1
	    1  1 -1
	   -1  1 -1
	   -1 -1 -1
	    1 -1 -1];

% faces de l'hexaèdre

FH=[5 1 2 3 4 1
    5 1 5 6 2 1
	5 1 4 8 5 1
	5 3 7 8 4 3
	5 2 6 7 3 2
	5 5 8 7 6 5];
	
AH=[1 2;1 4;1 5;2 6;2 3;2 1;3 7; 3 4;3 2;4 1;4 3;4 8;5 1;5 8;5 6; ...
    6 7;6 5;6 2;7 8;7 3;7 6;8 5;8 4;8 7];

% plot3d(SH,FH)
% pause

% sommets de l'octaèdre

a=sqrt(2);

SO=[ 0  0  a
     0  a  0
	 a  0  0
	 0 -a  0
	-a  0  0
	 0  0 -a];

% faces de l'octaèdre
FO=[4 1 3 4 1
    4 1 4 5 1
	4 1 5 2 1
	4 1 2 3 1
	4 6 3 2 6
	4 6 4 3 6
	4 6 5 4 6
	4 6 2 5 6];
	
AO=[1 2;1 5;1 4;1 3;2 5;2 1;2 3;2 6;3 1;3 4;3 6;3 2;4 1;4 5;4 6;4 3;...
    5 1;5 2;5 6;5 4;6 3;6 2;6 5;6 4];

% plot3d(SO,FO)
% pause

% Sommets de l'icosaèdre

SI =[0.89442719099992                  0   0.44721359549996
   0.27639320225002   0.85065080835204   0.44721359549996
  -0.72360679774998   0.52573111211913   0.44721359549996
  -0.72360679774998  -0.52573111211913   0.44721359549996
   0.27639320225002  -0.85065080835204   0.44721359549996
                  0                  0   1.00000000000000
                  0                  0  -1.00000000000000
  -0.89442719099992                  0  -0.44721359549996
  -0.27639320225002  -0.85065080835204  -0.44721359549996
   0.72360679774998  -0.52573111211913  -0.44721359549996
   0.72360679774998   0.52573111211913  -0.44721359549996
  -0.27639320225002   0.85065080835204  -0.44721359549996];

% Faces de l'icosaèdre
  
FI=[4 1  2  6 1
   4 2  3  6 2
   4 3  4  6 3
   4 4  5  6 4
   4 5  1  6 5
   4 5 10  1 5
   4 1 10 11 1
   4 1 11  2 1
   4 2 11 12 2
   4 2 12  3 2
   4 3 12  8 3
   4 3  8  4 3
   4 4  8  9 4
   4 4  9  5 4
   4 5  9 10 5
   4 7 12 11 7
   4 7  8 12 7
   4 7  9  8 7
   4 7 10  9 7
   4 7 11 10 7 ];

AI=[1 2;1 6;1 5;1 10;1 11;2 1;2 11;2 12;2 3;2 6;3 2;3 6;3 4;3 8;3 12;4 3;4 8;4 9;4 5;4 6;...
    5 1;5 6;5 4;5 9;5 10;6 1;6 2;6 3;6 4;6 5;7 12;7 11;7 10;7 9;7 8;8 7;8 9;8 4;8 3;8 12; ...
	9 4;9 5;9 10;9 7;9 8;10 9;10 7;10 11;10 1;10 5;11 1;11 2;11 12;11 7;11 10;12 11;12 2;12 3;12 8;12 7];
	
% plot3d(SI,FI)
% pause

% Sommets du dodécaèdre

SD=[0          0.607062    0.7946545 % 1
   -0.5773503  0.1875925   0.7946545 % 2
   -0.3568221 -0.4911235   0.7946545 % 3
    0.3568221 -0.4911235   0.7946545 % 4
    0.5773503  0.1875925   0.7946545 % 5
    0          0.982247    0.1875925 % 6
   -0.9341724  0.303531    0.1875925 % 7
   -0.5773503 -0.7946545   0.1875925 % 8
    0.5773503 -0.7946545   0.1875925 % 9
    0.9341724  0.303531    0.1875925 % 10
    0         -0.982247   -0.1875925 % 11
    0.9341724 -0.303531   -0.1875925 % 12
    0.5773503  0.7946545  -0.1875925 % 13
   -0.5773503  0.7946545  -0.1875925 % 14
   -0.9341724 -0.303531   -0.1875925 % 15
   -0.5773503 -0.1875925  -0.7946545 % 16
   -0.3568221  0.4911235  -0.7946545 % 17
    0.3568221  0.4911235  -0.7946545 % 18
    0.5773503 -0.1875925  -0.7946545 % 19
    0         -0.607062   -0.7946545 ];% 20
   
   
% Faces du dodécaèdre

FD=[6  1  2  3  4  5  1  % 1
    6  1  5 10 13  6  1  % 2
	6  4  9 12 10  5  4  % 3
	6  3  8 11  9  4  3  % 4
	6  9 11 20 19 12  9  % 5
	6 10 12 19 18 13 10  % 6
	6  2  7 15  8  3  2  % 7
	6  1  6 14  7  2  1  % 8
	6  8 15 16 20 11  8  % 9
	6  7 14 17 16 15  7  % 10
	6  6 13 18 17 14  6  % 11
	6 17 18 19 20 16 17];  % 12 

AD=[1 5;1 6;1 2;2 1;2 7;2 3;3 4;3 2;3 8;4 3;4 9;4 5;5 1;5 4;5 10;6 1;6 13;6 14; ...
    7 2;7 14;7 15;8 11;8 3;8 15;9 4;9 11;9 12;10 13;10 5;10 12;11 9;11 8;11 20; ...
	12 10;12 9;12 19;13 10;13 18;13 6;14 6;14 17;14 7;15 7;15 16;15 8;16 15;16 17;16 20; ...
	17 14;17 13;17 16;18 13;18 19;18 17;19 12;19 20;19 18;20 19;20 11;20 16];
% plot3d(SD,FD)

% on purge

clear a b c
