Fixes #103: Change paddle step directions to match keys

This commit is contained in:
Kieran 2013-03-11 14:59:28 +13:00
parent cf173a90da
commit 121bab68fd

View file

@ -156,7 +156,7 @@ defaultGame = GameState BetweenRounds
-- by keyboard input).
stepPaddle delta dir (Paddle y) =
Paddle $ clamp 20 (gameHeight-20) (y + toFloat dir * 200 * delta)
Paddle $ clamp 20 (gameHeight-20) (y - toFloat dir * 200 * delta)
-- We must also step the ball forward. This is more complicated due to