Commit before tweaking placementn/room generation

2025-09-23 09:52:52 +01:00
parent 4179115023
commit d1bb8a985b
18 changed files with 308 additions and 201 deletions
@@ -39,7 +39,7 @@ positionRoomsFromTree (Node (r, i) ts) =
            (fmap (prRooms %~ map (first createUnusedLinkPos)))
            (posRms (PosRooms (map pointsToPoly $ _rmBound r') []) (r', i) (zipCount ts) Empty)
  where
-    r' = r & rmMID ?~ 0
+    r' = r & rmMID ?~ i

 posRms ::
    PosRooms ->