glguy/parabox
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bigger flat

Browse Source
This commit is contained in:
Eric Mertens 2022-12-03 11:54:06 -08:00
parent 100087d1fb
commit 877d7dc251
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/Rendering.hs
View File

@ -42,7 +42,7 @@ renderCell world locMap name box y x scale =
if boxWalls world box ! (y,x) then unit (boxColor box) scale wallChar if boxWalls world box ! (y,x) then unit (boxColor box) scale wallChar
else case Map.lookup (Location name' y x) locMap of else case Map.lookup (Location name' y x) locMap of
Just n -> Just n ->
if scale == 1 if scale < 9
then unit (boxColor (worldBoxes world Map.! n)) scale n then unit (boxColor (worldBoxes world Map.! n)) scale n
else renderBox world locMap (worldBoxes world Map.! n) n else renderBox world locMap (worldBoxes world Map.! n) n
(scale `div` boxSize world box) (scale `div` boxSize world box)
@ -102,7 +102,7 @@ renderFlat locMap world =
pad 2 1 2 1 $ pad 2 1 2 1 $
horizCat $ horizCat $
intersperse (char borderAttr ' ') intersperse (char borderAttr ' ')
[renderBox world locMap b n 1 [renderBox world locMap b n 2
| (n,b) <- Map.assocs (worldBoxes world) | (n,b) <- Map.assocs (worldBoxes world)
, Original{} <- [boxType b]] , Original{} <- [boxType b]]