From 02a9f4badf0294e63c6e34e6d23d598269b5e776 Mon Sep 17 00:00:00 2001 From: jgk Date: Thu, 29 Jul 2021 16:06:27 +0200 Subject: [PATCH] Remove dependency on pokeStrategy --- src/Dodge/Render.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/Dodge/Render.hs b/src/Dodge/Render.hs index c665afd5a..06f21f767 100644 --- a/src/Dodge/Render.hs +++ b/src/Dodge/Render.hs @@ -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]))