sig
  type t
  val default : Mlpost.Color.t
  val rgb : float -> float -> float -> Mlpost.Color.t
  val rgb8 : int -> int -> int -> Mlpost.Color.t
  val cmyk : float -> float -> float -> float -> Mlpost.Color.t
  val rgba : float -> float -> float -> float -> Mlpost.Color.t
  val rgb8a : int -> int -> int -> int -> Mlpost.Color.t
  val cmyka : float -> float -> float -> float -> float -> Mlpost.Color.t
  val is_opaque : Mlpost.Color.t -> bool
  val opaque : Mlpost.Color.t -> Mlpost.Color.t
  val transparent : float -> Mlpost.Color.t -> Mlpost.Color.t
  val hsv : float -> float -> float -> Mlpost.Color.t
  val color_gen : float -> float -> unit -> Mlpost.Color.t
  val white : Mlpost.Color.t
  val black : Mlpost.Color.t
  val red : Mlpost.Color.t
  val blue : Mlpost.Color.t
  val green : Mlpost.Color.t
  val cyan : Mlpost.Color.t
  val yellow : Mlpost.Color.t
  val magenta : Mlpost.Color.t
  val lightred : Mlpost.Color.t
  val lightblue : Mlpost.Color.t
  val lightgreen : Mlpost.Color.t
  val lightcyan : Mlpost.Color.t
  val lightyellow : Mlpost.Color.t
  val lightmagenta : Mlpost.Color.t
  val gray : float -> Mlpost.Color.t
  val lightgray : Mlpost.Color.t
  val mediumgray : Mlpost.Color.t
  val darkgray : Mlpost.Color.t
  val orange : Mlpost.Color.t
  val purple : Mlpost.Color.t
  val color : string -> Mlpost.Color.t
end