/usr/lib/ocaml/lablgl/glArray.mli is in liblablgl-ocaml-dev 1:1.05-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 | (** Vertex array manipulation functions *)
(* $Id: glArray.mli,v 1.7 2008-10-25 02:22:58 garrigue Exp $ *)
(** The six different kinds for array *)
type kind =
[ `color | `edge_flag | `index | `normal | `texture_coord | `vertex ]
(** Tell openGL the address of the edgeFlag array.
Raw array must be static. *)
val edge_flag : [ `bitmap ] Raw.t -> unit
(** Tell openGL the address of the texCoor array
Raw array must be static. *)
val tex_coord :
[< `one | `two | `three | `four] ->
[< `double | `float | `int | `short ] Raw.t -> unit
(** Tell openGL the address of the color array
Raw array must be static. *)
val color :
[< `three | `four] ->
[< `byte | `double | `float | `int | `short | `ubyte | `uint | `ushort ]
Raw.t -> unit
(** Tell openGL the address of the index array
Raw array must be static. *)
val index : [< `double | `float | `int | `short | `ubyte ] Raw.t -> unit
(** Tell openGL the address of the normal array
Raw array must be static. *)
val normal : [< `byte | `double | `float | `int | `short ] Raw.t -> unit
(** Tell openGL the address of the vertex array
Raw array must be static. *)
val vertex :
[< `two | `three | `four] -> [< `double | `float | `int | `short ] Raw.t
-> unit
(** Tell openGL the address of to use the specified array
Raw array must be static. *)
external enable : kind -> unit = "ml_glEnableClientState"
(** Tell openGL the address of not to use the specified array
Raw array must be static. *)
external disable : kind -> unit = "ml_glDisableClientState"
(* GlArray.element i
sends to openGL the element i of all enabled arrays *)
external element : int -> unit = "ml_glArrayElement"
(* GlArray.draw_arrays shape i c
sends to openGL a GlDraw.begins shape and all the element from i to i+c-1
of all enabled arrays and finally do a GlDraw.ends () *)
external draw_arrays : GlDraw.shape -> first:int -> count:int -> unit
= "ml_glDrawArrays"
(* GlArray.draw_elements shape c tbl
sends to openGL a GlDraw.begins shape and all the element from tbl[0] to
tbl[c-1] of all enabled arrays and finally do a GlDraw.ends () *)
external draw_elements :
GlDraw.shape -> count:int -> [< `ubyte | `uint | `ushort ] Raw.t -> unit
= "ml_glDrawElements"
|