Zone creatures

2022-06-28 11:20:20 +01:00
parent f0a1e0685a
commit 61ad58c04a
10 changed files with 75 additions and 106 deletions
@@ -92,5 +92,5 @@ removePathsCrossing a b w = w
    & pathPoints .~ foldr insertPoint IM.empty (labNodes newGraph)
  where 
    pg' = S.filter (isNothing . uncurry (intersectSegSeg a b)) $ _pathGraphP w
-    insertPoint pp@(_,p) = uncurryV insertInZoneWith (wallZoneOfPoint p) (++) [pp]
+    insertPoint pp@(_,p) = uncurryV insertInZoneWith (wlZoneOfPoint p) (++) [pp]
    newGraph = pairsToGraph dist pg'