-- | Return the point at the top-left corner of the given rectangle.
rectCenter :: (Axis a) => Rect a -> Point a
rectCenter (Rect x y w h) = Point (x + half w) (y + half h)
rectCenter :: (Axis a) => Rect a -> Point a
rectCenter (Rect x y w h) = Point (x + half w) (y + half h)
rectCenter (Rect x y w h) = Point (x + half w) (y + half h)