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
@@ -55,6 +55,7 @@ polygonWire :: [Point2] -> Picture
 {-# INLINE polygonWire #-}
 polygonWire ps = line (ps ++ [head ps])

+-- need to check the winding!
 polygon :: [Point2] -> Picture
 {-# INLINE polygon #-}
 polygon = map f . polyToTris