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
@@ -25,7 +25,7 @@ import qualified IntMapHelp as IM

 zoneOfCirc :: Float -> Point2 -> Float -> [Int2]
 {-# INLINE zoneOfCirc #-}
-zoneOfCirc zsize p r = zoneOfRect zsize (p +.+ V2 r r) (p -.- V2 r r)
+zoneOfCirc zsize p r = zoneOfRect zsize (p + V2 r r) (p - V2 r r)

 zoneOfRect :: Float -> Point2 -> Point2 -> [Int2]
 {-# INLINE zoneOfRect #-}