Working radial distortion

2021-07-09 20:41:34 +02:00
parent fd388e1fdf
commit 1c519259a1
5 changed files with 44 additions and 34 deletions
@@ -78,7 +78,7 @@ defaultWorld = World
    , _inventoryMode = TopInventory
    , _lClickHammer = HammerUp
    , _foregroundDecorations = []
-    , _radDistortion = [((00,400),(0,80),(40,40),0.5)]
+    , _radDistortion = [((-20,120),(60,120),(-20,40),0.5)]
    }
 defaultDebugFlags :: DebugFlags
 defaultDebugFlags = DebugFlags
@@ -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