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
@@ -56,7 +56,7 @@ roomC x y = Room
    , _rmPath  = []
    , _rmPS    = [windowLine (x/2,0) (x/2,y-60)
                 ]
-    , _rmBound = rectNSWE (y+5) (-5) (-5) (x+5)
+    , _rmBound = [rectNSWE (y+5) (-5) (-5) (x+5)]
    }
  where 
    lnks = 
@@ -240,7 +240,7 @@ roomOctogon = Room
    , _rmLinks = lnks
    , _rmPath  = allPairs $ map fst lnks
    , _rmPS    = []
-    , _rmBound = [(-20,30),(20,30),(60,70),(60,110),(20,150),(-20,150),(-60,110),(-60,70)] 
+    , _rmBound = [[(-20,30),(20,30),(60,70),(60,110),(20,150),(-20,150),(-60,110),(-60,70)] ]
    }
    where lnks = [((0,140),0)
                 ,((35,125),0-pi/4)
@@ -369,7 +369,7 @@ deadEndRoom = Room
    , _rmLinks = lnks
    , _rmPath  = []
    , _rmPS    = [PS (0,-10) 0 putLamp]
-    , _rmBound = rectNSWE 20 (-20) (-30) 30
+    , _rmBound = [rectNSWE 20 (-20) (-30) 30]
    }
    where lnks = [((0,30)  ,0)
                 ]