Improve line zoning

2021-08-16 14:44:52 +02:00
parent 3192ae628f
commit c58ee6d56c
13 changed files with 197 additions and 86 deletions
@@ -23,6 +23,6 @@ removePathsCrossing a b w = set pathGraph newGraph $ set pathGraph' pg'
    $ set pathPoints (foldr insertPoint IM.empty (labNodes newGraph))
    w
  where 
-    pg' = filter (isNothing . uncurry (intersectSegSeg' a b)) $ _pathGraph' w
+    pg' = filter (isNothing . uncurry (intersectSegSeg a b)) $ _pathGraph' w
    insertPoint  pp@(_,V2 x y) = insertInZoneWith (floorHun x) (floorHun y) (++) [pp]
    newGraph = pairsToGraph dist pg'