module Simple: sig
.. end
type
t
val leaf : Box.t -> t
val node : ?ls:Num.t ->
?cs:Num.t ->
?arrow_style:Tree.arrow_style ->
?edge_style:Tree.edge_style ->
?stroke:Color.t ->
?pen:Pen.t ->
?sep:Num.t ->
?valign:Command.position ->
?halign:Command.position ->
Box.t -> t list -> t
a simple tree placement algorithm: align all subtrees horizontally , and
place the parent node above.
Default arrow_style is Directed
.
Default edge_style is Straight
.
ls
: (level sep): vertical distance between levels.
The default value is 1.0. A negative value draws the tree upward.
cs
: (children sep): horizontal distance between siblings.
The default value is 0.2.
valign
: change alignment of parent node wrt. children
(default: `Children
)
halign
: change alignment of children (default: `Top
)
val bin : ?ls:Num.t ->
?cs:Num.t ->
?arrow_style:Tree.arrow_style ->
?edge_style:Tree.edge_style ->
?stroke:Color.t ->
?pen:Pen.t ->
?sep:Num.t ->
Box.t ->
t -> t -> t
val to_box : t -> Box.t
val draw : ?debug:bool -> t -> Command.t