050.jps

%% 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