Allow for complex room bounds for clip checks

2021-05-03 00:57:17 +02:00
parent f71724ae8b
commit 2bf23db935
14 changed files with 92 additions and 152 deletions
@@ -28,7 +28,7 @@ airlockOneWay n = Room
                                                                 (M.insert (DoorNumOpen n) True))
                 ]
    --, _rmBound = rectNSWE 90 30 (-30) 30
-    , _rmBound = rectNSWE 75 15 0 40
+    , _rmBound = [rectNSWE 75 15 0 40]
    }
    where lnks = [((0,85),0)
                 ,((0, 5),pi)
@@ -66,7 +66,7 @@ airlock0 n = Room
                           (over worldState (M.insert (DoorNumOpen n) False))
        ,PS (-25, 50) 0 putLamp
        ]
-    , _rmBound = rectNSWE 75 15 0 40
+    , _rmBound = [rectNSWE 75 15 0 40]
    }
  where 
    lnks = [((20,95),0)
@@ -105,12 +105,12 @@ airlock90 n = Room
        ,PS (60, 60) 0 putLamp
        ]
    , _rmBound = 
-        [ (10,10)
+        [[ (10,10)
        , (10,100)
        , (100,150)
        , (150,100)
        , (100,10)
-        ]
+        ]]
    }
  where 
    cond w = or $ M.lookup (DoorNumOpen n) (_worldState w)