%% gh %% Tri insertion %% échelle et étendue de l'image 60 setxunit -.5 13 setxrange -1.5 7.5 setyrange %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% définitions des couleurs %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /coul0 {0 0 0 0.5 setcmykcolor} def %gris /coul1 {noir} def /coul2 {orange} def /coul3 {rouge} def /coul4 {bleu} def %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% les cases colorées %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% /fillstyle {coul2 fill} def 0 0 7 1 frame* 0 5 6 6 frame* /fillstyle {coul4 fill} def 3 0 4 1 frame* 6 5 7 6 frame* 10.7 2 11.7 3 frame* % la case "garage" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% les cadres de tableau %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% coul1 [0 0 12 0 12 1 0 1 0 0] (-) ligne [1 0 1 1] (-) ligne [2 0 2 1] (-) ligne [3 0 3 1] (-) ligne [4 0 4 1] (-) ligne [5 0 5 1] (-) ligne [6 0 6 1] (-) ligne [7 0 7 1] (-) ligne [8 0 8 1] (-) ligne [9 0 9 1] (-) ligne [10 0 10 1] (-) ligne [11 0 11 1] (-) ligne [0 5 12 5 12 6 0 6 0 5] (-) ligne [1 5 1 6] (-) ligne [2 5 2 6] (-) ligne [3 5 3 6] (-) ligne [4 5 4 6] (-) ligne [5 5 5 6] (-) ligne [6 5 6 6] (-) ligne [7 5 7 6] (-) ligne [8 5 8 6] (-) ligne [9 5 9 6] (-) ligne [10 5 10 6] (-) ligne [11 5 11 6] (-) ligne % [10.7 2 11.7 2 11.7 3 10.7 3 10.7 2] (-) ligne % la case "garage" %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% les indices %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% coul0 $0$ .5 1.5 [2.5 dup] cctexlabel $1$ 1.5 1.5 [2.5 dup] cctexlabel $2$ 2.5 1.5 [2.5 dup] cctexlabel $i$ 6.5 1.5 [2.5 dup] cctexlabel coul0 $0$ .5 6.5 [2.5 dup] cctexlabel $1$ 1.5 6.5 [2.5 dup] cctexlabel $2$ 2.5 6.5 [2.5 dup] cctexlabel $i$ 6.5 6.5 [2.5 dup] cctexlabel %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% les commentaires et flèches %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% coul1 1.5 setlinewidth /arrowscale {2.5 dup} def % trié haut (node1) node () 0 4.5 cctext (node2) node () 6 4.5 cctext (node1) (node2) (<->) ncline triés 3 4.5 [2.5 dup] dctexlabel % trié bas (node3) node () 0 -.5 cctext (node4) node () 7 -.5 cctext (node3) (node4) (<->) ncline triés 3.5 -.5 [2.5 dup] dctexlabel % case garage (casei_haut) node () 6.5 4.8 cctext (garage) node () 10.5 2.5 cctext (ou_va_casei) node () 3.5 1.2 cctext % autres cases (case5haut) node () 5.5 4.8 cctext (case4haut) node () 4.5 4.8 cctext (case3haut) node () 3.5 4.8 cctext (case6bas) node () 6.5 1.2 cctext (case5bas) node () 5.5 1.2 cctext (case4bas) node () 4.5 1.2 cctext % les transferts, dans l'ordre ! (casei_haut) (garage) (->) ncarc (case5haut) (case6bas) (->) ncarc (case4haut) (case5bas) (->) ncarc (case3haut) (case4bas) (->) ncarc (ou_va_casei) (garage) (<-) ncarc