% définition du motif

% Sommets. S est le motif sans rotation
%   1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0
S=[0 1 2 3 4 5 0 5 0 5 0 5 0 5 0 1 2 3 4 5
   0 0 0 0 0 0 1 1 2 2 3 3 4 4 5 5 5 5 5 5]; % 0°

% Faces
F=[4 10 12 18 17  0
   3  1  2  7  0  0
   3  5  6  8  0  0
   5  9 14 20 19 11
   5  3  4 16 15 13];
   
% Arêtes
A{1}=[10 17;12 18];
A{2}=[2 7];
A{3}=[5 8];
A{4}=[9 14;11 19];
A{5}=[3 13;4 16];

% coloriage des pavés
coul0(1,1,:)=[1 1 1 1 1];
coul0(1,2,:)=[1 1 1 1 1];
coul0(2,1,:)=[1 1 1 1 1];
coul0(2,2,:)=[1 1 1 1 1];

coul1(1,1,:)=[2 1 2 1 2];
coul1(1,2,:)=[2 1 2 1 2];
coul1(2,1,:)=[2 1 2 1 2];
coul1(2,2,:)=[2 1 2 1 2];

coul2(1,1,:)=[1 2 1 1 1];
coul2(1,2,:)=[1 1 2 1 1];
coul2(2,1,:)=[1 1 1 2 1];
coul2(2,2,:)=[1 1 1 2 1];

coul3(1,1,:)=[1 4 7 8 6];
coul3(1,2,:)=[1 3 5 8 7];
coul3(2,1,:)=[1 4 7 8 6];
coul3(2,2,:)=[1 3 5 8 7];
coul3(1,3,:)=[2 3 8 7 5];
coul3(1,4,:)=[2 4 6 7 8];
coul3(2,3,:)=[2 3 8 7 5];
coul3(2,4,:)=[2 4 6 7 8];

coul4=[coul3 coul3 coul3
       coul3 coul3 coul3
	   coul3 coul3 coul3
	   coul3 coul3 coul3
	   coul3 coul3 coul3
	   coul3 coul3 coul3];

% ordre des couleurs
ordre=[5 4 2 2 5 3 3 1 4 4 1 5];

% matrice des couleurs
C=[1 0 1	% magenta
   1 0 0	% rouge
   0 0 1	% bleu
   0 1 0	% vert
   0 1 1	% cyan
   1 1 0	% jaune
   0.2745    0.0941    0.7765
     1.0000    0.4588    0.0941];	
   
% motifs
motif1.m=[1 -3;-3 1];
motif1.a=[0 1 1 0];

motif2.m=[1 4;-3 -2];
motif2.a=[0 0 1 1];

motif3.m=[1 2;-1 -2];
motif3.a=[0 0 0 0];

motif0.m=[1 2; 2 1];
motif0.a=[0 0 0 0];

motif6.m=[1 -3; 4 -2];
motif6.a=[0 1 0 1];

% représentation du motif
pavage_escher.S=S;
pavage_escher.F=F;
pavage_escher.A=A;
pavage_escher.C=C;
pavage_escher.coul=coul0+7;
pavage_escher.ordre=ordre;
pavage_escher.dim=5;
pavage_escher.motifm=motif6.m;
pavage_escher.motifa=motif6.a;

EscherPattern(10,10,pavage_escher)
set(gcf,'color','w')
   
   
