Use circles instead of points for zome wall zones

2026-02-03 13:48:15 +00:00
parent be6acfa58b
commit db24b0ffa6
8 changed files with 11 additions and 7 deletions
@@ -287,7 +287,7 @@ circOnSomeWall :: Point2 -> Float -> World -> Bool
 {-# INLINE circOnSomeWall #-}
 circOnSomeWall p rad =
    any (uncurry (circOnSeg p rad) . _wlLine)
-        . wlsNearPoint p
+        . wlsNearCirc p rad

 circOnAnyCr :: Point2 -> Float -> World -> Bool
 {-# INLINE circOnAnyCr #-}