Grayscale post processing

src/Dodge/Render.hs

@@ -52,9 +52,10 @@ doDrawing pdata w = do
     pmat <- (newMatrix RowMajor $ perspectiveMatrix rot zoom trans wins viewFroms) 
                 :: IO (GLmatrix GLfloat)
     createLightMap pdata (w ^. config . shadow_resolution) wallPoints lightPoints viewFroms pmat
+
     blendFuncSeparate    $= ((SrcAlphaSaturate, OneMinusSrcAlpha), (Zero,One))
 --    clear [DepthBuffer]
-    depthFunc $= Just Always
+--    depthFunc $= Just Always
     renderBackground pdata rot zoom trans wins
     depthFunc $= Just Less
     if w ^. config . wall_textured
@@ -77,14 +78,23 @@ doDrawing pdata w = do
     renderBlankWalls pdata windowPoints pmat
     depthMask $= Enabled
 
----- draw the lightmap to the screen
+-- draw the lightmap to the screen
+    bindFramebuffer Framebuffer $= defaultFramebufferObject
+    blend $= Disabled
+    clear [ColorBuffer,DepthBuffer]
+    depthFunc $= Just Always
+    textureBinding Texture2D $= Just (snd $ _fbo2 pdata)
+    textureFilter Texture2D $= ((Linear',Just Linear') , Linear')
+    generateMipmap' Texture2D
+    bindShaderBuffers [_grayscaleShader pdata] [4]
+    drawShader (_grayscaleShader pdata) 4
+--    bindFramebuffer Framebuffer $= fst (_fbo3 pdata)
+--    clear [ColorBuffer,DepthBuffer]
+--    bindFramebuffer Framebuffer $= fst (_fbo2 pdata)
+--    clear [ColorBuffer,DepthBuffer]
 --    bindFramebuffer Framebuffer $= defaultFramebufferObject
---    clear [DepthBuffer]
---    textureBinding Texture2D $= Just (snd $ _fbo2 pdata)
---    textureFilter Texture2D $= ((Linear',Just Linear') , Linear')
---    generateMipmap' Texture2D
---    bindShaderBuffers [_fullscreenShader pdata] [4]
---    drawShader (_fullscreenShader pdata) 4
+    blend $= Enabled
+
 
     resetShaderUniforms (map extractProgAndUnis $ _pictureShaders pdata)
 ----------------------