functor (G : Graph.Graphviz.GraphWithDotAttrs->
  sig
    type cluster = string
    class model :
      (G.vertex, G.edge, DGraphModel.Make.cluster) XDot.graph_layout ->
      G.t -> [G.vertex, G.edge, DGraphModel.Make.cluster] abstract_model
    val from_graph :
      ?cmd:string -> ?tmp_name:string -> G.t -> DGraphModel.Make.model
  end