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
@@ -11,7 +11,7 @@ import Geometry

 gridInPolygon :: Float -> [Point2] -> [Point2]
 gridInPolygon gap ps =
-    filter (`pointInPolygon` ps)
+    filter (`pointInPoly` ps)
        . maybe [] (boundedGrid gap)
        . boundPoints
        $ ps