Simplify analyser machines somewhat

src/Dodge/Render/Lights.hs

@@ -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

src/Dodge/Render/ShapePicture.hs

@@ -90,7 +90,7 @@ shiftDraw' fpos fdir fdraw x =
 
 cullPoint :: Config -> World -> Point2 -> Bool
 cullPoint cfig w p
-    | debugOn Close_shape_culling cfig = pointInPolygon p (w ^. wCam . camBoundBox)
+    | debugOn Close_shape_culling cfig = pointInPoly p (w ^. wCam . camBoundBox)
     | otherwise = dist (w ^. wCam . camCenter) p < (w ^. wCam . camViewDistance)
 
 extraPics :: Config -> Universe -> Picture