Module Mlpost__Tree.Simple

type t = Mlpost.Box.t
val leaf : Mlpost.Box.t -> Mlpost.Box.t
val node : ?⁠ls:float -> ?⁠cs:float -> ?⁠arrow_style:arrow_style -> ?⁠edge_style:edge_style -> ?⁠stroke:Mlpost__.Types.color -> ?⁠brush:Mlpost__.Types.brush -> ?⁠pen:Mlpost__.Types.pen -> ?⁠sep:float -> ?⁠valign:[< `Bot | `Bottom | `Bottomleft | `Bottomright | `Center | `Custom of Mlpost.Box.t -> Mlpost.Point.t | `East | `Left | `Lowerleft | `Lowerright | `Lowleft | `Lowright | `North | `Northeast | `Northwest | `Right | `South | `Southeast | `Southwest | `Top | `Topleft | `Topright | `Upleft | `Upperleft | `Upperright | `Upright | `West Center ] -> ?⁠halign:[< `Bot | `Bottom | `Bottomleft | `Bottomright | `Center | `Custom of Mlpost.Box.t -> Mlpost.Point.t | `East | `Left | `Lowerleft | `Lowerright | `Lowleft | `Lowright | `North | `Northeast | `Northwest | `Right | `South | `Southeast | `Southwest | `Top | `Topleft | `Topright | `Upleft | `Upperleft | `Upperright | `Upright | `West Center North ] -> Mlpost.Box.t -> Mlpost.Box.t list -> Mlpost.Box.t
val bin : ?⁠ls:float -> ?⁠cs:float -> ?⁠arrow_style:arrow_style -> ?⁠edge_style:edge_style -> ?⁠stroke:Mlpost__.Types.color -> ?⁠brush:Mlpost__.Types.brush -> ?⁠pen:Mlpost__.Types.pen -> ?⁠sep:float -> Mlpost.Box.t -> Mlpost.Box.t -> Mlpost.Box.t -> Mlpost.Box.t
val to_box : 'a -> 'a
val draw : ?⁠debug:bool -> Mlpost.Box.t -> Mlpost__.Types.commandpic