type (+'a, +'b) t
val create : [< Gl.kind ] as 'c -> format:[< Gl.format ] as 'd -> width:int -> height:int -> ('d, 'c) t
val of_raw : [< Gl.kind ] as 'c Raw.t -> format:[< Gl.format ] as 'd -> width:int -> height:int -> ('d, 'c) t
val to_raw : ('a, 'b) t -> 'b Raw.t
val format : ('a, 'b) t -> 'a
val width : ('a, 'b) t -> int
val height : ('a, 'b) t -> int
val raw_pos : ([< Gl.format ], [< Gl.kind ]) t -> x:int -> y:int -> int
val read : x:int -> y:int -> width:int -> height:int -> format:[< Gl.format ] as 'c -> kind:[< Gl.kind ] as 'd -> ('c, 'd) t
type bitmap = ([ `color_index ], [ `bitmap ]) t
val bitmap : bitmap -> orig:Gl.point2 -> move:Gl.point2 -> unit
val draw : ([< Gl.format ], [< Gl.kind ]) t -> unit
type map = [
  1. | `a_to_a
  2. | `b_to_b
  3. | `g_to_g
  4. | `i_to_a
  5. | `i_to_b
  6. | `i_to_g
  7. | `i_to_i
  8. | `i_to_r
  9. | `r_to_r
  10. | `s_to_s
]
val map : map -> [ `float ] Raw.t -> unit
type store_param = [
  1. | `pack_alignment of int
  2. | `pack_lsb_first of bool
  3. | `pack_row_length of int
  4. | `pack_skip_pixels of int
  5. | `pack_skip_rows of int
  6. | `pack_swap_bytes of bool
  7. | `unpack_alignment of int
  8. | `unpack_lsb_first of bool
  9. | `unpack_row_length of int
  10. | `unpack_skip_pixels of int
  11. | `unpack_skip_rows of int
  12. | `unpack_swap_bytes of bool
]
val store : store_param -> unit
type transfer_param = [
  1. | `alpha_bias of float
  2. | `alpha_scale of float
  3. | `blue_bias of float
  4. | `blue_scale of float
  5. | `depth_bias of float
  6. | `depth_scale of float
  7. | `green_bias of float
  8. | `green_scale of float
  9. | `index_offset of int
  10. | `index_shift of int
  11. | `map_color of bool
  12. | `map_stencil of bool
  13. | `red_bias of float
  14. | `red_scale of float
]
val transfer : transfer_param -> unit
val zoom : x:float -> y:float -> unit
val raster_pos : x:float -> y:float -> ?z:float -> ?w:float -> unit -> unit
val copy : x:int -> y:int -> width:int -> height:int -> buffer:[ `color | `depth | `stencil ] -> unit