Fichier t09.jps — Modifié le 11 Mars 2006 à 11 h 06
%% 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