sig
val debug : bool Pervasives.ref
val maximum_live : int Pervasives.ref
val maximum_block_size : int Pervasives.ref
module type Bitdepth = sig val bytes_per_pixel : int end
module Make :
functor (B : Bitdepth) ->
sig
type t
val create : int -> int -> string option -> Bitmap.Make.t
val create_with : int -> int -> string -> Bitmap.Make.t
val destroy : Bitmap.Make.t -> unit
val access : Bitmap.Make.t -> int -> int -> string * int
val get_strip : Bitmap.Make.t -> int -> int -> int -> string
val set_strip : Bitmap.Make.t -> int -> int -> int -> string -> unit
val get_scanline : Bitmap.Make.t -> int -> string
val set_scanline : Bitmap.Make.t -> int -> string -> unit
val dump : Bitmap.Make.t -> string
val copy : Bitmap.Make.t -> Bitmap.Make.t
val sub : Bitmap.Make.t -> int -> int -> int -> int -> Bitmap.Make.t
val blit :
Bitmap.Make.t ->
int -> int -> Bitmap.Make.t -> int -> int -> int -> int -> unit
end
end