Tweak fullscreen texture shaders

src/Dodge/Creature/Inanimate.hs

@@ -22,7 +22,7 @@ defaultInanimate = defaultCreature & crState . crIsAnimate .~ False
 lamp :: Creature
 lamp = defaultInanimate
     { _crUpdate = initialiseLamp
-    , _crHP = 500
+    , _crHP = 100
     , _crPict = \ _ -> onLayer CrLayer $ color white $ circleSolid 3
     , _crRad = 3
     }

src/Dodge/Render.hs

@@ -76,6 +76,16 @@ doDrawing pdata w = do
     depthMask $= Disabled
     renderBlankWalls pdata windowPoints pmat
     depthMask $= Enabled
+
+---- draw the lightmap to the screen
+--    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
+
     resetShaderUniforms (map extractProgAndUnis $ _pictureShaders pdata)
 ----------------------
     blendFunc $= (SrcAlpha,OneMinusSrcAlpha)