Allow for complex room bounds for clip checks

src/Dodge/Room/Boss.hs

@@ -35,13 +35,14 @@ roomOctogon x = Room
         ,crystalLine (negate $ x/2,-x) (-x,negate (x/2))
         ,blockLine (-40,40-x) (40,40-x)
         ]
-    , _rmBound = rectNSWE x (-x) (-x) x
+    , _rmBound = [rectNSWE x (-x) (-x) x]
     }
   where
     fx = 4 * x / 5
 
 bossRoom :: RandomGen g => Creature -> State g Room
-bossRoom cr = pure $ roomOctogon 300 & rmPS %~ ( PS (0,100) (negate $ pi/2) (PutCrit cr) :)
+--bossRoom cr = pure $ roomOctogon 300 & rmPS %~ ( PS (0,100) (negate $ pi/2) (PutCrit cr) :)
+bossRoom cr = pure $ roomCross 200 300 & rmPS %~ ( PS (0,100) (negate $ pi/2) (PutCrit cr) :)
 
 armouredChasers :: RandomGen g => State g Room
 armouredChasers = do
@@ -52,3 +53,23 @@ armouredChasers = do
   where
     cs = (armourChaseCrit & crState . crDropsOnDeath .~ DropSpecific [0]) 
             : replicate 4 chaseCrit
+
+roomCross 
+    :: Float -- ^ First width/2
+    -> Float -- ^ Second width/2
+    -> Room
+roomCross x y = Room
+    { _rmPolys = [rectNSWE y (-y) (-x) x
+                 ,rectNSWE (-x) x y (-y)
+                 ]
+    , _rmLinks = [((x,y-20),negate $ pi/2)]
+    , _rmPath  = []
+    , _rmPS = 
+        [PS ( x, 0) 0 putLamp
+        ,PS (-x, 0) 0 putLamp
+        ,PS ( 0, x) 0 putLamp
+        ,PS ( 0,-x) 0 putLamp
+        ]
+    , _rmBound = [rectNSWE x (-x) (-x) x]
+    }
+  where