Fix bugs in zoning

2022-07-30 14:21:13 +01:00
parent c8ad3e1294
commit 82db86f55f
16 changed files with 204 additions and 157 deletions
@@ -327,7 +327,7 @@ canSeeIndirect i j w = hasLOSIndirect ipos jpos w
 anythingHitCirc :: Float -> Point2 -> Point2 -> World -> Bool
 anythingHitCirc rad sp ep w = hitCr || isJust (sequence hitWl)
  where
-    hitCr = IS.foldr f False $ crsNearSeg sp ep w
+    hitCr = IS.foldr f False $ crixsNearSeg sp ep w
    f cid bl =
        maybe
            False