Add no weapon start

2021-04-27 19:26:35 +02:00
parent 64b5b9e2a5
commit 6d229f8de2
20 changed files with 448 additions and 313 deletions
@@ -23,7 +23,7 @@ removePathsCrossing :: Point2 -> Point2 -> World -> World
 removePathsCrossing a b w = set pathGraph newGraph $ set pathGraph' pg'
                            $ set pathPoints (foldr insertPoint IM.empty (labNodes newGraph))
                            w
-    where pg' = filter (not . isJust . uncurry (intersectSegSeg' a b)) $ _pathGraph' w
-          insertPoint  pp@(_,(x,y)) = insertInZoneWith (floorHun x) (floorHun y) (++) [pp]
-          newGraph = pairsToGraph dist pg'
-
+  where 
+    pg' = filter (isNothing . uncurry (intersectSegSeg' a b)) $ _pathGraph' w
+    insertPoint  pp@(_,(x,y)) = insertInZoneWith (floorHun x) (floorHun y) (++) [pp]
+    newGraph = pairsToGraph dist pg'