sig
  type t
  val draw_point : int * int -> Magick.Magick.Prim.t
  val draw_line : int * int -> int * int -> Magick.Magick.Prim.t
  val draw_rectangle : int * int -> int * int -> Magick.Magick.Prim.t
  val draw_circle : int * int -> int -> Magick.Magick.Prim.t
  val draw_ellipse : int * int -> int * int -> Magick.Magick.Prim.t
  val draw_qbcurve :
    int * int -> int * int -> int * int -> Magick.Magick.Prim.t
  val draw_cbcurve :
    int * int -> int * int -> int * int -> int * int -> Magick.Magick.Prim.t
  val draw_polygon : (int * int) list -> Magick.Magick.Prim.t
  val draw_text : int * int -> string -> string
end