binarizeY :: (Bounded a) => Double -> Double -> Double -> a
binarizeY a b y
  | y >= a && y < b = minBound
  | otherwise = maxBound
binarizeY :: (Bounded a) => Double -> Double -> Double -> a
binarizeY a b y
  | y >= a && y < b = minBound
  | otherwise = maxBound
binarizeY a b y
  | y >= a && y < b = minBound
  | otherwise = maxBound