sig
  type t
  val rgb : float -> float -> float -> Archimedes.Color.t
  val rgba : float -> float -> float -> float -> Archimedes.Color.t
  val hex : int -> Archimedes.Color.t
  val r : Archimedes.Color.t -> float
  val g : Archimedes.Color.t -> float
  val b : Archimedes.Color.t -> float
  val a : Archimedes.Color.t -> float
  val get_rgb : Archimedes.Color.t -> float * float * float
  val get_rgba : Archimedes.Color.t -> float * float * float * float
  val luminance : Archimedes.Color.t -> float
  val black : Archimedes.Color.t
  val red : Archimedes.Color.t
  val green : Archimedes.Color.t
  val blue : Archimedes.Color.t
  val yellow : Archimedes.Color.t
  val magenta : Archimedes.Color.t
  val cyan : Archimedes.Color.t
  val white : Archimedes.Color.t
  val dark_slate_grey : Archimedes.Color.t
  val deep_sky_blue : Archimedes.Color.t
  val dodger_blue : Archimedes.Color.t
  val aquamarine : Archimedes.Color.t
  val light_blue : Archimedes.Color.t
  val medium_blue : Archimedes.Color.t
  val navy_blue : Archimedes.Color.t
  val royal_blue : Archimedes.Color.t
  val burlywood : Archimedes.Color.t
  val chocolate : Archimedes.Color.t
  val tan : Archimedes.Color.t
  val dark_green : Archimedes.Color.t
  val dark_olive_green : Archimedes.Color.t
  val forest_green : Archimedes.Color.t
  val green_yellow : Archimedes.Color.t
  val sea_green : Archimedes.Color.t
  val dark_orange : Archimedes.Color.t
  val peach_puff : Archimedes.Color.t
  val coral : Archimedes.Color.t
  val orange : Archimedes.Color.t
  val hot_pink : Archimedes.Color.t
  val indian_red : Archimedes.Color.t
  val light_pink : Archimedes.Color.t
  val misty_rose : Archimedes.Color.t
  val orange_red : Archimedes.Color.t
  val firebrick : Archimedes.Color.t
  val dark_orchid : Archimedes.Color.t
  val lavender_blush : Archimedes.Color.t
  val plum : Archimedes.Color.t
  val orchid : Archimedes.Color.t
  val purple : Archimedes.Color.t
  val thistle : Archimedes.Color.t
  val antique_white : Archimedes.Color.t
  val old_lace : Archimedes.Color.t
  val ivory : Archimedes.Color.t
  val linen : Archimedes.Color.t
  val wheat : Archimedes.Color.t
  val white_smoke : Archimedes.Color.t
  val lemon_chiffon : Archimedes.Color.t
  val light_goldenrod : Archimedes.Color.t
  val cornsilk : Archimedes.Color.t
  val gold : Archimedes.Color.t
  val light_gray : Archimedes.Color.t
  val gainsboro : Archimedes.Color.t
  val silver : Archimedes.Color.t
  val trolley_grey : Archimedes.Color.t
  type operator =
      Over
    | Source
    | Clear
    | In
    | Out
    | Atop
    | Dest
    | Dest_Over
    | Dest_In
    | Dest_Out
    | Dest_Atop
    | Xor
    | Add
    | Saturate
  val add :
    ?op:Archimedes.Color.operator ->
    Archimedes.Color.t -> Archimedes.Color.t -> Archimedes.Color.t
end