sig
  type t = { left : float; top : float; right : float; bottom : float; }
  val init :
    left:float -> top:float -> right:float -> bottom:float -> CL_Rectf.t
  val of_size : width:float -> height:float -> CL_Rectf.t
  val texture_unit1_coords : CL_Rectf.t
end