toki/snake
1
0
Fork 0
Code Issues Pull requests Activity

Fix orientation error

Browse source
This commit is contained in:
Kiana Sheibani 2023-01-25 15:49:42 -05:00
parent ebb27755d2
commit 079294e2df
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Game/State.hs
View file

@ -3,8 +3,8 @@ module Game.State where
data Direction = U | D | L | R data Direction = U | D | L | R
movePos :: Direction -> (Int, Int) -> (Int, Int) movePos :: Direction -> (Int, Int) -> (Int, Int)
movePos U (x, y) = (x, y - 1) movePos U (x, y) = (x, y + 1)
movePos D (x, y) = (x, y + 1) movePos D (x, y) = (x, y - 1)
movePos L (x, y) = (x - 1, y) movePos L (x, y) = (x - 1, y)
movePos R (x, y) = (x + 1, y) movePos R (x, y) = (x + 1, y)