sig
  type t = { first_color : CL_Colorf.t; second_color : CL_Colorf.t; }
  val init :
    first_color:CL_Colorf.t -> second_color:CL_Colorf.t -> CL_Gradient.t
  val fst : CL_Gradient.t -> CL_Colorf.t
  val snd : CL_Gradient.t -> CL_Colorf.t
end