Commit before trying IntMap instead of vector for incidence graph

2025-10-26 08:31:54 +00:00
parent 61910785c4
commit b8536e2929
7 changed files with 369291 additions and 187170 deletions
@@ -210,7 +210,8 @@ collidePointWallsFilter t sp ep = collidePoint sp ep . filter t . wlsNearSeg sp

 overlapSegWalls :: Point2 -> Point2 -> [Wall] -> [(Point2, Wall)]
 {-# INLINE overlapSegWalls #-}
-overlapSegWalls sp ep = mapMaybe $ \wl -> uncurry (intersectSegSeg sp ep) (_wlLine wl) <&> (,wl)
+overlapSegWalls sp ep = mapMaybe 
+    $ \wl -> uncurry (intersectSegSeg sp ep) (_wlLine wl) <&> (,wl)

 visibleWalls :: Point2 -> Point2 -> World -> [(Point2, Wall)]
 {-# INLINE visibleWalls #-}