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