%% gh
%% Tri fusion

%% échelle et étendue de l'image
60 setxunit
0 16 setxrange
-1 10 setyrange
/gauche {xmax -.5 add} def
/droite {xmin .5 add} def
/h1 {xmax xmin sub 2 div} def
/h2 {h1 2 div} def
/h3 {h2 2 div} def
/h4 {h3 2 div} def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% 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 différentes lignes avant et après tri
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% ligne 1 du haut
coul4
(haut_ligne1) node
3 setdboxit
boxit
<latex>
[5;1;6;3;2;7;8;2]
</latex>
xmin h1 add 9 [2.5 dup] uctexlabel

coul3
(bas_ligne1) node
3 setdboxit
boxit
<latex>
[1;2;2;3;5;6;7;8]
</latex>
xmin h1 add 9 [2.5 dup] dctexlabel

% ligne 2
coul4
(haut_ligne2_1) node
3 setdboxit
boxit
<latex>
[5;1;6;3]
</latex>
xmin h2 add 6 [2.5 dup] uctexlabel

coul3
(bas_ligne2_1) node
3 setdboxit
boxit
<latex>
[1;3;5;6]
</latex>
xmin h2 add 6 [2.5 dup] dctexlabel

coul4
(haut_ligne2_2) node
3 setdboxit
boxit
<latex>
[2;7;8;2]
</latex>
xmin h2 3 mul add 6 [2.5 dup] uctexlabel

coul3
(bas_ligne2_2) node
3 setdboxit
boxit
<latex>
[2;2;7;8]
</latex>
xmin h2 3 mul add 6 [2.5 dup] dctexlabel

% ligne 3
coul4
(haut_ligne3_1) node
3 setdboxit
boxit
<latex>
[5;1]
</latex>
xmin h3 add 3 [2.5 dup] uctexlabel

coul3
(bas_ligne3_1) node
3 setdboxit
boxit
<latex>
[1;5]
</latex>
xmin h3 add 3 [2.5 dup] dctexlabel

coul4
(haut_ligne3_2) node
3 setdboxit
boxit
<latex>
[6;3]
</latex>
xmin h3 3 mul add 3 [2.5 dup] uctexlabel

coul3
(bas_ligne3_2) node
3 setdboxit
boxit
<latex>
[3;6]
</latex>
xmin h3 3 mul add 3 [2.5 dup] dctexlabel

coul4
(haut_ligne3_3) node
3 setdboxit
boxit
<latex>
[2;7]
</latex>
xmin h3 5 mul add 3 [2.5 dup] uctexlabel

coul3
(bas_ligne3_3) node
3 setdboxit
boxit
<latex>
[2;7]
</latex>
xmin h3 5 mul add 3 [2.5 dup] dctexlabel

coul4
(haut_ligne3_4) node
3 setdboxit
boxit
<latex>
[8;2]
</latex>
xmin h3 7 mul add 3 [2.5 dup] uctexlabel

coul3
(bas_ligne3_4) node
3 setdboxit
boxit
<latex>
[2;8]
</latex>
xmin h3 7 mul add 3 [2.5 dup] dctexlabel

% ligne 4 (moitié de gauche)
coul4
(haut_ligne4_1) node
3 setdboxit
boxit
<latex>
[5]
</latex>
xmin h4 add 0 [2.5 dup] uctexlabel

coul3
(bas_ligne4_1) node
3 setdboxit
boxit
<latex>
[5]
</latex>
xmin h4 add 0 [2.5 dup] dctexlabel

coul4
(haut_ligne4_2) node
3 setdboxit
boxit
<latex>
[1]
</latex>
xmin h4 3 mul add 0 [2.5 dup] uctexlabel

coul3
(bas_ligne4_2) node
3 setdboxit
boxit
<latex>
[1]
</latex>
xmin h4 3 mul add 0 [2.5 dup] dctexlabel

coul4
(haut_ligne4_3) node
3 setdboxit
boxit
<latex>
[6]
</latex>
xmin h4 5 mul add 0 [2.5 dup] uctexlabel

coul3
(bas_ligne4_3) node
3 setdboxit
boxit
<latex>
[6]
</latex>
xmin h4 5 mul add 0 [2.5 dup] dctexlabel

coul4
(haut_ligne4_4) node
3 setdboxit
boxit
<latex>
[3]
</latex>
xmin h4 7 mul add 0 [2.5 dup] uctexlabel

coul3
(bas_ligne4_4) node
3 setdboxit
boxit
<latex>
[3]
</latex>
xmin h4 7 mul add 0 [2.5 dup] dctexlabel

% ligne 4 (moitié de droite)
coul4
(haut_ligne4_5) node
3 setdboxit
boxit
<latex>
[2]
</latex>
xmin h4 9 mul add 0 [2.5 dup] uctexlabel

coul3
(bas_ligne4_5) node
3 setdboxit
boxit
<latex>
[2]
</latex>
xmin h4 9 mul add 0 [2.5 dup] dctexlabel

coul4
(haut_ligne4_6) node
3 setdboxit
boxit
<latex>
[7]
</latex>
xmin h4 11 mul add 0 [2.5 dup] uctexlabel

coul3
(bas_ligne4_6) node
3 setdboxit
boxit
<latex>
[7]
</latex>
xmin h4 11 mul add 0 [2.5 dup] dctexlabel

coul4
(haut_ligne4_7) node
3 setdboxit
boxit
<latex>
[8]
</latex>
xmin h4 13 mul add 0 [2.5 dup] uctexlabel

coul3
(bas_ligne4_7) node
3 setdboxit
boxit
<latex>
[8]
</latex>
xmin h4 13 mul add 0 [2.5 dup] dctexlabel

coul4
(haut_ligne4_8) node
3 setdboxit
boxit
<latex>
[2]
</latex>
xmin h4 15 mul add 0 [2.5 dup] uctexlabel

coul3
(bas_ligne4_8) node
3 setdboxit
boxit
<latex>
[2]
</latex>
xmin h4 15 mul add 0 [2.5 dup] dctexlabel

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% les branches
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
coul1
1.5 setlinewidth
(bas_ligne1) (haut_ligne2_1) (-) ncline
(bas_ligne1) (haut_ligne2_2) (-) ncline

(bas_ligne2_1) (haut_ligne3_1) (-) ncline
(bas_ligne2_1) (haut_ligne3_2) (-) ncline
(bas_ligne2_2) (haut_ligne3_3) (-) ncline
(bas_ligne2_2) (haut_ligne3_4) (-) ncline

(bas_ligne3_1) (haut_ligne4_1) (-) ncline
(bas_ligne3_1) (haut_ligne4_2) (-) ncline
(bas_ligne3_2) (haut_ligne4_3) (-) ncline
(bas_ligne3_2) (haut_ligne4_4) (-) ncline
(bas_ligne3_3) (haut_ligne4_5) (-) ncline
(bas_ligne3_3) (haut_ligne4_6) (-) ncline
(bas_ligne3_4) (haut_ligne4_7) (-) ncline
(bas_ligne3_4) (haut_ligne4_8) (-) ncline

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% les flèches division et fusion
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1.5 setlinewidth
/arrowscale {2.5 dup} def

coul4
[.5 9 .5 4] (->) ligne
<latex>
division
</latex>
.5 6.5 [2.5 dup] {90} dctexlabel

coul3
[15.5 4 15.5 9] (->) ligne
<latex>
fusion
</latex>
15.5 6.5 [2.5 dup] {90} uctexlabel