Rearrange zone sizes

src/Dodge/Render/ShapePicture.hs

@@ -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 

src/Dodge/Render/Walls.hs

@@ -25,7 +25,7 @@ wallsToDraw w
         <$> L.prefilter wlOpaqueDraw (L.premap f L.list)
         <*> L.prefilter wlSeeThroughDraw (L.premap f L.list)
         <*> L.premap getWallSPic L.mconcat
-        ) (S.concat $ S.mapMaybe g $ zoneOfSight wallZoneSize w)
+        ) (S.concat $ S.mapMaybe g $ zoneOfSight wlZoneSize w)
     g (V2 i j) = w ^? wallsZone . znObjects . ix i . ix j
     
 wlOpaqueDraw :: Wall -> Bool