and t = {width : int;height : int;bitmap : bitmap;
}val create_with : int -> int -> bytes -> tval create_with_scanlines : int -> int -> bytes array -> tval create : int -> int -> tval make : int -> int -> elt -> tval unsafe_access : t -> int -> int -> bytes * intval get_strip : t -> int -> int -> int -> bytesval set_strip : t -> int -> int -> int -> bytes -> unitval get_scanline : t -> int -> bytesval get_scanline_ptr : t -> (int -> (bytes * int) * int) optionval set_scanline : t -> int -> bytes -> unitval unsafe_get : t -> int -> int -> eltval unsafe_set : t -> int -> int -> elt -> unitval get : t -> int -> int -> eltval set : t -> int -> int -> elt -> unitval sub : t -> int -> int -> int -> int -> tval blit : t -> int -> int -> t -> int -> int -> int -> int -> unitval map :
(elt -> elt -> elt) ->
t ->
int ->
int ->
t ->
int ->
int ->
int ->
int ->
unitval blocks : t -> int * int