opam-graph 0.1.1 (latest) · OCaml Package

type t = Tyxml_svg.doc

type 'a elt = 'a Tyxml_svg.elt

type 'a attr = 'a Tyxml_svg.attrib

type ('a, 'b) output = {

svg_content : 'a elt list;
svg_attr : 'b attr list;
css : string;

}

module Svg = Tyxml_svg

val scoped_class : string -> string

val initial_css : string

val merge_css : string list -> string

type position = {

x : float;
y : float;

}

val center : position

val root_radius : float

module Unit : sig ... end

val make_title : text:string -> [> Svg_types.title ] Svg.elt

val make_circle : 
  pos:position ->
  radius:float ->
  [> Svg_types.circle ] Svg.elt list

val make_square : 
  center_pos:position ->
  width:float ->
  [> Svg_types.rect ] Svg.elt list

val make_node : 
  ?with_node_class:bool ->
  pos:position ->
  radius:float ->
  text:string ->
  classes:Svg_types.spacestrings Svg.wrap ->
  unit ->
  [> Svg_types.g ] Svg.elt

val make_line : pos0:position -> pos1:position -> [> Svg_types.line ] Svg.elt

val make_edge : 
  pos0:position ->
  pos1:position ->
  text:string ->
  classes:string list ->
  [> Svg_types.g ] Svg.elt

val make_direct_dep_text : 
  assoc_node ->
  layer2_deps:'a list ->
  sharing_stats:assoc_stats ->
  string

val make_layer2_dep_text : SMap.key -> sharing_stats:assoc_stats -> string

val make_direct_deps_nodes : 
  deps_w_positions:((assoc_node * position) * 'a list) list ->
  sharing_stats:assoc_stats ->
  [> Svg_types.g ] Svg.elt list

val make_direct_dep_edge_css : string -> string

val make_triangle : 
  top:position ->
  left:position ->
  right:position ->
  [> Svg_types.polygon ] Svg.elt

val make_hitbox_direct_dep_edge : 
  pos0:position ->
  pos1:position ->
  n_edges:int ->
  text:string ->
  classes:string list ->
  [> Svg_types.g ] Svg.elt

val make_direct_deps_edges : 
  deps_w_positions:((assoc_node * position) * 'a list) list ->
  sharing_stats:assoc_stats ->
  [> Svg_types.g ] Svg.elt list * string

val make_layer2_nodes_spiral : 
  layer2_deps:assoc_node list ->
  layer2_deps_center:Gg.v2 ->
  sharing_stats:assoc_stats ->
  [> Svg_types.g ] Svg.elt list

val grid_pos : cell_width:float -> int -> Gg.v2

val make_hitbox_square : 
  center_pos:position ->
  width:float ->
  text:string ->
  classes:string list ->
  [> Svg_types.g ] Svg.elt

val make_layer2_nodes_grid : 
  layer2_deps:assoc_node list ->
  layer2_deps_center:Gg.v2 ->
  sharing_stats:assoc_stats ->
  [> Svg_types.g ] Svg.elt list

val make_layer2_deps : 
  deps_w_positions:(('a * position) * assoc_node list) list ->
  sharing_stats:assoc_stats ->
  [> Svg_types.g ] Svg.elt list

val make_shared_deps_css_aux : 
  dep:assoc_node ->
  shared_deps:string Seq.t ->
  string

val make_shared_deps_css : 
  deps_w_positions:((assoc_node * 'a) * assoc_node list) list ->
  string

val make_deps : 
  sharing_stats:assoc_stats ->
  assoc_graph ->
  [> Svg_types.g ] Svg.elt list * string

val svg_defs : [> Svg_types.defs ] Svg.elt list

val make_deps_sharing_css : assoc_stats -> string

val of_assoc : 
  sharing_stats:assoc_stats ->
  assoc_graph ->
  ([> `Defs | `G ], [> `Class | `ViewBox ]) output

val pp : Format.formatter -> Tyxml_svg.doc -> unit

package opam-graph