Module Diagrams.Node

module Node: sig .. end

type info = {

	`params : RawContent.path_param;`
	`mainAnchor : Diagrams.anchor;`
	`innerSep : float;`
	`outerSep : float;`
	`bb : float * float * float * float;`
	`center : Diagrams.Point.t;`
	`pdfAnchor : Diagrams.Point.t;`
	`node_contents : RawContent.raw list;`
	`button : (RawContent.button_kind * string) option;`
	`innerCurve : Diagrams.Curve.t;`
	`midCurve : Diagrams.Curve.t;`
	`outerCurve : Diagrams.Curve.t;`
	`anchor : Diagrams.anchor -> Diagrams.Point.t;`
	`decorations : decoration list;`
	`node_anchor : Diagrams.anchor;`
	`at : Diagrams.Point.t;`
	`z : float;`

}

type decoration =

`\|`	`Curve of RawContent.path_param * Diagrams.Curve.t`
`\|`	`Node of info`

type t = info

val default_params : RawContent.path_param

val default : info

val coord : Diagrams.Point.t -> info

val coord3d : Proj3d.projection -> float * float * float -> info

val decoration_to_contents : info -> decoration -> RawContent.raw list

val to_contents : info -> RawContent.raw list

val to_gentity : info -> Diagrams.Gentity.t

module Transfo: Diagrams.Transfo(sig

type t = Diagrams.Node.info

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

end)

val transfo : ?dump_contents:bool ->
       Transfo.Style.t list ->
       info -> info

val lineWidth : float -> Transfo.Style.t

val contents_box : Document.environment -> Box.box list -> Transfo.Style.t

val contents : Document.environment ->
       Document.content list -> Transfo.Style.t

module BB: sig .. end

val getMainAnchor : info -> Diagrams.anchor

val ray_intersect : float * float -> (float array * float array) list -> float -> float * float

val default_rectangle : Document.environment -> info

val kappa : float

val circle : Transfo.Style.t

val float_div : float -> float -> int * float

val pmod_float : float -> float -> float

val nat_mod : int -> int -> int

val scal_prod : float * float -> float * float -> float

val triangle : ?orientation:float ->
       ?apex_angle:float -> Document.environment -> Transfo.Style.t

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

val make_output : Transfo.Style.t list ->
       RawContent.raw list -> info

val make_boxified : Document.environment ->
       Transfo.Style.t list -> Box.box list -> info

val make : Document.environment ->
       Transfo.Style.t list ->
       Document.content list -> info

val inter : Diagrams.Gentity.t -> Diagrams.Gentity.t -> (float * float) list