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

Stop elements in row 1

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

4
src/Tetris.hs
View file

@ -217,7 +217,9 @@ blockStopped g = isStopped (g ^. board) (g ^. block)
-- | Check if a block on a board is stopped from further gravitation
isStopped :: Board -> Block -> Bool
isStopped b = any (`M.member` b) . map (translate Down) . coords
isStopped brd = any cStopped . coords
where cStopped = (||) <$> inRow1 <*> (`M.member` brd) . (translate Down)
inRow1 (_,y) = y == 1
-- | Freeze current block
freezeBlock :: Game -> Game