sig
  external swap_buffers : unit -> unit = "ml_SDL_GL_SwapBuffers"
  type attr =
      RED_SIZE of int
    | GREEN_SIZE of int
    | BLUE_SIZE of int
    | ALPHA_SIZE of int
    | BUFFER_SIZE of int
    | DOUBLEBUFFER of bool
    | DEPTH_SIZE of int
    | STENCIL_SIZE of int
    | ACCUM_RED_SIZE of int
    | ACCUM_GREEN_SIZE of int
    | ACCUM_BLUE_SIZE of int
    | ACCUM_ALPHA_SIZE of int
    | STEREO of int
  external set_attr : Sdlgl.attr list -> unit = "ml_SDL_GL_SetAttribute"
  external get_attr : unit -> Sdlgl.attr list = "ml_SDL_GL_GetAttribute"
  external to_raw : Sdlvideo.surface -> [ `ubyte ] Raw.t = "ml_SDL_GL_to_raw"
end