mkRectFromCorners :: Coord -> Coord -> Rect
mkRectFromCorners p1 p2 = Rect p1 (p2 `pairMinus` p1)
mkRectFromCorners :: Coord -> Coord -> Rect
mkRectFromCorners p1 p2 = Rect p1 (p2 `pairMinus` p1)
mkRectFromCorners p1 p2 = Rect p1 (p2 `pairMinus` p1)