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