sig
type t
val leaf : Mlpost.Box.t -> Mlpost.Tree.Simple.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 ->
?sep:Mlpost.Num.t ->
?valign:Mlpost.Command.position ->
?halign:Mlpost.Command.position ->
Mlpost.Box.t -> Mlpost.Tree.Simple.t list -> Mlpost.Tree.Simple.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 ->
?sep:Mlpost.Num.t ->
Mlpost.Box.t ->
Mlpost.Tree.Simple.t -> Mlpost.Tree.Simple.t -> Mlpost.Tree.Simple.t
val to_box : Mlpost.Tree.Simple.t -> Mlpost.Box.t
val draw : ?debug:bool -> Mlpost.Tree.Simple.t -> Mlpost.Command.t
end