module VertArray: sig
.. end
Vertex Arrays
Vertex Array specs
type
client_state =
| |
GL_COLOR_ARRAY |
| |
GL_EDGE_FLAG_ARRAY |
| |
GL_FOG_COORD_ARRAY |
| |
GL_INDEX_ARRAY |
| |
GL_NORMAL_ARRAY |
| |
GL_SECONDARY_COLOR_ARRAY |
| |
GL_TEXTURE_COORD_ARRAY |
| |
GL_VERTEX_ARRAY |
val glEnableClientState : client_state:client_state -> unit
val glDisableClientState : client_state:client_state -> unit
val glDrawArrays : mode:GL.primitive -> first:int -> count:int -> unit
val glMultiDrawArrays : mode:int -> arr:(int * int) array -> unit
val glArrayElement : i:int -> unit
module Elem: sig
.. end
val glDrawElements : mode:GL.primitive ->
count:int ->
data_type:Elem.elem_data_type ->
data:('a, 'b, Bigarray.c_layout) Bigarray.Array1.t -> unit
val glDrawRangeElements : mode:GL.primitive ->
start:int ->
end_:int ->
count:int ->
data_type:Elem.elem_data_type ->
data:('a, 'b, Bigarray.c_layout) Bigarray.Array1.t -> unit
type
interleaved_format =
| |
GL_V2F |
| |
GL_V3F |
| |
GL_C4UB_V2F |
| |
GL_C4UB_V3F |
| |
GL_C3F_V3F |
| |
GL_N3F_V3F |
| |
GL_C4F_N3F_V3F |
| |
GL_T2F_V3F |
| |
GL_T4F_V4F |
| |
GL_T2F_C4UB_V3F |
| |
GL_T2F_C3F_V3F |
| |
GL_T2F_N3F_V3F |
| |
GL_T2F_C4F_N3F_V3F |
| |
GL_T4F_C4F_N3F_V4F |
val glInterleavedArrays : fmt:interleaved_format ->
stride:int -> pointer:('a, 'b, Bigarray.c_layout) Bigarray.Array1.t -> unit
module Coord: sig
.. end
val glVertexPointer : size:int ->
data_type:Coord.coord_data_type ->
stride:int -> data:('a, 'b, Bigarray.c_layout) Bigarray.Array1.t -> unit
val glTexCoordPointer : size:int ->
data_type:Coord.coord_data_type ->
stride:int -> data:('a, 'b, Bigarray.c_layout) Bigarray.Array1.t -> unit
module Norm: sig
.. end
val glNormalPointer : data_type:Norm.norm_data_type ->
stride:int -> data:('a, 'b, Bigarray.c_layout) Bigarray.Array1.t -> unit
module Index: sig
.. end
val glIndexPointer : data_type:Index.index_data_type ->
stride:int -> data:('a, 'b, Bigarray.c_layout) Bigarray.Array1.t -> unit
module Color: sig
.. end
val glColorPointer : size:int ->
data_type:Color.color_data_type ->
stride:int -> data:('a, 'b, Bigarray.c_layout) Bigarray.Array1.t -> unit
val glEdgeFlagPointer : stride:int ->
data:('a, Bigarray.int8_unsigned_elt, Bigarray.c_layout) Bigarray.Array1.t ->
unit