Linting, refactor random angle walk for flamer

src/Picture/Preload.hs

@@ -120,7 +120,7 @@ setupFramebuffer = do
     textureBinding Texture2D $= Just fboTO
     texImage2D Texture2D NoProxy 0 RGBA8 (TextureSize2D 800 600) 0 (PixelData RGBA UnsignedByte nullPtr)
     texImage2D Texture2D NoProxy 0 RGBA8 (TextureSize2D 8 6) 0 (PixelData RGBA UnsignedByte nullPtr)
-    textureFilter Texture2D $= ((Linear',Just Linear') , Nearest)
+    textureFilter Texture2D $= ((Linear',Just Linear') , Linear')
     generateMipmap' Texture2D
     framebufferTexture2D Framebuffer (ColorAttachment 0) Texture2D fboTO 0
 

src/Picture/Render.hs

@@ -140,7 +140,12 @@ createLightMap pdata resDiv wallPoints lightPoints
     bindFramebuffer Framebuffer $= defaultFramebufferObject
     colorMask $= Color4 Disabled Disabled Disabled Enabled
     bindShaderBuffers [_fullscreenShader pdata] [4]
+-- by upscaling the shadowmap texture and using Linear' magnification
+-- interpolation, we get a poor mans blur
     textureBinding Texture2D $= Just (_fboTexture pdata)
+    textureFilter Texture2D $= ((Linear',Just Linear') , Linear')
+-- not sure about the perforamnce implications ^^^
+    generateMipmap' Texture2D
     drawShader (_fullscreenShader pdata) 4
     colorMask $= Color4 Enabled Enabled Enabled Enabled
     blend $= Enabled