Try to improve instancing shadows

src/Preload/Render.hs

@@ -213,7 +213,7 @@ preloadRender = do
     fboColorName <- setupFramebufferGivenStencil rboBaseBloomName
     fboPosName <- setupFramebufferGivenStencil rboBaseBloomName
     fboLightingName <- setupFramebufferGivenStencil rboBaseBloomName
-    fboLightingHighName <- setupFramebufferGivenStencil rboBaseBloomName
+    --fboLightingHighName <- setupFramebufferGivenStencil rboBaseBloomName
 
     fboShadowName <- setupShadowFramebuffer
 
@@ -238,7 +238,7 @@ preloadRender = do
         , aslist
         , eslist
         ]
-
+    initializeGLState
     return $
         RenderData
             { _pictureShaders = shadV
@@ -270,7 +270,7 @@ preloadRender = do
             , _fboHalf2 = fboHalf2Name
             , _fboHalf3 = fboHalf3Name
             , _fboLighting = fboLightingName
-            , _fboLightingHigh = fboLightingHighName
+            --, _fboLightingHigh = fboLightingHighName
             , _fboShadow = fboShadowName
             , _fboBase = fboBaseName
             , _fboCloud = fboCloudName
@@ -301,6 +301,10 @@ cornerList =
 --    , [1, -1, 1, 0]
 --    ]
 
+initializeGLState :: IO ()
+initializeGLState = do
+    glEnable GL_DEPTH_TEST
+
 cleanUpRenderPreload :: RenderData -> IO ()
 cleanUpRenderPreload pd = do
     -- TODO fix this