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
@@ -141,9 +141,7 @@ wlsHit sp ep = sortOn (dist sp . fst) . wlsHitUnsorted sp ep
 wlsHitUnsorted :: Point2 -> Point2 -> World -> [(Point2, Wall)]
 wlsHitUnsorted sp ep
    | sp == ep = const mempty
-    | otherwise =
-            overlapSegWalls sp ep
-            . wlsNearSeg sp ep
+    | otherwise = overlapSegWalls sp ep . wlsNearSeg sp ep

 wlsHitRadial :: Point2 -> Float -> World -> [(Point2, Wall)]
 wlsHitRadial p r = mapMaybe f . wlsNearCirc p r