Cleanup

src/Dodge/Render/Lights.hs

@@ -24,4 +24,4 @@ lightsForGloom cfig w = mapMaybe getLS (IM.elems $ _lightSources w)
         rad  = _lsRad ls
         extraculltest
             | debugOn Cull_more_lights cfig = True
-            | otherwise = isNothing (intersectSegPolyFirst lpos (lpos +.+ rad *.* (normalizeV (cpos -.- lpos))) cbox)
+            | otherwise = isNothing (intersectSegPolyFirst lpos (lpos +.+ rad *.* normalizeV (cpos -.- lpos)) cbox)

src/Dodge/Render/ShapePicture.hs

@@ -43,7 +43,7 @@ worldSPic cfig w =
     filtOn f g = IM.filter (pointIsClose . f) (g w)
     --pointIsClose p = dist camCen p < _viewDistance w
     pointIsClose = cullPoint w
-    camCen = _cameraCenter w
+    --camCen = _cameraCenter w
 
 cullPoint :: World -> Point2 -> Bool
 cullPoint w p = pointInPolygon p (_boundBox w)