Working radial distortion

2021-07-09 20:41:34 +02:00
parent fd388e1fdf
commit 1c519259a1
5 changed files with 44 additions and 34 deletions
@@ -146,9 +146,10 @@ doDrawing pdata w = do
    clear [ColorBuffer]
    activeTexture $= TextureUnit 1
    textureBinding Texture2D $= Just (snd $ _fboBase pdata)
+    bufferUBO $ perspectiveMatrixb rot camzoom trans wins viewFroms
    nraddist <- F.foldM (pokeShader $ _barrelShader pdata) (map Render2221 $ _radDistortion w)
    bindShaderBuffers [_barrelShader pdata] [nraddist]
-    drawShader (_barrelShader pdata) 4
+    drawShader (_barrelShader pdata) nraddist
    activeTexture $= TextureUnit 0

    -- draw overlay