Remove dependency on pokeStrategy

2021-07-29 16:06:27 +02:00
parent 72f57b6ccf
commit 02a9f4badf
1 changed files with 5 additions and 2 deletions
@@ -170,8 +170,11 @@ doDrawing pdata w = do
            drawShader (_fullscreenShader pdata) 4
        rds -> do
            let bindDrawDist :: (Point2,Point2,Point2,Float) -> IO ()
-                bindDrawDist distParam = do
-                    _ <- F.foldM (pokeShader $ _barrelShader pdata) [Render2221 distParam]
+                bindDrawDist ((a,b),(c,d),(e,f),g) = do
+                --bindDrawDist distParam = do
+                    --_ <- F.foldM (pokeShader $ _barrelShader pdata) [Render2221 distParam]
+                    pokeArray (_vboPointer . _vaoVBO . _shaderVAO $ _barrelShader pdata)
+                        [a,b,c,d,e,f,g]
                    bindShaderBuffers [_barrelShader pdata] [1]
                    drawShader (_barrelShader pdata) 1
                fboList = take (length rds - 1) (concat (repeat [fst $ _fbo2 pdata,fst $ _fbo3 pdata]))