sig
  type colors = [ `RGBA_8888 | `RGB_565 ]
  type depth = [ `D_16 | `D_24 ]
  type stencil = [ `S_8 ]
  type t = {
    accelerated : bool option;
    multisample : int option;
    doublebuffer : bool;
    stereo : bool;
    srgb : bool;
    colors : Useri.Surface.Gl.colors;
    depth : Useri.Surface.Gl.depth option;
    stencil : Useri.Surface.Gl.stencil option;
    version : int * int;
  }
  val default : Useri.Surface.Gl.t
end