Make zoning more universal

2022-06-28 19:04:31 +01:00
parent 4965934502
commit b1a7e1bf35
16 changed files with 152 additions and 97 deletions
@@ -30,7 +30,7 @@ unshadowBlock :: Int -> World -> World
 unshadowBlock wlid w = case w ^? walls . ix wlid of
    Just wl -> w
        & walls . ix wlid . wlDraw .~ True
-        & wallsZone . znObjects . ix x . ix y . ix wlid . wlDraw .~ True
+        & wlZoning . znObjects . ix x . ix y . ix wlid . wlDraw .~ True
      where
        V2 x y = wlZoneOfPoint $ uncurry midPoint (_wlLine wl)
    Nothing -> w