Improve xIntercepts (still not perfect)

src/Dodge/Room/Airlock.hs

@@ -3,6 +3,7 @@
 {- Rooms that contain two doors and a switch alternating both.  -}
 module Dodge.Room.Airlock where
 
+import Dodge.Room.Path
 import Control.Lens
 import Control.Monad
 import Data.Maybe
@@ -164,12 +165,9 @@ airlockZ = do
         defaultRoom
             { _rmPolys =
                 [rectNSWE 120 0 0 180]
-            , _rmLinks = muout [(V2 0 30, pi / 2)] ++ muin [(V2 180 30, 1.5 * pi)]
-            , _rmPath = mempty
-            , --         [(V2 0 40,V2 40 0)
-              --         ,(V2 40 0,V2 0 40)
-              --         ]
-              _rmPmnts =
+            , _rmLinks = lnks
+            , _rmPath = linksGridToPath' lnks $ loopPairs $ rectNSWE 100 40 40 140
+            , _rmPmnts =
                 [ pContID (PS (V2 90 115) pi) (PutButton $ makeSwitch col red NoWorldEffect NoWorldEffect) $
                     \btid ->
                         airlockDoubleDoor
@@ -191,6 +189,7 @@ airlockZ = do
                 [rectNSWE 120 0 0 180]
             }
   where
+    lnks = muout [(V2 0 30, pi / 2)] ++ muin [(V2 180 30, 1.5 * pi)]
     col = dim $ dim $ bright red
     l1 = 61
     l2 = 61