/usr/lib/ocaml/lablgl/glLight.ml 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 50 51 52 53 | (* $Id: glLight.ml,v 1.7 2003-04-24 16:42:59 erickt Exp $ *)
open Gl
type color_material =
[`emission|`ambient|`diffuse|`specular|`ambient_and_diffuse]
external color_material : face:face -> color_material -> unit
= "ml_glColorMaterial"
type fog_param = [
`mode of [`linear|`exp|`exp2]
| `density of float
| `start of float
| `End of float
| `index of float
| `color of rgba
]
external fog : fog_param -> unit = "ml_glFog"
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
]
external light : num:int -> light_param -> unit
= "ml_glLight"
type light_model_param = [
`ambient of rgba
| `local_viewer of bool
| `two_side of bool
| `color_control of [`separate_specular_color | `single_color]
]
external light_model : light_model_param -> unit = "ml_glLightModel"
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)
]
external material : face:face -> material_param -> unit
= "ml_glMaterial"
|