Module Diagrams.Matrix

module Matrix: sig .. end

type 'a matrix = 'a array array

val map : ('a -> 'b) -> 'a array array -> 'b array array

val mapi : (int -> int -> 'a -> 'b) -> 'a array array -> 'b array array

type info = {

	`mainNode : Diagrams.Node.info;`
	`common : Diagrams.Node.Transfo.Style.t list;`
	`nodes : Diagrams.Node.info matrix;`
	`placement : info -> int -> int -> Diagrams.Point.t;`

}

type t = info

module Transfo: Diagrams.Transfo(sig

type t = Diagrams.Matrix.info

val compare : 'a -> 'a -> int

end)

module T: Transfo

module S: T.Style

val default_matrix_node_anchor : [> `Base ]

val default_matrix_node_style : Document.environment -> Diagrams.Node.Transfo.Style.t list

val between_centers : float -> float -> 'a -> int -> int -> float * float

val default : Document.environment -> info

val nodes_contents : info -> RawContent.raw list

val to_contents : info -> RawContent.raw list

val make_node_array : Diagrams.Node.Transfo.Style.t list ->
       int ->
       int ->
       Diagrams.Node.Transfo.Style.t list list list ->
       Diagrams.Node.info array array

val contents_output : (Diagrams.Node.Transfo.Style.t list * RawContent.raw list) list list -> S.t

val contents_box : Document.environment ->
       (Diagrams.Node.Transfo.Style.t list * Box.box list) list list -> S.t

val contents : Document.environment ->
       (Diagrams.Node.Transfo.Style.t list * Document.content list) list list -> S.t

val mk_matrix_anchor : (info -> float * float) ->
       info -> float * float

val matrixAnchor : int -> int -> Diagrams.anchor -> info -> Diagrams.Point.t

val matrixLine : info -> float * float

val matrixFirstLine : info -> float * float

val matrixBase : info -> float * float

val matrixCenter : info -> float * float

val centers : float -> float -> S.t

val transform_matrix : Document.environment ->
       T.Style.t list ->
       (Diagrams.Node.Transfo.Style.t list * Document.content list) list list ->
       info -> info

val make : Document.environment ->
       T.Style.t list ->
       (Diagrams.Node.Transfo.Style.t list * Document.content list) list list ->
       info

val make_simple : Document.environment ->
       T.Style.t list ->
       (Diagrams.Node.Transfo.Style.t list * Document.content list) list list ->
       Diagrams.Node.info * Diagrams.Node.info matrix

val translate : float * float -> info -> info