DGraphModel.MakeThis functor creates a model from a graph
module G : Graphviz.GraphWithDotAttrsexception Multiple_layouts of (G.E.t * XDot.edge_layout) listclass model : XDot.Make(G).graph_layout -> G.t -> [ G.V.t, G.E.t, cluster ] abstract_model