Move streaming data into its own file

2022-06-29 08:05:20 +01:00
parent b1a7e1bf35
commit 5501d6f9b5
12 changed files with 25 additions and 38 deletions
@@ -93,10 +93,9 @@ removePathsCrossing :: Point2 -> Point2 -> World -> World
 removePathsCrossing a b w = w
    & pathGraph  .~ newGraph 
    & pathGraphP .~ pg'
-    & phZoning   %~ \zn -> foldl' (flip $ insertInZoning (:)) (zn & znObjects .~ mempty)
+    & phZoning   %~ \zn -> foldl' (flip $ updateZoning (:)) (zn & znObjects .~ mempty)
        (labNodes newGraph)
  where 
    pg' = Set.filter (isNothing . uncurry (intersectSegSeg a b)) $ _pathGraphP w
-    insertpoint zn (i,p) = insertInZoneWith (wlZoneOfPoint p) (++) [(i,p)] zn
   -- insertPoint pp@(_,p) = insertInZoneWith (wlZoneOfPoint p) (++) [pp]
    newGraph = pairsToGraph dist pg'