sig
  type gl_attr =
      RED_SIZE
    | GREEN_SIZE
    | BLUE_SIZE
    | ALPHA_SIZE
    | DOUBLEBUFFER
    | BUFFER_SIZE
    | DEPTH_SIZE
    | STENCIL_SIZE
    | ACCUM_RED_SIZE
    | ACCUM_GREEN_SIZE
    | ACCUM_BLUE_SIZE
    | ACCUM_ALPHA_SIZE
  val swap_buffers : unit -> unit
  val load_bmp : string -> Sdl.Video.surface
  val set_attribute : Sdl.SDLGL.gl_attr -> int -> unit
  val get_attribute : Sdl.SDLGL.gl_attr -> int
end