From 877d7dc25148d04b1859455f5de1d34aa481cb14 Mon Sep 17 00:00:00 2001
From: Eric Mertens <emertens@gmail.com>
Date: Sat, 3 Dec 2022 11:54:06 -0800
Subject: [PATCH] Bigger flat

---
 app/Rendering.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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