Fix bug that allowed for in links to be used as out links

src/Dodge/Room/Airlock.hs

@@ -128,6 +128,7 @@ airlock90 = defaultRoom
         , (150,100)
         , (100,10)
         ]]
+    , _rmName = "airlock90"
     }
   where 
     --cond w = or $ M.lookup (DoorNumOpen n) (_worldState w)

src/Dodge/Room/Boss.hs

@@ -13,6 +13,7 @@ import Dodge.Room.Path
 import Dodge.Creature
 import Dodge.RandomHelp
 import Dodge.Tree
+import Dodge.LevelGen.StaticWalls
 import Geometry
 
 import Data.Tree
@@ -146,7 +147,7 @@ roomTwistCross x y z =
             , _rmLinks  = [(V2 z (y-20), pi/2)]
             , _rmPath   = []
             , _rmPmnts  = [mntLS iShape (V2 x x) (V3 (x-20) (x-20) 70)]
-            , _rmBound  = ps
+            , _rmBound  = map (expandPolyCorners 10) ps
             }
     in (foldr1 combineRooms $ map (\r -> shiftRoomBy (V2 0 0, r) corner) [0,pi/2,pi,3*pi/2])
         {_rmName = "twistCross" }

src/Dodge/Room/LasTurret.hs

@@ -53,8 +53,8 @@ lightSensByDoor rm = rm
     & rmPmnts %~ ( 
         [ psPt atFstLnkOut $ PutForeground $ colorSH yellow 
             $ barPP 1.5 (V3 20 (-1) 0) (V3 20 (-1) 80)
-        , heightWallPS (atNthLnkOutShiftInward 1 100) 30 (rectNSEW (10) (-10) 20 (-20))
-        , heightWallPS (atFstLnkOutShiftInward 100) 30 (rectNSEW (10) (-10) 20 (-20))
+        , heightWallPS (atNthLnkOutShiftInward 1 100) 30 (rectNSEW 10 (-10) 20 (-20))
+        , heightWallPS (atFstLnkOutShiftInward 100) 30 (rectNSEW 10 (-10) 20 (-20))
         ] ++ )
     & rmExtPmnt ?~
         extTrigLitPos (atFstLnkOutShiftBy (\(p,a) -> (p +.+ rotateV a (V2 18.5 (-2.5)), a)))