Source file raylib_rlgl.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
include Rlgl_c.Rlgl_types_generated
include Rlgl_c.Rlgl_generated.Functions
open Raylib_core
open Ctypes

module VertexBuffer = struct
  type t' = VertexBuffer.t
  type t = t' ctyp

  let t = VertexBuffer.t
  let element_count vb = getf vb VertexBuffer.element_count
  let vertices vb = getf vb VertexBuffer.vertices
  let texcoords vb = getf vb VertexBuffer.texcoords
  let colors vb = getf vb VertexBuffer.colors
  let indices vb = getf vb VertexBuffer.indices
  let vao_id vb = VaoId.of_uint (getf vb VertexBuffer.vao_id)
end

module DrawCall = struct
  type t' = DrawCall.t
  type t = t' ctyp

  let t = DrawCall.t
  let mode dc = Int64.of_int (getf dc DrawCall.mode)
  let vertex_count dc = getf dc DrawCall.vertex_count
  let vertex_alignment dc = getf dc DrawCall.vertex_alignment
  let texture_id dc = TextureId.of_uint (getf dc DrawCall.texture_id)
end

module RenderBatch = struct
  type t' = RenderBatch.t
  type t = t' ctyp

  let t = RenderBatch.t
  let buffer_count rb = getf rb RenderBatch.buffer_count
  let current_buffer rb = getf rb RenderBatch.current_buffer
  let vertex_buffer rb = getf rb RenderBatch.vertex_buffer
  let draws rb = getf rb RenderBatch.draws
  let draw_counter rb = getf rb RenderBatch.draw_counter
  let current_depth rb = getf rb RenderBatch.current_depth
end