%% 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