type color_material = [
  1. | `ambient
  2. | `ambient_and_diffuse
  3. | `diffuse
  4. | `emission
  5. | `specular
]
val color_material : face:Gl.face -> color_material -> unit
type fog_param = [
  1. | `End of float
  2. | `color of Gl.rgba
  3. | `density of float
  4. | `index of float
  5. | `mode of [ `exp | `exp2 | `linear ]
  6. | `start of float
]
val fog : fog_param -> unit
type light_param = [
  1. | `ambient of Gl.rgba
  2. | `constant_attenuation of float
  3. | `diffuse of Gl.rgba
  4. | `linear_attenuation of float
  5. | `position of Gl.point4
  6. | `quadratic_attenuation of float
  7. | `specular of Gl.rgba
  8. | `spot_cutoff of float
  9. | `spot_direction of Gl.point3
  10. | `spot_exponent of float
]
val light : num:int -> light_param -> unit
val light_model : [ `ambient of Gl.rgba | `color_control of [ `separate_specular_color | `single_color ] | `local_viewer of bool | `two_side of bool ] -> unit
type material_param = [
  1. | `ambient of Gl.rgba
  2. | `ambient_and_diffuse of Gl.rgba
  3. | `color_indexes of float * float * float
  4. | `diffuse of Gl.rgba
  5. | `emission of Gl.rgba
  6. | `shininess of float
  7. | `specular of Gl.rgba
]
val material : face:Gl.face -> material_param -> unit