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