Simplify analyser machines somewhat

2025-09-16 21:41:26 +01:00
parent 203919933c
commit 81d6727d8e
21 changed files with 418 additions and 464 deletions
@@ -57,4 +57,4 @@ screenBox w = rectNSWE hh (- hh) (- hw) hw
    hh = halfHeight w

 pointIsOnScreen :: Config -> Camera -> Point2 -> Bool
-pointIsOnScreen cfig w p = pointInPolygon p $ screenPolygon cfig w
+pointIsOnScreen cfig = flip pointInPoly . screenPolygon cfig