sig
  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 : GlTex.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:GlTex.coord -> GlTex.gen_param -> unit
  type format =
      [ `alpha
      | `bgr
      | `bgra
      | `blue
      | `color_index
      | `green
      | `luminance
      | `luminance_alpha
      | `red
      | `rgb
      | `rgba ]
  val image1d :
    ?proxy:bool ->
    ?level:int ->
    ?internal:int ->
    ?border:bool -> ([< GlTex.format ], [< Gl.kind ]) GlPix.t -> unit
  val image2d :
    ?proxy:bool ->
    ?level:int ->
    ?internal:int ->
    ?border:bool -> ([< GlTex.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 GlTex.filter
      | `priority of Gl.clampf
      | `wrap_s of GlTex.wrap
      | `wrap_t of GlTex.wrap ]
  val parameter :
    target:[ `texture_1d | `texture_2d ] -> GlTex.parameter -> unit
  type texture_id
  val gen_texture : unit -> GlTex.texture_id
  val gen_textures : len:int -> GlTex.texture_id array
  val bind_texture :
    target:[ `texture_1d | `texture_2d ] -> GlTex.texture_id -> unit
  val delete_texture : GlTex.texture_id -> unit
  val delete_textures : GlTex.texture_id array -> unit
end