%% 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
$3 \mapsto ?$
1 1 [2.5 dup] cctexlabel
%%
coul0
boxit
(A21) node
$3 \mapsto ?$
2.5 1 [2.5 dup] cctexlabel
coul1
boxit
(A22) node
$2 \mapsto ?$
2.5 2 [2.5 dup] cctexlabel
%%
coul0
boxit
(A31) node
$3 \mapsto ?$
4 1 [2.5 dup] cctexlabel
coul0
boxit
(A32) node
$2 \mapsto ?$
4 2 [2.5 dup] cctexlabel
coul1
boxit
(A33) node
$1 \mapsto ?$
4 3 [2.5 dup] cctexlabel
%%
coul0
boxit
(A41) node
$3 \mapsto ?$
5.5 1 [2.5 dup] cctexlabel
coul0
boxit
(A42) node
$2 \mapsto ?$
5.5 2 [2.5 dup] cctexlabel
coul0
boxit
(A43) node
$1 \mapsto ?$
5.5 3 [2.5 dup] cctexlabel
coul2
boxit
(A44) node
$0 \mapsto 1$
5.5 4 [2.5 dup] cctexlabel
%%
coul0
boxit
(A51) node
$3 \mapsto ?$
7 1 [2.5 dup] cctexlabel
coul0
boxit
(A52) node
$2 \mapsto ?$
7 2 [2.5 dup] cctexlabel
coul2
boxit
(A53) node
$1 \mapsto 1$
7 3 [2.5 dup] cctexlabel
%%
coul0
boxit
(A61) node
$3 \mapsto ?$
8.5 1 [2.5 dup] cctexlabel
coul2
boxit
(A62) node
$2 \mapsto 2$
8.5 2 [2.5 dup] cctexlabel
%%
coul2
boxit
(A71) node
$3 \mapsto 6$
10 1 [2.5 dup] cctexlabel