Fix direction stuttering bug

src/Dodge/Render.hs

@@ -42,6 +42,9 @@ doDrawing pdata w = do
         viewFrom3d = Vector3 vfx vfy 20
         shadV = _pictureShaders pdata
     -- bind as much data into vbos as feasible at this point
+    -- pictures
+    layerCounts <- UMV.replicate (6*6) 0
+    pokeBindFoldableLayer shadV layerCounts $ worldPictures w
     -- poke wall points and colors
     nWalls <- poke224s (shadVBOptr $ _wallTextureShader pdata) wallPointsCol
     (nShapeVs,nIndices,nSilIndices) <- pokeShape
@@ -83,11 +86,9 @@ doDrawing pdata w = do
     if w ^. config . wall_textured
         then renderTextureWalls pdata nWalls
         else renderBlankWalls pdata nWalls
-    --draw objects onto base buffer
-    layerCounts <- UMV.replicate (6*6) 0
-    pokeBindFoldableLayer shadV layerCounts $ worldPictures w
+    --draw object pictures onto base buffer
     renderLayer 0 shadV layerCounts
-
+    --draw object shpaes onto base buffer
     let fs = _shapeShader pdata
     currentProgram $= Just (_shadProg fs)
     bindVertexArrayObject $= Just (_vao $ _shadVAO fs)
@@ -96,15 +97,13 @@ doDrawing pdata w = do
         (fromIntegral nIndices)
         GL_UNSIGNED_SHORT
         nullPtr
-
     --draw floor onto base buffer
     nTextArrayVs <- pokePoint33s (shadVBOptr $ _textureArrayShader pdata) (_floorTiles w)
     bindShaderBuffers [_textureArrayShader pdata] [nTextArrayVs]
     drawShader (_textureArrayShader pdata) nTextArrayVs
-    --draw lightmap for base buffer
+    --draw lightmap into its own buffer
     bindFramebuffer Framebuffer $= fst (_fboLighting pdata)
     createLightMap pdata lightPoints nWalls nSilIndices nIndices (snd $ snd $ _fboBase pdata)
-    --createLightMap pdata lightPoints nWalls 0 0 (snd $ snd $ _fboBase pdata)
     colorMask $= Color4 Enabled Enabled Enabled Enabled
     clearColor $= Color4 0 0 0 0
     --apply lightmap to base buffer
@@ -113,7 +112,6 @@ doDrawing pdata w = do
     blend $= Enabled
     blendFunc $= (Zero, OneMinusSrcColor)
     drawShader (_fullscreenShader pdata) 4
-    blendFunc $= (SrcAlpha, OneMinusSrcAlpha)
     --draw bloom onto bloom buffer
     bindFramebuffer Framebuffer $= fst (_fboBloom pdata)
     clear [ColorBuffer]