val layout : 'node Bintree.t -> ('node * Gg.V2.t) Bintree.t val compute_view : Gg.V2.t Bintree.t -> Gg.Box2.t