Commit before fully removing uniforms other than the matrix

src/Dodge/Render.hs

@@ -61,6 +61,11 @@ doDrawing pdata w = do
         :: IO (GLmatrix GLfloat)
     -- draw the lightmap. Probably changes the bound framebufferObject
     createLightMap pdata (w ^. config . shadow_resolution) wallPoints lightPoints viewFroms pmat
+        (foregroundPics w)
+
+--    -- set the coordinate uniforms ready for drawing elements using world coordinates
+--    setCommonUniforms pdata rot camzoom trans wins
+
     -- draw the background. Assumes that depth testing is not enabled or that
     -- the depth buffer is ready to be drawn on
     blendFuncSeparate    $= ((SrcAlphaSaturate, OneMinusSrcAlpha), (Zero,One))