Make analyser into one machine

src/Dodge/Room/LasTurret.hs

@@ -92,7 +92,7 @@ analyserByDoor sa sb sc sd mcf outplid rm = rm
         ]
     & rmOutPmnt .~ 
         [OutPlacement 
-            (analyser sa sb sc sd
+            (analyser' sa sb sc sd
                 mcf
                 (atFstLnkOutShiftBy (\(p,a) -> (p +.+ rotateV a (V2 18.5 (-2.5)), a)))
                 (atFstLnkOutShiftBy sensorshift)

src/Dodge/Room/Procedural.hs

@@ -149,7 +149,7 @@ quarterRoomTri w = do
             ]
         ,   [ blockLine (V2 (w/2) (w/2)) (V2 (negate $ w/2) (w/2))]
         ,   [ blockLine (V2 (w/2) (w/2)) (V2 0 (w/2))
-            , blockLine (V2 (-29) w) (V2 0 (w/2))
+            , blockLine (V2 (-29) w) (V2 0 (w/2)) & plType . putWall . wlRotateTo .~ False
             ]
         ]
     pure $ defaultRoom