exception GLerror of string
type rgb = float * float * float
type rgba = float * float * float * float
type point2 = float * float
type point3 = float * float * float
type point4 = float * float * float * float
type vect3 = float * float * float
type clampf = float
type short = int
type kind = [
  1. | `bitmap
  2. | `byte
  3. | `float
  4. | `int
  5. | `short
  6. | `ubyte
  7. | `uint
  8. | `ushort
]
type real_kind = [
  1. | `byte
  2. | `float
  3. | `int
  4. | `short
  5. | `ubyte
  6. | `uint
  7. | `ushort
]
type format = [
  1. | `alpha
  2. | `bgr
  3. | `bgra
  4. | `blue
  5. | `color_index
  6. | `depth_component
  7. | `green
  8. | `luminance
  9. | `luminance_alpha
  10. | `red
  11. | `rgb
  12. | `rgba
  13. | `stencil_index
]
val format_size : [< format ] -> int
type target = [
  1. | `color_4
  2. | `index
  3. | `normal
  4. | `texture_coord_1
  5. | `texture_coord_2
  6. | `texture_coord_3
  7. | `texture_coord_4
  8. | `trim_2
  9. | `trim_3
  10. | `vertex_3
  11. | `vertex_4
]
val target_size : [< target ] -> int
type cmp_func = [
  1. | `always
  2. | `equal
  3. | `gequal
  4. | `greater
  5. | `lequal
  6. | `less
  7. | `never
  8. | `notequal
]
type face = [
  1. | `back
  2. | `both
  3. | `front
]
val flush : unit -> unit
val finish : unit -> unit
type cap = [
  1. | `alpha_test
  2. | `auto_normal
  3. | `blend
  4. | `clip_plane0
  5. | `clip_plane1
  6. | `clip_plane2
  7. | `clip_plane3
  8. | `clip_plane4
  9. | `clip_plane5
  10. | `color_logic_op
  11. | `color_material
  12. | `cull_face
  13. | `depth_test
  14. | `dither
  15. | `fog
  16. | `index_logic_op
  17. | `light0
  18. | `light1
  19. | `light2
  20. | `light3
  21. | `light4
  22. | `light5
  23. | `light6
  24. | `light7
  25. | `lighting
  26. | `line_smooth
  27. | `line_stipple
  28. | `map1_color_4
  29. | `map1_index
  30. | `map1_normal
  31. | `map1_texture_coord_1
  32. | `map1_texture_coord_2
  33. | `map1_texture_coord_3
  34. | `map1_texture_coord_4
  35. | `map1_vertex_3
  36. | `map1_vertex_4
  37. | `map2_color_4
  38. | `map2_index
  39. | `map2_normal
  40. | `map2_texture_coord_1
  41. | `map2_texture_coord_2
  42. | `map2_texture_coord_3
  43. | `map2_texture_coord_4
  44. | `map2_vertex_3
  45. | `map2_vertex_4
  46. | `normalize
  47. | `point_smooth
  48. | `polygon_offset_fill
  49. | `polygon_offset_line
  50. | `polygon_offset_point
  51. | `polygon_smooth
  52. | `polygon_stipple
  53. | `scissor_test
  54. | `stencil_test
  55. | `texture_1d
  56. | `texture_2d
  57. | `texture_gen_q
  58. | `texture_gen_r
  59. | `texture_gen_s
  60. | `texture_gen_t
]
val enable : cap -> unit
val disable : cap -> unit
val is_enabled : cap -> bool
type error = [
  1. | `invalid_enum
  2. | `invalid_operation
  3. | `invalid_value
  4. | `no_error
  5. | `out_of_memory
  6. | `stack_overflow
  7. | `stack_underflow
  8. | `table_too_large
]
val get_error : unit -> error
val raise_error : string -> unit