%% noeuds circulaires de rayon constant

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

/Circleradius .2 def

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