-- | Return the point at the top-left corner of the given rectangle.
rectTopleft :: Rect a -> Point a
rectTopleft (Rect x y _ _) = Point x y
rectTopleft :: Rect a -> Point a
rectTopleft (Rect x y _ _) = Point x y
rectTopleft (Rect x y _ _) = Point x y