sig
  type t
  type elt
  val create : int -> int -> Image_intf.IMAGE.t
  val make : int -> int -> Image_intf.IMAGE.elt -> Image_intf.IMAGE.t
  val destroy : Image_intf.IMAGE.t -> unit
  val get : Image_intf.IMAGE.t -> int -> int -> Image_intf.IMAGE.elt
  val set : Image_intf.IMAGE.t -> int -> int -> Image_intf.IMAGE.elt -> unit
  val unsafe_get : Image_intf.IMAGE.t -> int -> int -> Image_intf.IMAGE.elt
  val unsafe_set :
    Image_intf.IMAGE.t -> int -> int -> Image_intf.IMAGE.elt -> unit
  val copy : Image_intf.IMAGE.t -> Image_intf.IMAGE.t
  val sub :
    Image_intf.IMAGE.t -> int -> int -> int -> int -> Image_intf.IMAGE.t
  val blit :
    Image_intf.IMAGE.t ->
    int -> int -> Image_intf.IMAGE.t -> int -> int -> int -> int -> unit
  val map :
    (Image_intf.IMAGE.elt -> Image_intf.IMAGE.elt -> Image_intf.IMAGE.elt) ->
    Image_intf.IMAGE.t ->
    int -> int -> Image_intf.IMAGE.t -> int -> int -> int -> int -> unit
  val dump : Image_intf.IMAGE.t -> string
  val unsafe_access : Image_intf.IMAGE.t -> int -> int -> string * int
  val get_strip : Image_intf.IMAGE.t -> int -> int -> int -> string
  val set_strip : Image_intf.IMAGE.t -> int -> int -> int -> string -> unit
  val get_scanline : Image_intf.IMAGE.t -> int -> string
  val get_scanline_ptr :
    Image_intf.IMAGE.t -> (int -> (string * int) * int) option
  val set_scanline : Image_intf.IMAGE.t -> int -> string -> unit
  val blocks : Image_intf.IMAGE.t -> int * int
  val dump_block : Image_intf.IMAGE.t -> int -> int -> Bitmap.Block.t
end