autocrop -5 20 setxrange -10 10 setyrange setTimes 20 setxunit /treenodesep 15 def /levelsep 3.5 def -3 0 (0) Tcc rootnode [right (1) Tcc [ (2) Tcc [((3,3)) TRc ((0,1)) TRc] (2) Tcc [((1,2)) TRc ((2,0)) TRc] ] (1) Tcc [ (2) Tcc [((3,0)) TRc ((1,1)) TRc] (2) Tcc [((0,0)) TRc ((4,1)) TRc] ] ] tree* /arcangleA 20 def /arcangleB arcangleA def (A01) (A11) (-) ncarc (A10) (A00) (-) ncarc