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

Derp city over here

Browse source
This commit is contained in:
Sam Tay 2017-06-17 16:01:51 -04:00
parent c49028a04c
commit 80102d5a4a
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Tetris.hs
View file

@ -82,7 +82,7 @@ initBlock :: Tetrimino -> Block
initBlock t = Block t startOrigin $ offset startOrigin $ relCells t initBlock t = Block t startOrigin $ offset startOrigin $ relCells t
offset :: Coord -> [Coord] -> [Coord] offset :: Coord -> [Coord] -> [Coord]
offset (xo,yo) = fmap (\(x,y) -> (xo + x, yo + x)) offset (xo,yo) = fmap (\(x,y) -> (xo + x, yo + y))
relCells :: Tetrimino -> [Coord] relCells :: Tetrimino -> [Coord]
relCells I = [(-2,0), (-1,0), (1,0)] relCells I = [(-2,0), (-1,0), (1,0)]

2
src/UI/Game.hs
View file

@ -89,7 +89,7 @@ drawGrid g = withBorderStyle BS.unicodeBold
blkMap = M.fromList [(c, Just $ g ^. block ^. shape) | c <- g ^. block ^. to coords] blkMap = M.fromList [(c, Just $ g ^. block ^. shape) | c <- g ^. block ^. to coords]
emptyMap :: Map Coord (Maybe a) emptyMap :: Map Coord (Maybe a)
emptyMap = M.fromList [((x,y), Nothing) | x <- [1..boardWidth], y <- [1,boardHeight]] emptyMap = M.fromList [((x,y), Nothing) | x <- [1..boardWidth], y <- [1..boardHeight]]
drawMCell :: Maybe Tetrimino -> Widget Name drawMCell :: Maybe Tetrimino -> Widget Name
drawMCell Nothing = withAttr emptyAttr cw drawMCell Nothing = withAttr emptyAttr cw