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 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