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

Make visuals a tad clearer with a poor man's grid

Browse source
This commit is contained in:
Sam Tay 2017-06-17 17:00:51 -04:00
parent f2327fc3c5
commit dcacb9bf73
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/UI/Game.hs
View file

@ -106,7 +106,7 @@ drawCell t = withAttr (tToAttr t) cw
tToAttr L = lAttr tToAttr L = lAttr
cw :: Widget Name cw :: Widget Name
cw = str " " cw = str " ."
drawScore :: Int -> Widget Name drawScore :: Int -> Widget Name
drawScore n = vBox [ C.vCenter $ str "Score" drawScore n = vBox [ C.vCenter $ str "Score"
@ -125,13 +125,13 @@ drawNextShape t = padAll 1
-- TODO test on mac terminal defAttr vs (bg black) -- TODO test on mac terminal defAttr vs (bg black)
theMap = attrMap V.defAttr theMap = attrMap V.defAttr
[ (iAttr, bg V.cyan) [ (iAttr, on V.cyan V.cyan)
, (oAttr, bg V.yellow) , (oAttr, on V.yellow V.yellow)
, (tAttr, bg V.magenta) , (tAttr, on V.magenta V.magenta)
, (sAttr, bg V.green) , (sAttr, on V.green V.green)
, (zAttr, bg V.red) , (zAttr, on V.red V.red)
, (jAttr, bg V.blue) , (jAttr, on V.blue V.blue)
, (lAttr, bg V.white) -- damn no orange in ANSI , (lAttr, on V.white V.white) -- damn no orange in ANSI
] ]
iAttr, oAttr, tAttr, sAttr, zAttr, jAttr, lAttr :: AttrName iAttr, oAttr, tAttr, sAttr, zAttr, jAttr, lAttr :: AttrName