sig
type t = Mlpost.Box.t
type arrow_style = Directed | Undirected
type edge_style = Straight | Curve | Square | HalfSquare
val leaf : Mlpost.Box.t -> Mlpost.Tree.t
val node :
?ls:Mlpost.Num.t ->
?cs:Mlpost.Num.t ->
?arrow_style:Mlpost.Tree.arrow_style ->
?edge_style:Mlpost.Tree.edge_style ->
?stroke:Mlpost.Color.t ->
?pen:Mlpost.Pen.t -> Mlpost.Box.t -> Mlpost.Tree.t list -> Mlpost.Tree.t
val bin :
?ls:Mlpost.Num.t ->
?cs:Mlpost.Num.t ->
?arrow_style:Mlpost.Tree.arrow_style ->
?edge_style:Mlpost.Tree.edge_style ->
?stroke:Mlpost.Color.t ->
?pen:Mlpost.Pen.t ->
Mlpost.Box.t -> Mlpost.Tree.t -> Mlpost.Tree.t -> Mlpost.Tree.t
end