Module Diagrams.MakeDiagram.Arr

module Arr: sig .. end

val fun_max : ?max:('a -> 'a -> 'a) -> (int -> 'a) -> int -> 'a

val node_width : Diagrams.Edge.info -> float

val between_borders : (int -> float) ->
       (int -> float) ->
       Diagrams.anchor array ->
       (int -> int -> Diagrams.Node.Transfo.Style.t list) ->
       Diagrams.Matrix.info -> int -> int -> float * float

module Make: 
functor (MkMatrix : sig

type t 

val make_matrix : Matrix.T.Style.t list ->
       (Diagrams.Node.Transfo.Style.t list * t list) list
       list -> Diagrams.Node.info * Diagrams.Node.info Diagrams.Matrix.matrix

end) -> sig .. end