sig
  type buffer = [ `accum | `color | `depth | `stencil ]
  val clear : GlClear.buffer list -> unit
  val accum : ?alpha:float -> Gl.rgb -> unit
  val color : ?alpha:float -> Gl.rgb -> unit
  val depth : Gl.clampf -> unit
  val index : float -> unit
  val stencil : int -> unit
end