rectContains :: (Real a) => Rect a -> Point a -> Bool
rectContains (Rect x y w h) (Point x' y') =
  x' >= x && y' >= y && x' < x + w && y' < y + h
rectContains :: (Real a) => Rect a -> Point a -> Bool
rectContains (Rect x y w h) (Point x' y') =
  x' >= x && y' >= y && x' < x + w && y' < y + h
rectContains (Rect x y w h) (Point x' y') =
  x' >= x && y' >= y && x' < x + w && y' < y + h