autocrop
usecolor
-5 15 setxrange
-10 10 setyrange
/linearc .5 def
-3 -7 15 7 frame
/linearc 0 def
/levelsep 2 def
20 setxunit
setTimes
/dx_boxit 20 def
/diax_boxit 5 def
/diay_boxit 2 def

0 5 (Début) Toval {/fillstyle {jaune fill} def} tnparametres rootnode
[(Initialisations) Tb
    [(spécial ?) Tdia {/fillstyle {HotPink fill} def} tnparametres
      [right {
              /levelsep 6 def 
              /treeedge {(->) ncline} def
           }
           (Appel SP1) Tb
           [(Appel SP2) Tb (B) nodename]
      ]
      [(Traitement 1) Tb
         [(Traitement 2) Tb
            [{/fillstyle {jaune fill} def}
               (Fin) Toval
            ]
         ]
      ]
    ]
] tree

(A000) nodepoint
(A0000) nodepoint
milieu
(C) enode
/angleA -90 def

(B) (C) (->) ncangle
rouge
(oui)
(A00) /rdia nodepoint urtext
(non)
(A00) /ddia nodepoint dltext
#tex# Utilisation des arbres et des n\oe uds pour un organigramme
6 7.5 bctexlabel