val coord : s:float -> ?t:float -> ?r:float -> ?q:float -> unit -> unit
val coord2 : float * float -> unit
val coord3 : float * float * float -> unit
val coord4 : float * float * float * float -> unit
type env_param =
    [ `color of Gl.rgba | `mode of [ `blend | `decal | `modulate | `replace ] ]
val env : env_param -> unit
type coord = [ `q | `r | `s | `t ]
type gen_param =
    [ `eye_plane of Gl.point4
    | `mode of [ `eye_linear | `object_linear | `sphere_map ]
    | `object_plane of Gl.point4 ]
val gen : coord:coord -> gen_param -> unit
type format =
    [ `alpha
    | `blue
    | `color_index
    | `green
    | `luminance
    | `luminance_alpha
    | `red
    | `rgb
    | `rgba ]
val image1d :
  ?proxy:bool ->
  ?level:int ->
  ?internal:int ->
  ?border:bool -> ([< format ], [< Gl.kind ]) GlPix.t -> unit
val image2d :
  ?proxy:bool ->
  ?level:int ->
  ?internal:int ->
  ?border:bool -> ([< format ], [< Gl.kind ]) GlPix.t -> unit
type filter =
    [ `linear
    | `linear_mipmap_linear
    | `linear_mipmap_nearest
    | `nearest
    | `nearest_mipmap_linear
    | `nearest_mipmap_nearest ]
type wrap = [ `clamp | `repeat ]
type parameter =
    [ `border_color of Gl.rgba
    | `generate_mipmap of bool
    | `mag_filter of [ `linear | `nearest ]
    | `min_filter of filter
    | `priority of Gl.clampf
    | `wrap_s of wrap
    | `wrap_t of wrap ]
val parameter : target:[ `texture_1d | `texture_2d ] -> parameter -> unit
type texture_id = GlTex.texture_id
val gen_texture : unit -> texture_id
val gen_textures : int -> texture_id array
val bind_texture : target:[ `texture_1d | `texture_2d ] -> texture_id -> unit
val delete_texture : texture_id -> unit
val delete_textures : texture_id array -> unit