Refactor level/room generation modules

2021-03-11 22:08:35 +01:00
parent 2d995339b9
commit e8e3dd8f50
17 changed files with 546 additions and 436 deletions
@@ -328,6 +328,8 @@ polysIntersect (p:ps) (q:qs)
    = any isJust $ (\(a,b) (c,d) -> myIntersectSegSeg a b c d) <$> pairs1 <*> pairs2
    where pairs1 = zip (p:ps) (ps++[p])
          pairs2 = zip (q:qs) (qs++[q])
+polysIntersect [] _ = False
+polysIntersect _ [] = False

 anyPolyssIntersect :: [[Point2]] -> [[Point2]] -> Bool
 anyPolyssIntersect x y = or $ polysIntersect <$> x <*> y