Work towards cross-room placements

src/Dodge/Room/LongDoor.hs

@@ -38,7 +38,7 @@ twinSlowDoorRoom w h x = defaultRoom
         , (V2 0 (-h), pi)
         ]
     , _rmPath   = []
-    , _rmPS     = 
+    , _rmPmnts     = 
         [ Placement (PS (V2 0 (h-5)) pi) ( PutButton $ makeButton col id)
             $ \btid -> jsps0J (PutSlideDoor False col (cond' btid) (V2 x 1) (V2 x h) wlSpeed)
             $ ps0 (PutSlideDoor False col (cond' btid) (V2 (-x) 1) (V2 (-x) h) wlSpeed)
@@ -73,7 +73,7 @@ twinSlowDoorChasers = do
         rps = V2 65 <$> [20,40 .. 180]
     ps <- takeN 4 $ lps ++ rps
     let plmnts = map (\p -> sPS p 0 $ PutCrit chaseCrit) ps
-    return $ twinSlowDoorRoom 80 200 40 & rmPS %~ (plmnts ++)
+    return $ twinSlowDoorRoom 80 200 40 & rmPmnts %~ (plmnts ++)
 
 southPillarsRoom :: RandomGen g => Float -> Float -> Float -> State g Room
 southPillarsRoom x y h = do
@@ -85,7 +85,7 @@ southPillarsRoom x y h = do
         pillarsc = putBlockRect (x/3-20) (x/3+20) (h/2-20) (h/2+20)
            ++ putBlockRect (2*x/3-20) (2*x/3+20) (h/2-20) (h/2+20)
     pillars <- takeOne [pillarsa, pillarsb, pillarsc]
-    return $ roomRectAutoLinks x y & rmPS .~ pillars
+    return $ roomRectAutoLinks x y & rmPmnts .~ pillars
 
 addSouthPillars :: RandomGen g => Float -> Float -> Room -> State g Room
 addSouthPillars x h r = do
@@ -97,7 +97,7 @@ addSouthPillars x h r = do
         pillarsc = putBlockRect (x/3-20) (x/3+20) (h/2-20) (h/2+20)
            ++ putBlockRect (2*x/3-20) (2*x/3+20) (h/2-20) (h/2+20)
     pillars <- takeOne [pillarsa, pillarsb, pillarsc]
-    return $ r & rmPS %~ (++ pillars)
+    return $ r & rmPmnts %~ (++ pillars)
 
 addButtonSlowDoor :: RandomGen g => Float -> Float -> Room -> State g Room
 addButtonSlowDoor x h rm = do
@@ -107,7 +107,7 @@ addButtonSlowDoor x h rm = do
        ]
     thePlacement <- takeOne [butDoor butPos butRot ]
     changeLinkFrom aboveH =<< changeLinkTo belowH (rm 
-        & rmPS %~ (thePlacement :)
+        & rmPmnts %~ (thePlacement :)
         & rmBound %~ (openDoorBound :)
         )
   where
@@ -138,7 +138,7 @@ slowDoorRoom = do
         lsources = [sPS (V2 (x/2) 30) 0 putLamp, sPS (V2 (x/2) (y-30)) 0 putLamp]
         barrels = zipWith (\x' y' -> sPS (V2 x' y') 0 $ PutCrit explosiveBarrel) xs' ys'
     proom <- southPillarsRoom x y h
-    addButtonSlowDoor x h (proom & rmPS %~ (++ (crits ++ barrels ++ lsources)))
+    addButtonSlowDoor x h (proom & rmPmnts %~ (++ (crits ++ barrels ++ lsources)))
 
 randC1 :: PSType
 randC1 = RandPS $ takeOne $ map PutCrit $ armourChaseCrit : replicate 50 chaseCrit