SubTreeDotModelMake (ocamlgraph.Graph.DGraphTreeModel.SubTreeDotModelMake)

module Tree : sig ... end

module TreeManipulation : sig ... end

type cluster = string

type graph_layout

class tree_model : graph_layout -> TreeManipulation.t -> Graph__.DGraphModel.abstract_model

val tree : unit -> TreeManipulation.t

val from_model : 
  ?depth_forward:int ->
  ?depth_backward:int ->
  (Graph__.DGraphModel.DotG.V.t, Graph__.DGraphModel.DotG.E.t, string)
    Graph__.DGraphModel.abstract_model ->
  Graph__.DGraphModel.DotG.V.t ->
  tree_model