Improve room clip testing

2021-04-22 17:31:57 +02:00
parent 4c7883697f
commit c740ca0844
3 changed files with 18 additions and 5 deletions
@@ -47,7 +47,7 @@ shiftRoomTreeSearchAll bs (Node r ts :<| ts')
  where
    ls = init $ _rmLinks r
    newBounds = _rmBound r : bs
-    roomIsClipping = any (polysIntersect (_rmBound r)) bs
+    roomIsClipping = any (polysOverlap (_rmBound r)) bs
    rm l = r & rmLinks %~ delete l
    f l = applyToRoot (shiftRoomToLink l)