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