%% noeuds circulaires de rayon constant

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

/Circleradius .2 def

setPalatino
-2 5 (A) Tc rootnode 
[
   TC
   TC
   TC [TC TC TC]
   TC
] 
tree