Seed_fill
val area : Bitmap.t -> int -> int -> Bitmap.t
val fill : Bitmap.t -> Pattern.t -> int -> int -> unit