+-- more consitent but much slower
+-- findContents :: Pixel -> ImageEnhancer Bool
+-- findContents here =
+-- do g <- gets grid
+-- distant <- gets distantPixel
+-- region <- gets explicitRegion
+-- return $ if inRange region here
+-- then (here `S.member` g)
+-- else distant