Allow shadow fidelity option, fix bug in rendering box shadows

src/Dodge/Render.hs

@@ -6,6 +6,7 @@ module Dodge.Render (
 
 --import qualified Data.Vector as V
 
+import Dodge.Shadows
 import Dodge.WindowSize
 import Control.Lens
 import Control.Monad
@@ -76,7 +77,7 @@ doDrawing' win pdata u = do
                 windowPoints
                 wallsToPoke
             )
-            ( pokeShape
+            ( pokeShape (drawShadowsByImportance $ cfig ^. graphics_shadow_size)
                 (_vboPtr $ _vboShapes pdata)
                 (_eboPtr $ _shapeEBO pdata)
                 (_eboPtr $ _silhouetteEBO pdata)
@@ -199,7 +200,6 @@ doDrawing' win pdata u = do
     --draw lightmap into its own buffer
     createLightMap
         cfig
-        (u ^. uvConfig . graphics_object_shadows)
         (fromIntegral trueNWalls)
         nSilIndices
         nIndices
@@ -320,7 +320,6 @@ doDrawing' win pdata u = do
         glBindFramebuffer GL_FRAMEBUFFER (_unFBO (fst (_fboLighting pdata)))
         createLightMap
             cfig
-            (_graphics_object_shadows $ _uvConfig u)
             (fromIntegral trueNWalls)
             nSilIndices
             nIndices