autocrop 1 setdboxit -5 0 Tr rootnode [right Tr [{/thislevelsep 3 def} Tc Tc Tc] Tc Tr [Tc Tc Tc] ] tree