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
@@ -90,7 +90,7 @@ crOnWall :: Creature -> World -> Bool
 crOnWall cr =
    any (uncurry (circOnSeg p r) . _wlLine)
        . filter notff
-        . wlsNearPoint p
+        . wlsNearCirc p r
  where
    notff x = x ^. wlMaterial /= ForceField
    p = cr ^. crPos . _xy