package glMLite

  1. Overview
  2. Docs
type vertex2 = float * float
type vertex3 = float * float * float
type vertex4 = float * float * float * float
type vector = float * float * float
type rgb = float * float * float
type rgba = float * float * float * float
type uv = float * float
type matrix4x4 = float array
val draw_translated : vector -> (unit -> unit) -> unit
val draw_rotated : float -> vector -> (unit -> unit) -> unit
val draw_scaled : vector -> (unit -> unit) -> unit
val draw_as_identity : (unit -> unit) -> unit
val draw_with_matrix : matrix4x4 -> (unit -> unit) -> unit
val draw_with_rgb : rgb -> (unit -> unit) -> unit
val draw_with_rgba : rgba -> (unit -> unit) -> unit
val draw_with_material : face:GL.face_mode -> mode:GL.Material.material_mode -> (unit -> unit) -> unit
val draw_with_lightModel : light_model:GL.light_model -> (unit -> unit) -> unit
val draw_with_shadeModel : shade_mode:GL.shade_mode -> (unit -> unit) -> unit
val draw_with_frontFace : orientation:GL.orientation -> (unit -> unit) -> unit
val draw_with_cullFace : mode:GL.face_mode -> (unit -> unit) -> unit
val draw_enabled : cap:GL.gl_capability -> (unit -> unit) -> unit
val with_enablements : caps:GL.gl_capability list -> (unit -> unit) -> unit
val draw_disabled : cap:GL.gl_capability -> (unit -> unit) -> unit
val draw_with_viewport : viewport:(int * int * int * int) -> (unit -> unit) -> unit
val draw_with_polygonMode : face:GL.face_mode -> mode:GL.polygon_mode -> (unit -> unit) -> unit
val draw_with_polygonMode2 : front:GL.polygon_mode -> back:GL.polygon_mode -> (unit -> unit) -> unit
val do_with_matrixMode : mode:GL.matrix_mode -> (unit -> unit) -> unit
val draw_with_lineWidth : width:float -> (unit -> unit) -> unit
val draw_with_pointSize : size:float -> (unit -> unit) -> unit
val draw_using_program : program:GL.shader_program -> (unit -> unit) -> unit
type qualified_vertices =
  1. | Vertices2 of vertex2 list
  2. | Vertices3 of vertex3 list
  3. | Vertices4 of vertex4 list
  4. | Normal_Vertices2 of (vector * vertex2) list
  5. | Normal_Vertices3 of (vector * vertex3) list
  6. | Normal_Vertices4 of (vector * vertex4) list
  7. | RGB_Vertices2 of (rgb * vertex2) list
  8. | RGB_Vertices3 of (rgb * vertex3) list
  9. | RGB_Vertices4 of (rgb * vertex4) list
  10. | RGBA_Vertices2 of (rgba * vertex2) list
  11. | RGBA_Vertices3 of (rgba * vertex3) list
  12. | RGBA_Vertices4 of (rgba * vertex4) list
  13. | Normal_RGB_Vertices2 of (vector * rgb * vertex2) list
  14. | Normal_RGB_Vertices3 of (vector * rgb * vertex3) list
  15. | Normal_RGB_Vertices4 of (vector * rgb * vertex4) list
  16. | Normal_RGBA_Vertices2 of (vector * rgba * vertex2) list
  17. | Normal_RGBA_Vertices3 of (vector * rgba * vertex3) list
  18. | Normal_RGBA_Vertices4 of (vector * rgba * vertex4) list
  19. | UV_Vertices2 of (uv * vertex2) list
  20. | UV_Vertices3 of (uv * vertex3) list
  21. | UV_Vertices4 of (uv * vertex4) list
  22. | UV_Normal_Vertices2 of (uv * vector * vertex2) list
  23. | UV_Normal_Vertices3 of (uv * vector * vertex3) list
  24. | UV_Normal_Vertices4 of (uv * vector * vertex4) list
  25. | UV_RGB_Vertices2 of (uv * rgb * vertex2) list
  26. | UV_RGB_Vertices3 of (uv * rgb * vertex3) list
  27. | UV_RGB_Vertices4 of (uv * rgb * vertex4) list
  28. | UV_RGBA_Vertices2 of (uv * rgba * vertex2) list
  29. | UV_RGBA_Vertices3 of (uv * rgba * vertex3) list
  30. | UV_RGBA_Vertices4 of (uv * rgba * vertex4) list
  31. | UV_Normal_RGB_Vertices2 of (uv * vector * rgb * vertex2) list
  32. | UV_Normal_RGB_Vertices3 of (uv * vector * rgb * vertex3) list
  33. | UV_Normal_RGB_Vertices4 of (uv * vector * rgb * vertex4) list
  34. | UV_Normal_RGBA_Vertices2 of (uv * vector * rgba * vertex2) list
  35. | UV_Normal_RGBA_Vertices3 of (uv * vector * rgba * vertex3) list
  36. | UV_Normal_RGBA_Vertices4 of (uv * vector * rgba * vertex4) list
val render_primitive : GL.primitive -> qualified_vertices -> unit