Cleanup zoning

2022-06-28 13:43:37 +01:00
parent e770fba7bf
commit 9801a40b9e
14 changed files with 84 additions and 106 deletions
@@ -58,7 +58,7 @@ debugWallZoningPic w = setLayer BloomLayer $ zonesPic `appendPic` wallsPic
  where
    --wallsPic = setDepth 25 . color yellow . concatMapPic (drawTheWall . _wlLine) $ IM.elems theWalls
    wallsPic = setDepth 25 . color yellow . runIdentity . S.foldMap_ (drawTheWall . _wlLine) 
-        $ wallsAlongLine sp ep w
+        $ wlsNearSeg sp ep w
    drawTheWall (a,b) = thickLine 20 [a,b]
    zonesPic = setDepth 20 $ drawDDA zones
    zones = ddaExt wlZoneSize sp ep