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
|