autocrop setTimes /treeedge {exch (-) ncdiagg} def /levelsep 3 store /armA 30 store /angleA 180 store 0 0 Tc rootnode [right (A) Tc (B) Tc (C) Tc (D) Tc] tree