aadit/tetris-cli
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow starting pieces to be in bounds

Browse source
This commit is contained in:
Sam Tay 2017-06-17 11:05:58 -04:00
parent 8ec499a0a9
commit 344b4f8063
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Tetris.hs
View file

@ -250,7 +250,7 @@ isOccupied = flip M.member
-- | Check if coordinate is in or out of bounds -- | Check if coordinate is in or out of bounds
isInBounds, isOutOfBounds :: Coord -> Bool isInBounds, isOutOfBounds :: Coord -> Bool
isInBounds (x,y) = x `elem` [1..boardWidth] && y `elem` [1..boardHeight] isInBounds (x,y) = x `elem` [1..boardWidth] && y `elem` [1..]
isOutOfBounds = not . isInBounds isOutOfBounds = not . isInBounds
-- | Gravitate current block, i.e. shift down -- | Gravitate current block, i.e. shift down