autocrop
-5 20 setxrange
-10 10 setyrange
setTimes
20 setxunit
#tex# $1\over 2$ %% label0
/treenodesep 15 def
/levelsep 3.5 def
-3 0 (0) Tcc rootnode
[right
(1) Tcc (Y) dlput /label0 urput
[
(2) Tcc (D) dcput [((3,3)) TRc (R) dcput ((0,1)) TRc (L) ucput]
(2) Tcc (U) ucput [((1,2)) TRc (R) dcput ((2,0)) TRc (L) ucput]
]
(1) Tcc (X) ulput /label0 drput
[
(2) Tcc (D) dcput [((3,0)) TRc (R) dcput ((1,1)) TRc (L) ucput]
(2) Tcc (D) ucput [((0,0)) TRc (R) dcput ((4,1)) TRc (L) ucput]
]
] tree*
/arcangleA 20 def
/arcangleB arcangleA def
(A01) (A11) (-) ncarc
(A10) (A00) (-) ncarc
|