Correct bloom shader

shader/texture/bloomBlur.frag

@@ -11,15 +11,15 @@ const float hOff = 3.0 / winSize.x;
 const float vOff = 3.0 / winSize.y;
 const float frac = 1.0 / 9;
 const vec2 off[9] = vec2[]
-    ( vec2( vOff,hOff )
-    , vec2( vOff,0.0 )
-    , vec2( vOff,-hOff )
-    , vec2( 0.0,hOff )
-    , vec2( 0.0,0.0 )
-    , vec2( 0.0,-hOff )
-    , vec2( -vOff,hOff )
-    , vec2( -vOff,0.0 )
-    , vec2( -vOff,-hOff )
+    ( vec2( hOff, vOff )
+    , vec2( hOff,  0.0 )
+    , vec2( hOff,-vOff )
+    , vec2(  0.0, vOff )
+    , vec2(  0.0,  0.0 )
+    , vec2(  0.0,-hOff )
+    , vec2(-hOff, vOff )
+    , vec2(-hOff,  0.0 )
+    , vec2(-hOff,-vOff )
     );
 const vec2 fiveOff[5] = vec2[]
     ( vec2( vOff,0.0 )

src/Dodge/Render.hs

@@ -138,7 +138,7 @@ doDrawing pdata w = do
     textureBinding Texture2D $= Just (snd $ _fboColor pdata)
     drawShader (_colorBlurShader pdata) 4
     --textureBinding Texture2D $= Just (snd3 $ _fbo2 pdata)
-    --blendFunc $= (SrcAlpha, One)
+    blendFunc $= (SrcAlpha, One)
     textureBinding Texture2D $= Just (snd $ _fboFourth1 pdata)
     drawShader (_fullscreenShader pdata) 4
     blendFunc $= (SrcAlpha, OneMinusSrcAlpha)