Fichier t08.jps — Modifié le 11 Mars 2006 à 11 h 06
%% type de liaison
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
[
Tc
Tc
Tc
Tf %% noeud fantome
]
Tc
Tc
[
Tf %% noeud fantome
Tc
Tc
Tc
]
Tc
]
tree