move :: XPos -> YPos -> Dimensions -> Dimensions
move x y (D t r b l) = D (t+y) (r+x) (b+y) (l+x)
move :: XPos -> YPos -> Dimensions -> Dimensions
move x y (D t r b l) = D (t+y) (r+x) (b+y) (l+x)
move x y (D t r b l) = D (t+y) (r+x) (b+y) (l+x)