type t = bool array arrayval create_white : int -> int -> tval create : int -> int -> tval init : int -> int -> (int -> int -> bool) -> tval get_pixel : 'a array array -> int -> int -> 'aval set_pixel : 'a array array -> int -> int -> 'a -> unitval fill : t -> (int -> int -> bool) -> unitval scale : t -> t -> unitval rescale : int -> int -> t -> tval blit : t -> ?x:int -> ?y:int -> t -> unitmodule Font : sig ... end