sig
  val set_verbosity : bool -> unit
  type t
  val draw :
    ?brush:Mlpost.Brush.t ->
    ?color:Mlpost.Color.t ->
    ?pen:Mlpost.Pen.t ->
    ?dashed:Mlpost.Dash.t -> Mlpost.Path.t -> Mlpost.Command.t
  val fill : ?color:Mlpost.Color.t -> Mlpost.Path.t -> Mlpost.Command.t
  val draw_pic : Mlpost.Picture.t -> Mlpost.Command.t
  val externalimage :
    string ->
    [ `Exact of Mlpost.Num.t * Mlpost.Num.t
    | `Height of Mlpost.Num.t
    | `Inside of Mlpost.Num.t * Mlpost.Num.t
    | `None
    | `Width of Mlpost.Num.t ] -> Mlpost.Command.t
  val nop : Mlpost.Command.t
  val append : Mlpost.Command.t -> Mlpost.Command.t -> Mlpost.Command.t
  val ( ++ ) : Mlpost.Command.t -> Mlpost.Command.t -> Mlpost.Command.t
  val seq : Mlpost.Command.t list -> Mlpost.Command.t
  val iter : int -> int -> (int -> Mlpost.Command.t) -> Mlpost.Command.t
  val iterl : ('a -> Mlpost.Command.t) -> 'a list -> Mlpost.Command.t
  type hposition = [ `Center | `East | `Left | `Right | `West ]
  type vposition = [ `Bot | `Bottom | `Center | `North | `South | `Top ]
  type position =
      [ `Bot
      | `Bottom
      | `Bottomleft
      | `Bottomright
      | `Center
      | `East
      | `Left
      | `Lowerleft
      | `Lowerright
      | `Lowleft
      | `Lowright
      | `North
      | `Northeast
      | `Northwest
      | `Right
      | `South
      | `Southeast
      | `Southwest
      | `Top
      | `Topleft
      | `Topright
      | `Upleft
      | `Upperleft
      | `Upperright
      | `Upright
      | `West ]
  val label :
    ?pos:Mlpost.Command.position ->
    Mlpost.Picture.t -> Mlpost.Point.t -> Mlpost.Command.t
  val dotlabel :
    ?pos:Mlpost.Command.position ->
    Mlpost.Picture.t -> Mlpost.Point.t -> Mlpost.Command.t
end