Add barrel distortion shader

src/Dodge/Data.hs

@@ -102,6 +102,7 @@ data World = World
     , _debugFlags           :: DebugFlags
     , _inventoryMode        :: InventoryMode
     , _lClickHammer         :: HammerPosition
+    , _radDistortion        :: [(Point2,Point2,Point2,Float)]
     }
 data InventoryMode
     = TopInventory

src/Dodge/Default/World.hs

@@ -78,6 +78,7 @@ defaultWorld = World
     , _inventoryMode = TopInventory
     , _lClickHammer = HammerUp
     , _foregroundDecorations = []
+    , _radDistortion = [((00,400),(0,80),(40,40),0.5)]
     }
 defaultDebugFlags :: DebugFlags
 defaultDebugFlags = DebugFlags

src/Dodge/Render.hs

@@ -144,8 +144,12 @@ doDrawing pdata w = do
     depthFunc $= Just Always
     bindFramebuffer Framebuffer $= defaultFramebufferObject
     clear [ColorBuffer]
+    activeTexture $= TextureUnit 1
     textureBinding Texture2D $= Just (snd $ _fboBase pdata)
-    drawShader (_fullscreenShader pdata) 4
+    nraddist <- F.foldM (pokeShader $ _barrelShader pdata) (map Render2221 $ _radDistortion w)
+    bindShaderBuffers [_barrelShader pdata] [nraddist]
+    drawShader (_barrelShader pdata) 4
+    activeTexture $= TextureUnit 0
 
     -- draw overlay
     bufferUBO $ isoMatrix 0 1 (0,0) (2,2)