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

Implement safe rotations

Browse source
This commit is contained in:
Sam Tay 2017-06-15 20:50:31 -04:00
parent d5f9c5146b
commit 0a20f0a5ff
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/Tetris.hs
View file

@ -13,6 +13,8 @@ import Lens.Micro.TH
import System.Random (getStdRandom, randomR) import System.Random (getStdRandom, randomR)
import Prelude hiding (Left, Right) import Prelude hiding (Left, Right)
import Data.Maybe (fromMaybe)
import Data.Monoid (First(..))
-- Types and instances -- Types and instances
@ -152,9 +154,16 @@ clearFullRows g = g & board %~ clearBoard
in (x, y - offset) in (x, y - offset)
-- | Handle counterclockwise block rotation (if possible) -- | Handle counterclockwise block rotation (if possible)
-- TODO wallkicks http://tetris.wikia.com/wiki/TGM_rotation -- Allows wallkicks: http://tetris.wikia.com/wiki/TGM_rotation
rotate :: Game -> Game rotate :: Game -> Game
rotate = undefined rotate g = g & currBlock .~ nextB
where nextB = fromMaybe blk $ getFirst . mconcat $ bs
bs = map ($ blk) safeFuncs
safeFuncs = map (mkSafe .) funcs
mkSafe b = if isValidBlockPosition b brd then First (Just b) else First Nothing
funcs = [rotate', rotate' . translate Left, rotate' . translate Right]
blk = g ^. currBlock
brd = g ^. board
-- | Check if a block on a board is stopped from further gravitation -- | Check if a block on a board is stopped from further gravitation
isStopped :: Board -> Block -> Bool isStopped :: Board -> Block -> Bool