Module Sdl.GL

module GL: sig .. end

type context = Sdlgl.context

val create_context : win:Sdlwindow.t -> context

val make_current : win:Sdlwindow.t -> ctx:context -> int

val unload_library : unit -> unit

val extension_supported : extension:string -> bool

val set_swap_interval : interval:int -> unit

val get_swap_interval : unit -> int

val swap_window : Sdlwindow.t -> unit

val delete_context : context -> unit

type gl_attr = Sdlgl.gl_attr =

`\|`	`GL_RED_SIZE`
`\|`	`GL_GREEN_SIZE`
`\|`	`GL_BLUE_SIZE`
`\|`	`GL_ALPHA_SIZE`
`\|`	`GL_BUFFER_SIZE`
`\|`	`GL_DOUBLEBUFFER`
`\|`	`GL_DEPTH_SIZE`
`\|`	`GL_STENCIL_SIZE`
`\|`	`GL_ACCUM_RED_SIZE`
`\|`	`GL_ACCUM_GREEN_SIZE`
`\|`	`GL_ACCUM_BLUE_SIZE`
`\|`	`GL_ACCUM_ALPHA_SIZE`
`\|`	`GL_STEREO`
`\|`	`GL_MULTISAMPLEBUFFERS`
`\|`	`GL_MULTISAMPLESAMPLES`
`\|`	`GL_ACCELERATED_VISUAL`
`\|`	`GL_RETAINED_BACKING`
`\|`	`GL_CONTEXT_MAJOR_VERSION`
`\|`	`GL_CONTEXT_MINOR_VERSION`
`\|`	`GL_CONTEXT_EGL`
`\|`	`GL_CONTEXT_FLAGS`
`\|`	`GL_CONTEXT_PROFILE_MASK`
`\|`	`GL_SHARE_WITH_CURRENT_CONTEXT`

val set_attribute : gl_attr -> int -> unit

val get_attribute : gl_attr -> int