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
|
(* $Id: glLight.mli,v 1.5 2000/04/03 02:57:41 garrigue 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 float|`two_side of bool] -> 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
|
