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

Format, remove unnecessary verbosity

Browse source
This commit is contained in:
Sam Tay 2017-06-17 21:31:45 -04:00
parent e64715d051
commit 2bc72a0e94
2 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Tetris.hs
View file

@ -21,7 +21,6 @@ import Data.Monoid (First(..))
-- 1. USE linear V2 instead of tuples.. dummy -- 1. USE linear V2 instead of tuples.. dummy
-- 3. possibly add 'user' to game state to draw name entry from UI.Game -- 3. possibly add 'user' to game state to draw name entry from UI.Game
-- 4. sometimes freezes if manually shifting down while freezing -- 4. sometimes freezes if manually shifting down while freezing
-- 5. implement hard drop with spacebar
-- Types and instances -- Types and instances
@ -156,9 +155,9 @@ isGameOver g = blockStopped g && g ^. block ^. origin == startOrigin
timeStep :: Game -> IO Game timeStep :: Game -> IO Game
timeStep = timeStep =
bool bool
<$> (pure . gravitate) -- if not stopped <$> (pure . gravitate) -- if not stopped
<*> nextBlock . updateScore . clearFullRows . freezeBlock -- if stopped <*> nextBlock . updateScore . clearFullRows . freezeBlock -- if stopped
<*> blockStopped -- predicate <*> blockStopped -- predicate
-- TODO check if mapKeysMonotonic works -- TODO check if mapKeysMonotonic works
clearFullRows :: Game -> Game clearFullRows :: Game -> Game

2
src/UI/Game.hs
View file

@ -48,7 +48,7 @@ playGame lvl = do
customMain (V.mkVty V.defaultConfig) (Just chan) app initialGame customMain (V.mkVty V.defaultConfig) (Just chan) app initialGame
levelToDelay :: Int -> Int levelToDelay :: Int -> Int
levelToDelay n = floor $ 400000 * 0.85 ^ (2 * n) -- n + (fromIntegral n) levelToDelay n = floor $ 400000 * 0.85 ^ (2 * n)
-- Handling events -- Handling events