/usr/lib/ocaml/lablgl/glList.mli is in liblablgl-ocaml-dev 1:1.05-1.
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 | (* $Id: glList.mli,v 1.4 2000-04-03 02:57:41 garrigue Exp $ *)
type t
val create : [`compile|`compile_and_execute] -> t
(* [create mode] creates a new display list in given mode.
It is equivalent to
[let base = gen_lists len:1 in begins (nth base pos:0)] *)
val ends : unit -> unit
(* glEndList: end a display list started by create or begins *)
val call : t -> unit
val delete : t -> unit
type base
val nth : base -> pos:int -> t
(* [nth base :pos] returns the index of the list at base+pos *)
val is_list : t -> bool
(* [is_list l] is true if l indexes a display list *)
val gen_lists : len:int -> base
(* Generate len new display lists. They are indexed by
[nth base pos:0] to [nth base pos:(len-1)] *)
val begins : t -> mode:[`compile|`compile_and_execute] -> unit
(* glNewList: start the definition of a display list in given mode *)
val delete_lists : base -> len:int -> unit
(* Delete len lists starting at base *)
val call_lists : ?base:base -> [ `byte of string | `int of int array] -> unit
(* Call the lists whose indexes are given either by a string
(code of each character) or an array.
If the base is omited, the base given in a previous call is assumed *)
|