sig
  type t = { color : Color.rgb; mutable alpha : int; }
  val square_distance : Color.Rgba.t -> Color.Rgba.t -> int
  val plus : Color.Rgba.t -> Color.Rgba.t -> Color.Rgba.t
  val minus : Color.Rgba.t -> Color.Rgba.t -> Color.Rgba.t
  val merge : Color.Rgba.t -> Color.Rgba.t -> Color.Rgba.t
  val size : Color.Rgba.t Color.map -> int
  val find_exact : Color.Rgba.t Color.map -> Color.Rgba.t -> int
  val add_color : Color.Rgba.t Color.map -> Color.Rgba.t -> int
  val add_colors : Color.Rgba.t Color.map -> Color.Rgba.t list -> int list
  val find_nearest : Color.Rgba.t Color.map -> Color.Rgba.t -> int
end