Check wall collisions when expanding

2021-11-18 21:15:50 +00:00
parent a546d070f0
commit 15f2c419d2
7 changed files with 58 additions and 36 deletions
@@ -29,6 +29,13 @@ corridor = defaultRoom
        ,((20,70), negate $ pi/6)
        ,((20,10)    ,pi)
        ]
+keyholeCorridor :: Room
+keyholeCorridor = corridor
+    { _rmPath  = []
+    , _rmPmnts = [ lowWall $ rectNSEW 50 30 0 15
+        , lowWall $ rectNSEW 50 30 25 40]
+    }
+    
 corridorN :: Room
 corridorN = defaultRoom
    { _rmPolys = [rectNSWE 80 0 0 40