sig
  type t = Mlpost.Box.t
  val create :
    ?brush:Mlpost.Brush.t ->
    ?stroke:Mlpost.Color.t option ->
    ?pen:Mlpost.Pen.t ->
    ?dash:Mlpost.Dash.t ->
    ?fill:Mlpost.Color.t ->
    ?left:float ->
    ?right:float ->
    ?width:Mlpost.Num.t -> depth:Mlpost.Num.t -> unit -> Mlpost.Box.t
  val pic :
    ?brush:Mlpost.Brush.t ->
    ?stroke:Mlpost.Color.t option ->
    ?pen:Mlpost.Pen.t ->
    ?dash:Mlpost.Dash.t ->
    ?fill:Mlpost.Color.t ->
    ?dx:float -> ?dy:float -> Mlpost.Picture.t -> Mlpost.Triangle.t
  val tex :
    ?brush:Mlpost.Brush.t ->
    ?stroke:Mlpost.Color.t option ->
    ?pen:Mlpost.Pen.t ->
    ?dash:Mlpost.Dash.t ->
    ?fill:Mlpost.Color.t ->
    ?dx:float -> ?dy:float -> string -> Mlpost.Triangle.t
  val root : Mlpost.Triangle.t -> Mlpost.Point.t
  val bottom_left : Mlpost.Triangle.t -> Mlpost.Point.t
  val bottom_right : Mlpost.Triangle.t -> Mlpost.Point.t
  val draw : ?debug:bool -> Mlpost.Triangle.t -> Mlpost.Command.t
  val root_label :
    ?pos:Mlpost.Command.position ->
    Mlpost.Picture.t -> Mlpost.Triangle.t -> Mlpost.Triangle.t
  val tex_root_label :
    ?pos:Mlpost.Command.position ->
    string -> Mlpost.Triangle.t -> Mlpost.Triangle.t
  val x_depth :
    ?x:float -> ?depth:float -> Mlpost.Triangle.t -> Mlpost.Point.t
  val label :
    ?x:float ->
    ?depth:float ->
    ?pos:Mlpost.Command.position ->
    Mlpost.Picture.t -> Mlpost.Triangle.t -> Mlpost.Triangle.t
  val tex_label :
    ?x:float ->
    ?depth:float ->
    ?pos:Mlpost.Command.position ->
    string -> Mlpost.Triangle.t -> Mlpost.Triangle.t
  val anchor :
    ?x:float ->
    ?depth:float ->
    Mlpost.Triangle.t -> Mlpost.Triangle.t -> Mlpost.Triangle.t
  val pose :
    ?x:float ->
    ?depth:float ->
    Mlpost.Triangle.t -> Mlpost.Triangle.t -> Mlpost.Triangle.t
  val pose_left :
    ?x:float ->
    ?depth:float ->
    Mlpost.Triangle.t -> Mlpost.Triangle.t -> Mlpost.Triangle.t
  val pose_right :
    ?x:float ->
    ?depth:float ->
    Mlpost.Triangle.t -> Mlpost.Triangle.t -> Mlpost.Triangle.t
end