Add aggressive light culling

2022-06-17 18:24:24 +01:00
parent 55341f7caf
commit cbfb417d21
26 changed files with 114 additions and 47 deletions
@@ -48,7 +48,7 @@ halfWidth w = _windowX w / 2
 halfHeight w = _windowY w / 2
 -- | A box of the size of the screen in screen centered coordinates
 screenBox :: Configuration -> [Point2]
-screenBox w = rectNSEW hh (-hh) hw (-hw)
+screenBox w = reverse $ rectNSWE hh (-hh) (-hw) hw
  where
    hw = halfWidth w
    hh = halfHeight w