val get_string : [ `extensions | `renderer | `vendor | `version ] -> string
val check_extension : string -> bool
type equation = float * float * float * float
val clip_plane : plane:int -> equation -> unit
type hint_target = [
  1. | `fog
  2. | `line_smooth
  3. | `perspective_correction
  4. | `point_smooth
  5. | `polygon_smooth
]
val hint : hint_target -> [ `dont_care | `fastest | `nicest ] -> unit
val init_names : unit -> unit
val load_name : int -> unit
val push_name : int -> unit
val pop_name : unit -> unit
type attrib = [
  1. | `accum_buffer
  2. | `color_buffer
  3. | `current
  4. | `depth_buffer
  5. | `enable
  6. | `eval
  7. | `fog
  8. | `hint
  9. | `lighting
  10. | `line
  11. | `list
  12. | `pixel_mode
  13. | `point
  14. | `polygon
  15. | `polygon_stipple
  16. | `scissor
  17. | `stencil_buffer
  18. | `texture
  19. | `transform
  20. | `viewport
]
val push_attrib : attrib list -> unit
val pop_attrib : unit -> unit
val render_mode : [ `feedback | `render | `select ] -> int
val pass_through : float -> unit
val select_buffer : [ `uint ] Raw.t -> unit
type feedback_mode = [
  1. | `_2d
  2. | `_3d
  3. | `_3d_color
  4. | `_3d_color_texture
  5. | `_4d_color_texture
]
val feedback_buffer : mode:feedback_mode -> [ `float ] Raw.t -> unit
val scissor : x:int -> y:int -> width:int -> height:int -> unit