Work towards cross-room placements

src/Dodge/Room/Boss.hs

@@ -34,7 +34,7 @@ roomGlassOctogon x = createPathGrid $ defaultRoom
         [ ( V2 0 x        , V2 0 (-(x+40)))
         , ( V2 0 (-(x+40)), V2 0 x)
         ]
-    , _rmPS = 
+    , _rmPmnts = 
         [sPS (V2 fx fx)     0 putLamp
         ,sPS (V2 (-fx) fx)  0 putLamp
         ,sPS (V2 fx (-fx))  0 putLamp
@@ -55,14 +55,14 @@ roomGlassOctogon x = createPathGrid $ defaultRoom
         ]
 
 bossRoom :: RandomGen g => Creature -> State g Room
-bossRoom cr = randomMediumRoom <&> rmPS %~ ( sPS (V2 0 100) (negate $ pi/2) (PutCrit cr) :)
+bossRoom cr = randomMediumRoom <&> rmPmnts %~ ( sPS (V2 0 100) (negate $ pi/2) (PutCrit cr) :)
 
 armouredChasers :: RandomGen g => State g (Tree Room)
 armouredChasers = do
     ps <- takeN 5 [V2 x y | x <- [-100,-80 .. 100] ,y <- [-100,-80 .. 100] ]
     as <- replicateM 5 . state $ randomR (0,2*pi)
     let theCrits = zipWith3 (\p a c -> sPS p a (PutCrit c)) ps as cs
-    treeFromPost [corridor,corridor] <$> (randomMediumRoom <&> rmPS %~ (++ theCrits))
+    treeFromPost [corridor,corridor] <$> (randomMediumRoom <&> rmPmnts %~ (++ theCrits))
   where
     cs = (armourChaseCrit & crState . crDropsOnDeath .~ DropSpecific [0]) 
             : replicate 4 chaseCrit
@@ -94,7 +94,7 @@ roomCross x y = defaultRoom
         ,(V2 (y-20) (-x),pi)
         ]
     , _rmPath  = []
-    , _rmPS = 
+    , _rmPmnts = 
         [ spanLightI (V2 (x+5) x) (V2 (x+5) (-x))
         , spanLightI (V2 (-x-5) x) (V2 (-x-5) (-x))
         ]
@@ -119,7 +119,7 @@ roomShuriken x y =
             { _rmPolys  = ps
             , _rmLinks  = [(V2 (x-1) (y-20),negate $ pi/2)]
             , _rmPath   = []
-            , _rmPS     = [mountLight (V2 x x) (V3 (x-20) x 70)]
+            , _rmPmnts     = [mountLight (V2 x x) (V3 (x-20) x 70)]
             , _rmBound  = ps
             }
     in foldr1 combineRooms $ map (\r -> shiftRoomBy (V2 0 0, r) corner) [0,pi/2,pi,3*pi/2]
@@ -143,7 +143,7 @@ roomTwistCross x y z =
             { _rmPolys  = ps
             , _rmLinks  = [(V2 z (y-20), pi/2)]
             , _rmPath   = []
-            , _rmPS     = [mountLight (V2 x x) (V3 (x-20) (x-20) 70)]
+            , _rmPmnts     = [mountLight (V2 x x) (V3 (x-20) (x-20) 70)]
             , _rmBound  = ps
             }
     in foldr1 combineRooms $ map (\r -> shiftRoomBy (V2 0 0, r) corner) [0,pi/2,pi,3*pi/2]