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
@@ -19,7 +19,7 @@ roomNgon :: Int -> Float -> Room
 roomNgon n x = defaultRoom
    { _rmPolys = [poly]
    , _rmLinks = map toBothLnk lnks -- muout (init lnks) ++ muin[last lnks]
-    , _rmPath  = [] -- TODO
+    , _rmPath  = mempty -- TODO
    , _rmPmnts = [mntLightLnkCond $ resetPLUse $ rprBool $ const . isInLnk]
    , _rmBound = [poly]
    , _rmFloor = Tiled [makeTileFromPoly poly 9]