Fuse close points in pathing layout

2022-07-09 23:51:47 +01:00
parent fb66a45495
commit d53e87e5eb
2 changed files with 13 additions and 1 deletions
@@ -51,8 +51,9 @@ generateLevelFromRoomList gr' w = initWallZoning
        & peZoning   %~ (\zn -> foldl' (flip $ updateZoning (:)) (zn & znObjects .~ mempty)
            (labEdges path))
  where
-    (_,path) = pairsToGraph pairPath
+    (_,path) = pairsToGraph pairPath'
    pairPath = foldMap _rmPath rs
+    pairPath' = fusePairs pairPath
    rs = map doRoomShift $ IM.elems rs'
    rs'= mapM shuffleRoomPos gr' & evalState $ _randGen w