Simplify analyser machines somewhat

src/Dodge/Room/Airlock.hs

@@ -30,7 +30,7 @@ decontamRoom :: State LayoutVars Room
 decontamRoom = do
     return $
         defaultRoom
-            & rmPolys .~ [rectNSWE 100 0 0 40, switchcut]
+            & rmPolys .~ cutps
             & rmLinks .~ muout lnks ++ muin [last lnks]
             & rmPath .~ foldMap doublePairSet [(V2 20 95, V2 20 45), (V2 20 45, V2 20 5)]
             & rmPmnts
@@ -40,11 +40,13 @@ decontamRoom = do
                                 \_ _ -> Just $ putDoubleDoor DoorObstacle thewall (WdBlBtOn btid) (V2 0 80) (V2 40 80) 2
                    , invisibleWall $ rectNSWE 60 40 (-40) (-30)
                    , spanLightI (V2 (-2) 30) (V2 (-2) 70)
-                   --, analyser (RequireHealth 100) (PS 50 0) (PS (V2 70 50) 0)
-                   , analyser (RequireNoItems $ square 50) (PS 50 0) (PS (V2 70 50) 0)
+                   , analyser (RequireNoItems $ ps) (PS 50 0) (PS mcpos 0)
                    ]
             & rmBound .~ [rectNSWE 75 15 0 40, switchcut]
   where
+    mcpos = V2 70 50
+    cutps = [rectNSWE 100 0 0 40, switchcut]
+    ps = (\p -> p - mcpos) <$> orderPolygon (concat cutps)
     thewall = switchWallCol col
     switchcut = rectNSWE 65 35 (-40) 80
     lnks =