%% connexion de sous-arbres

autocrop
setPalatino
/levelsep 3 def
/nodesep 3 def

0 0 (A) Tc rootnode 
[
   [30 dir (7) Tr (8) Tr (9) Tr]
   [150 dir (1) Tr (2) Tr (3) Tr]
   [down (4) Tr (5) Tr (6) Tr]
] 
tree