film :: (Show f, Filter f) => (Int, Int) -> f -> Film
film b@(w, h) f = Film b (filterBox f) (listArray ((0, 0), (w-1, h-1)) (cycle [Pixel 0 0]))
film :: (Show f, Filter f) => (Int, Int) -> f -> Film
film b@(w, h) f = Film b (filterBox f) (listArray ((0, 0), (w-1, h-1)) (cycle [Pixel 0 0]))
film b@(w, h) f = Film b (filterBox f) (listArray ((0, 0), (w-1, h-1)) (cycle [Pixel 0 0]))