Fix small bug allowing for overlapping rooms

2022-06-12 18:26:55 +01:00
parent deb02d5c1a
commit 617765d5d4
1 changed files with 2 additions and 0 deletions
@@ -1,5 +1,6 @@
 module Dodge.Room.RunPast where
 import Dodge.UseAll
+import Geometry.Polygon
 import Dodge.LevelGen.Data
 import Dodge.LightSource
 --import Dodge.RoomLink
@@ -63,5 +64,6 @@ runPastRoom i = do
        ++ [return corridorWallN
                {_rmOutPmnt = [OutPlacement (putLitButOnPosExtTrig red useUnusedLnk) i]
                ,_rmPmnts = []
+                ,_rmBound = [rectNSWE 70 30 0 40]
                }
            ]