autocrop
setTimes
0 5 Tr rootnode 
[
   Tr 
   Tr 
   Tr
   [right 
      {  %% parametres locaux
         bleu 
         /nodesep 3 def
      } 
      (1) Tc
      (2)  Tc
   ] 
] 
tree