\input fig4tex.tex
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%% DEBUT DESSIN patron cube
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\figinit{0.5cm}
% axe
\figpt 1:(0,0)\figpt 2:(2,0)\figpt 3:(2,-2)\figpt 4:(4,-2)\figpt 5:(4,-4)
\figpt 6:(2,-4)\figpt 7:(2,-6)\figpt 8:(2,-8)\figpt 9:(0,-8)\figpt 10:(0,-6)\figpt 11:(0,-4)\figpt 12:(0,-2)
\figpt 13:(-2,-2)\figpt 14:(-2,-4)\figpt 15:(4,0)\figpt 16:(-2,0)\figpt 17:(-2,-6)\figpt 18:(-2,-8)\figpt 19:(4,-6)\figpt 20:(4,-8)\figpt 22:(2,2)\figpt 21:(0,2)
%%%%%%%%%%%%%%%%%%%%%
%% fichier graphique
%%%%%%%%%%%%%%%%%%%
\psbeginfig{}
\psline[1,2,3,4,5,6,7,8,9,10,11,14,13,12,1]\psline[11,12,3,6,11]\psline[7,10]
\psendfig
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\newbox\figpatroncube
\figvisu{\figpatroncube}{}{}
%%%%%%%%%%%%%%%%%%%
\psbeginfig{}
\psline[16,15,4,3,8,9,12,13,16]\psline[1,12]\psline[12,3]\psline[10,7]\psline[9,8]\psline[11,6,3,2]
\psendfig
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\newbox\figpatroncubedeux
\figvisu{\figpatroncubedeux}{}{}
%
%%%%%%%%%%%%%%%%%%%
\psbeginfig{}
\psline[16,2,3,4,5,6,8,9,12,13,16]\psline[1,12]\psline[12,3]\psline[3,6]\psline[9,8]\psline[11,6]\psline[7,10]
\psendfig
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\newbox\figpatroncubetrois
\figvisu{\figpatroncubetrois}{}{}
%
%%%%%%%%%%%%%%%%%%%
\psbeginfig{}
\psline[16,2,7,19,20,9,12,13,16]\psline[1,12]\psline[12,3]\psline[3,6]\psline[9,8]\psline[11,6]\psline[7,10]
\psline[7,8]
\psendfig
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\newbox\figpatroncubequatre
\figvisu{\figpatroncubequatre}{}{}
%%%%%%%%%%%%%%%%%%%
\psbeginfig{}
\psline[1,2,3,8,9,11,14,13,12,1]\psline[6,5,19,10]\psline[6,11,12,3]
\psendfig
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\newbox\figpatroncubecinq
\figvisu{\figpatroncubecinq}{}{}
%%%%%%%%%%%%%%%%%%%
\psbeginfig{}
\psline[13,3,2,15,5,6,8,9,11,14,13]\psline[12,11,6,3,4]\psline[7,10]
\psendfig
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\newbox\figpatroncubesix
\figvisu{\figpatroncubesix}{}{}
%%%%%%%%%%%%%%%%%%%
\psbeginfig{}
\psline[2,15,5,6,8,9,10,17,14,11,12,3,2]\psline[7,10,11,6,3,4]
\psendfig
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\newbox\figpatroncubesept
\figvisu{\figpatroncubesept}{}{}
%%%%%%%%%%%%%%%%%%%
\psbeginfig{}
\psline[2,15,5,6,8,18,17,10,12,3,2]\psline[9,10,7]\psline[11,6,3,4]
\psendfig
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\newbox\figpatroncubehuit
\figvisu{\figpatroncubehuit}{}{}
%%%%%%%%%%%%%%%%%%%
\psbeginfig{}
\psline[21,22,6,11,9,18,13,12,21]\psline[1,2]\psline[3,12,11,14]\psline[17,10]
\psendfig
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\newbox\figpatroncubeneuf
\figvisu{\figpatroncubeneuf}{}{}
%%%%%%%%%%%%%%%%%%%
\psbeginfig{}
\psline[16,2,6,5,19,7,8,9,12,13,16]\psline[1,12,3]\psline[11,6,7,10]
\psendfig
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\newbox\figpatroncubedix
\figvisu{\figpatroncubedix}{Les onze patrons du cube}{}
%%%%%%%%%%%%%%%%%%%
\psbeginfig{}
\psline[14,11,12,3,2,15,5,6,7,10,9,18,14]\psline[4,3,6,11,10,17]
\psendfig
%%%%%%%%%%%%%%%%%%%
%% writing
%%%%%%%%%%%%%%%%%%%
\newbox\figpatroncubeonze
\figvisu{\figpatroncubeonze}{}{}
\bigskip
%%%%%%%%%%%%%%%%%%%
\centerline{\hfill\box\figpatroncube\hfill\box\figpatroncubedeux\hfill\box\figpatroncubetrois\hfill\box\figpatroncubequatre\hfill}\bigskip
\centerline{\hfill\box\figpatroncubecinq\hfill\box\figpatroncubesix\hfill\box\figpatroncubesept\hfill\box\figpatroncubehuit\hfill}\bigskip
\centerline{\hfill\box\figpatroncubeneuf\hfill\box\figpatroncubedix\hfill\box\figpatroncubeonze\hfill}\bigskip
\bye