sig
  val get_string : [ `extensions | `version ] -> string
  val build_1d_mipmaps :
    ?internal:int -> ([< GlTex.format ], [< Gl.kind ]) GlPix.t -> unit
  val build_2d_mipmaps :
    ?internal:int -> ([< GlTex.format ], [< Gl.kind ]) GlPix.t -> unit
  val scale_image :
    width:int ->
    height:int ->
    ([< Gl.format ] as 'a, [< Gl.kind ] as 'b) GlPix.t -> ('a, 'b) GlPix.t
end