Add num_shadow_casters graphics parameter, allow cycle down enum options

src/Dodge/Render.hs

@@ -21,7 +21,7 @@ import Graphics.GL.Core43
 import Graphics.Rendering.OpenGL hiding (color, rotate, scale, translate)
 import MatrixHelper
 import Render
-import qualified SDL
+--import qualified SDL
 import Shader
 import Shader.Bind
 import Shader.Data
@@ -29,9 +29,9 @@ import Shader.ExtraPrimitive
 import Shader.Parameters
 import Shader.Poke
 
-doDrawing :: RenderData -> Universe -> IO Word32
+doDrawing :: RenderData -> Universe -> IO ()
 doDrawing pdata u = do
-    sTicks <- SDL.ticks
+--    sTicks <- SDL.ticks
     let w = _uvWorld u
         cfig = _uvConfig u
         rot = w ^. cWorld . camPos . camRot
@@ -293,8 +293,8 @@ doDrawing pdata u = do
     renderLayer FixedCoordLayer shadV layerCounts
     renderFoldable shadV $ fixedCoordPictures u
     depthMask $= Enabled
-    eTicks <- SDL.ticks
-    return (eTicks - sTicks)
+--    eTicks <- SDL.ticks
+--    return (eTicks - sTicks)
 
 --------------------------------------------------------------------------------
 -- note: currently assume there is only one UBO, we only bind it once at setup