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