Continue to refactor zoning to be more stream-based

2022-06-28 03:21:55 +01:00
parent f6d96ec92c
commit e06527091e
34 changed files with 214 additions and 252 deletions
@@ -11,11 +11,7 @@ import Streaming
 import qualified Streaming.Prelude as S

 zoneOfWall :: Wall -> Stream (Of (V2 Int)) Identity ()
-zoneOfWall = uncurry zoneOfLineStream . _wlLine
--    | uncurry dist wlline <= 2*zoneSize = [zoneOfPoint $ uncurry midPoint wlline ]
--    | otherwise = map zoneOfPoint $ uncurry (divideLine zoneSize) wlline
--  where
--    wlline = _wlLine wl
+zoneOfWall = uncurry (zoneOfSeg wallZoneSize) . _wlLine

 insertWallInZones :: Wall -> World -> World
 insertWallInZones wl = wallsZone . znObjects