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
@@ -23,7 +23,7 @@ lightsToRender cfig campos w =  take (fromEnum $ cfig ^. graphics_num_shadow_cas
    cbox = campos ^. camBoundBox
    cpos = campos ^. camCenter
    getlsparam ls
-        | not (pointInPolygon lpos cbox) && extraculltest = Nothing
+        | not (pointInPoly lpos cbox) && extraculltest = Nothing
        | otherwise = Just (_lsPos ls, rad ^ (2 :: Int), _lsCol ls)
      where
        lpos = xyV3 $ _lsPos ls