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