Add aggressive light culling

src/Geometry/Polygon.hs

@@ -12,8 +12,8 @@ import qualified Control.Foldl as L
 rectNESW :: Float -> Float -> Float -> Float -> [Point2]
 rectNESW !a !b !c !d = [V2 b a,V2 b c,V2 d c,V2 d a]
 -- | Draw a clockwise rectangle based on maximal N S E W values.
-rectNSEW :: Float -> Float -> Float -> Float -> [Point2]
-rectNSEW !n !s !e !w = rectNESW n e s w
+--rectNSEW :: Float -> Float -> Float -> Float -> [Point2]
+--rectNSEW !n !s !e !w = rectNESW n e s w
 -- | Draw an anticlockwise rectangle based on maximal N S W E values.
 rectNSWE :: Float -> Float -> Float -> Float -> [Point2]
 rectNSWE !n !s !w !e = [V2 w n, V2 w s, V2 e s, V2 e n]

src/Geometry/Vector.hs

@@ -175,3 +175,7 @@ yV2 (V2 _ y) = y
 xyzV4 :: V4 a -> V3 a
 {-# INLINE xyzV4 #-}
 xyzV4 (V4 x y z _) = V3 x y z
+
+xyV3 :: V3 a -> V2 a
+{-# INLINE xyV3 #-}
+xyV3 (V3 x y _) = V2 x y