/usr/lib/ocaml/lablgl/glLight.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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | (* $Id: glLight.mli,v 1.7 2003-04-24 16:42:59 erickt Exp $ *)
open Gl
type color_material =
[`emission|`ambient|`diffuse|`specular|`ambient_and_diffuse]
val color_material : face:face -> color_material -> unit
type fog_param = [
`mode of [`linear|`exp|`exp2]
| `density of float
| `start of float
| `End of float
| `index of float
| `color of rgba
]
val fog : fog_param -> unit
type light_param = [
`ambient of rgba
| `diffuse of rgba
| `specular of rgba
| `position of point4
| `spot_direction of point3
| `spot_exponent of float
| `spot_cutoff of float
| `constant_attenuation of float
| `linear_attenuation of float
| `quadratic_attenuation of float
]
val light : num:int -> light_param -> unit
val light_model : [
`ambient of rgba
| `local_viewer of bool
| `two_side of bool
| `color_control of [`separate_specular_color|`single_color]
] -> unit
type material_param = [
`ambient of rgba
| `diffuse of rgba
| `specular of rgba
| `emission of rgba
| `shininess of float
| `ambient_and_diffuse of rgba
| `color_indexes of (float * float * float)
]
val material : face:face -> material_param -> unit
|