moveV :: Player -> Player
moveV p = (bounding.y +~ p^.velocity._2) . (velocity._2 +~ 2) $ p
moveV :: Player -> Player
moveV p = (bounding.y +~ p^.velocity._2) . (velocity._2 +~ 2) $ p
moveV p = (bounding.y +~ p^.velocity._2) . (velocity._2 +~ 2) $ p