filmSampleBounds :: Film -> ((Int, Int), (Int, Int))
filmSampleBounds (Film (w, h) f _) = let (ex, ey) = filterExtent f
                                     in ((floor (-ex), floor (-ey)), (ceiling (fromIntegral w+ex), ceiling (fromIntegral h+ey)))
filmSampleBounds :: Film -> ((Int, Int), (Int, Int))
filmSampleBounds (Film (w, h) f _) = let (ex, ey) = filterExtent f
                                     in ((floor (-ex), floor (-ey)), (ceiling (fromIntegral w+ex), ceiling (fromIntegral h+ey)))
filmSampleBounds (Film (w, h) f _) = let (ex, ey) = filterExtent f
                                     in ((floor (-ex), floor (-ey)), (ceiling (fromIntegral w+ex), ceiling (fromIntegral h+ey)))