Work on chasm rooms

2025-10-02 16:58:38 +01:00
parent 013f50f0bc
commit 7e3614c9c8
15 changed files with 301 additions and 152 deletions
@@ -68,7 +68,7 @@ diagonalLinesRect pa pb w d ang = zip lhsPoints $ map findDiPoint lhsPoints
    findDiPoint p =
        head . sortOn (dist p) $
            catMaybes
-                [ intersectLineLine' p (p +.+ diVec) pax pbx
+                [ intersectLineLine p (p +.+ diVec) pax pbx
                , intersectSegLine pa pax p (p +.+ diVec)
                , intersectSegLine pb pbx p (p +.+ diVec)
                ]