insideRect :: Rect -> Coord -> Bool
insideRect (Rect (tlx,tly) (w,h)) (x,y) = x >= tlx && y >= tly && x < (tlx+w) && y < (tly+h)
insideRect :: Rect -> Coord -> Bool
insideRect (Rect (tlx,tly) (w,h)) (x,y) = x >= tlx && y >= tly && x < (tlx+w) && y < (tly+h)
insideRect (Rect (tlx,tly) (w,h)) (x,y) = x >= tlx && y >= tly && x < (tlx+w) && y < (tly+h)