Module Sdlgl

module Sdlgl: sig .. end

LablGL interaction

val swap_buffers : unit -> unit

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`

val set_attr : attr list -> unit

val get_attr : unit -> attr list

val to_raw : Sdlvideo.surface -> [ `ubyte ] Raw.t