Rearrange zone sizes

2022-06-28 09:38:24 +01:00
parent 480fc2df5e
commit e8849eb8d5
8 changed files with 23 additions and 20 deletions
@@ -108,7 +108,7 @@ drawInspectWalls w = foldMap (drawInspectWall w)
 drawInspectWall :: World -> Wall -> Picture
 drawInspectWall _ wl = setLayer DebugLayer $ 
        color rose (thickLine 3 [a,b])
-    <> foldMap (drawZone wallZoneSize)
+    <> foldMap (drawZone wlZoneSize)
        (runIdentity $ S.toList_ $ zoneOfWall wl)
  where
    (a,b) = _wlLine wl