Use explicit out and in placements with ids

2022-03-11 12:55:59 +00:00
parent 219e4e15ee
commit 5d43fc8244
6 changed files with 33 additions and 30 deletions
@@ -57,11 +57,11 @@ runPastRoom i = do
    let linkcor = critRoom & rmPmnts .~ [ spanLS thels (V2 0 65) (V2 40 65) ]
        critroom = linkcor & rmPmnts .:~ plRRpt 0 randC1
        aswitchroom = corridorWallN
-            {_rmExtPmnt = Just $ putLitButOnPosExtTrig red useUnusedLnk
+            {_rmOutPmnt = [OutPlacement (putLitButOnPosExtTrig red useUnusedLnk) i]
            ,_rmLabel = Just i
            ,_rmPmnts = []
            }
-        switchdoor = switchDoorRoom & rmTakeFrom ?~ i
+        switchdoor = switchDoorRoom i & rmTakeFrom ?~ i
        n = length $ filter theedgetest $ map lnkPosDir $ _rmLinks cenroom
        controom = treeFromPost [PassDown switchdoor,PassDown linkcor] (UseAll door)
        critrooms :: [SubCompTree Room]