Store paths crossing block walls in block

2022-07-02 15:31:27 +01:00
parent 75a98a572f
commit 3952ec6315
8 changed files with 52 additions and 17 deletions
@@ -48,10 +48,10 @@ generateLevelFromRoomList gr' w = initWallZoning
        }
        & pnZoning   %~ (\zn -> foldl' (flip $ updateZoning (:)) (zn & znObjects .~ mempty)
            (labNodes path))
--        & peZoning   %~ (\zn -> foldl' (flip $ updateZoning (:)) (zn & znObjects .~ mempty)
--            (labEdges (_pgGraph path)))
+        & peZoning   %~ (\zn -> foldl' (flip $ updateZoning (:)) (zn & znObjects .~ mempty)
+            (labEdges path))
  where
-    path = pairsToGraph pairPath
+    (_,path) = pairsToGraph pairPath
    pairPath = foldMap _rmPath rs
    rs = map doRoomShift $ IM.elems rs'
    rs'= mapM shuffleRoomPos gr' & evalState $ _randGen w