Implement multiple radial distortion rendering

src/Render.hs

@@ -187,6 +187,16 @@ pingPongBetween (fb1,to1) (fb2,to2) fs = do
     textureBinding Texture2D $= Just to2
     drawShader fs 4
 
+drawTextureOnFramebuffer
+    :: FullShader
+    -> FramebufferObject
+    -> TextureObject
+    -> IO ()
+drawTextureOnFramebuffer fs fbo to = do
+    bindFramebuffer Framebuffer $= fbo
+    textureBinding Texture2D $= Just to
+    drawShader fs 4
+
 renderShader
     :: Foldable f
     => FullShader