%% gh
%% Pile de récursivité

%% échelle et étendue de l'image
60 setxunit
0 11 setxrange
.5 4.5 setyrange

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% définitions des couleurs
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/coul0 {0 0 0 0.5 setcmykcolor} def %gris
/coul1 {noir} def
/coul2 {rouge} def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% construction
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
coul1
5 setdboxit
/linearc 0.3 store 
%%
boxit
(A11) node
<latex>
$3 \mapsto ?$
</latex>
1 1 [2.5 dup] cctexlabel

%%
coul0
boxit
(A21) node
<latex>
$3 \mapsto ?$
</latex>
2.5 1 [2.5 dup] cctexlabel

coul1
boxit
(A22) node
<latex>
$2 \mapsto ?$
</latex>
2.5 2 [2.5 dup] cctexlabel

%%
coul0
boxit
(A31) node
<latex>
$3 \mapsto ?$
</latex>
4 1 [2.5 dup] cctexlabel

coul0
boxit
(A32) node
<latex>
$2 \mapsto ?$
</latex>
4 2 [2.5 dup] cctexlabel

coul1
boxit
(A33) node
<latex>
$1 \mapsto ?$
</latex>
4 3 [2.5 dup] cctexlabel

%%
coul0
boxit
(A41) node
<latex>
$3 \mapsto ?$
</latex>
5.5 1 [2.5 dup] cctexlabel

coul0
boxit
(A42) node
<latex>
$2 \mapsto ?$
</latex>
5.5 2 [2.5 dup] cctexlabel

coul0
boxit
(A43) node
<latex>
$1 \mapsto ?$
</latex>
5.5 3 [2.5 dup] cctexlabel


coul2
boxit
(A44) node
<latex>
$0 \mapsto 1$
</latex>
5.5 4 [2.5 dup] cctexlabel

%%
coul0
boxit
(A51) node
<latex>
$3 \mapsto ?$
</latex>
7 1 [2.5 dup] cctexlabel

coul0
boxit
(A52) node
<latex>
$2 \mapsto ?$
</latex>
7 2 [2.5 dup] cctexlabel

coul2
boxit
(A53) node
<latex>
$1 \mapsto 1$
</latex>
7 3 [2.5 dup] cctexlabel

%%

coul0
boxit
(A61) node
<latex>
$3 \mapsto ?$
</latex>
8.5 1 [2.5 dup] cctexlabel

coul2
boxit
(A62) node
<latex>
$2 \mapsto 2$
</latex>
8.5 2 [2.5 dup] cctexlabel

%%
coul2
boxit
(A71) node
<latex>
$3 \mapsto 6$
</latex>
10 1 [2.5 dup] cctexlabel