%% parametres locaux a un sous-arbre

autocrop
1 setdboxit     %% espace entre le contenu d'un noeud et son
                %% encadrement ou encerclement

/treeedge {(->) ncline} def %% redefinition du type de liaison
setPalatino
0 5 (A) Tc rootnode 
[
   Tc
   [{bleu} 
      Tc 
      Tc 
      Tc
      Tf     %% noeud fantome
   ]
   Tc
   Tc
   [ 
      {
         /treeedge {(-) ncline} def
         /nodesep 3 def
         /levelsep 3.5 def
      } 
      Tf     %% noeud fantome
      Tc 
      Tc 
      Tc
   ]
   Tc
] 
tree