Cleanup

src/Dodge/Render/Lights.hs

@@ -2,7 +2,7 @@ module Dodge.Render.Lights
     ( lightsToRender
     ) where
 import Dodge.Data
-import Dodge.CullBox
+--import Dodge.CullBox
 import Geometry
 
 import Data.Maybe
@@ -14,7 +14,7 @@ lightsToRender cfig w = mapMaybe getLS (IM.elems $ _lightSources w)
   where 
     getLS  = getlsparam . _lsParam
     getTLS = getlsparam . _tlsParam 
-    cbox = cullBox cfig w
+    cbox = _boundBox w
     cpos = _cameraCenter w
     getlsparam ls
         | not (pointInPolygon lpos cbox) && extraculltest = Nothing

src/Dodge/Render/ShapePicture.hs

@@ -132,7 +132,7 @@ testPic _ _ = mempty
 drawBoundingBox :: Configuration -> World -> Picture
 drawBoundingBox cfig w = setLayer DebugLayer $ color green $ line $ (x:xs) ++ [x]
   where
-    (x:xs) = cullBox cfig w
+    (x:xs) = makeBoundBox cfig w
 
 clDraw :: Cloud -> Picture
 clDraw c = translate3 (_clPos c) (_clPict c c)