hexagrammes=[1 1 1 1 1 1
             0 0 0 0 0 0
			 0 1 0 0 1 0
			 1 0 0 0 1 0
			 0 1 0 1 1 1
			 1 1 1 0 1 0
			 0 0 0 0 1 0
			 0 1 0 0 0 0
			 1 1 0 1 1 1
			 1 1 1 0 1 1
			 0 0 0 1 1 1
			 1 1 1 0 0 0
			 1 1 1 1 0 1
			 1 0 1 1 1 1
			 0 0 0 1 0 0
			 0 0 1 0 0 0
			 0 1 1 0 0 1
			 1 0 0 1 1 0
			 0 0 0 0 1 1
			 1 1 0 0 0 0
			 1 0 1 0 0 1
			 1 0 0 1 0 1
			 1 0 0 0 0 0
			 0 0 0 0 0 1
			 1 1 1 0 0 1
			 1 0 0 1 1 1
			 1 0 0 0 0 1
			 0 1 1 1 1 0
			 0 1 0 0 1 0
			 1 0 1 1 0 1
			 0 1 1 1 0 0
			 0 0 1 1 1 0
			 1 1 1 1 0 0
			 0 0 1 1 1 1
			 1 0 1 0 0 0
			 0 0 0 1 0 1
			 1 1 0 1 0 1
			 1 0 1 0 1 1
			 0 1 0 1 0 0
			 0 0 1 0 1 0
			 1 0 0 0 1 1
			 1 1 0 0 0 1
			 0 1 1 1 1 1
			 1 1 1 1 1 0
			 0 1 1 0 0 0
			 0 0 0 1 1 0
			 0 1 1 0 1 0
			 0 1 0 1 1 0
			 0 1 1 1 0 1
			 1 0 1 1 1 0
			 0 0 1 0 0 1
			 1 0 0 1 0 0
			 1 1 0 1 0 0
			 0 0 1 0 1 1
			 0 0 1 1 0 1
			 1 0 1 1 0 0
			 1 1 0 1 1 0
			 0 1 1 0 1 1
			 1 1 0 0 1 0
			 0 1 0 0 1 0
			 1 1 0 0 1 1
			 0 0 1 1 0 0
			 0 1 0 1 0 1
			 1 0 1 0 1 0];
			 
hexagrammes=fliplr(hexagrammes);
etiq_x=['Ch''ien    '
        'K''un      '
		'Chun      '
		'Mêng      '
		'Hsu       '
		'Sung      '
		'Shih      '
		'Pi        '
		'Hsiao Ch''u'
		'Lu        '
		'T''ai      '
		'P''i       '
		'T''ung Jên '
		'Ta Yu     '
		'Ch''ien    '
		'Sui       '
		'Sui       '
		'Ku        '
		'lin       '
		'Kuan      '
		'Shih Ho   '
		'Pi        '
		'Po        '
		'Fu        '
		'Wu Wang   '
		'Ta Ch''u   '
		'I         '
		'Ta Kuo    '
		'K''an      '
		'Li        '
		'Hsien     '
		'Hêng      '
		'Tun       '
		'Ta Chuang '
		'Chin      '
		'Ming I    '
		'Chia Jên  '
		'K''uei     '
		'Chien     '
		'Hsieh     '
		'Sun       '
		'I         '
		'Kuai      '
		'Kou       '
		'Ts''ui     '
		'Shêng     '
		'K''un      '
		'Ching     '
		'Ko        '
		'Ting      '
		'Chên      '
		'Kên       '
		'Chien     '
		'Kuei Mei  '
		'Fêng      '
		'Lu        '
		'Sun       '
		'Tui       '
		'Huan      '
		'Chieh     '
		'Chung Fu  '
		'Hsiao Kuo '
		'Chi Chi   '
		'Wei Chi   '];

clf
for i=1:64
	subplot(8,8,i)
	text(0.12,0.75,etiq_x(i,:),'FontSize',9)
	text(0.4,-0.2,num2str(i),'FontSize',9)
	hold on
	if hexagrammes(i,1)
		plot([0 1],[0 0],'-','linewidth',2)
	else
		plot([0 0.4],[0 0],'-','linewidth',2)
		plot([0.6 1],[0 0],'-','linewidth',2)
	end
	if hexagrammes(i,2)
		plot([0 1],[0.1 0.1],'-','linewidth',2)
	else
		plot([0 0.4],[0.1 0.1],'-','linewidth',2)
		plot([0.6 1],[0.1 0.1],'-','linewidth',2)
	end
	if hexagrammes(i,3)
		plot([0 1],[0.2 0.2],'-','linewidth',2)
	else
		plot([0 0.4],[0.2 0.2],'-','linewidth',2)
		plot([0.6 1],[0.2 0.2],'-','linewidth',2)
	end
	if hexagrammes(i,4)
		plot([0 1],[0.3 0.3],'-','linewidth',2)
	else
		plot([0 0.4],[0.3 0.3],'-','linewidth',2)
		plot([0.6 1],[0.3 0.3],'-','linewidth',2)
	end
	if hexagrammes(i,5)
		plot([0 1],[0.4 0.4],'-','linewidth',2)
	else
		plot([0 0.4],[0.4 0.4],'-','linewidth',2)
		plot([0.6 1],[0.4 0.4],'-','linewidth',2)
	end
	if hexagrammes(i,6)
		plot([0 1],[0.5 0.5],'-','linewidth',2)
	else
		plot([0 0.4],[0.5 0.5],'-','linewidth',2)
		plot([0.6 1],[0.5 0.5],'-','linewidth',2)
	end
	axis equal
	axis off
end

set(gcf,'color','w')
hold off


