justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Remove dependency on pokeStrategy

Browse Source
This commit is contained in:
justin
2021-07-29 16:06:27 +02:00
parent 72f57b6ccf
commit 02a9f4badf
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render.hs
+5 -2
View File
@@ -170,8 +170,11 @@ doDrawing pdata w = do
drawShader (_fullscreenShader pdata) 4 drawShader (_fullscreenShader pdata) 4
rds -> do rds -> do
let bindDrawDist :: (Point2,Point2,Point2,Float) -> IO () let bindDrawDist :: (Point2,Point2,Point2,Float) -> IO ()
bindDrawDist distParam = do bindDrawDist ((a,b),(c,d),(e,f),g) = do
_ <- F.foldM (pokeShader $ _barrelShader pdata) [Render2221 distParam] --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] bindShaderBuffers [_barrelShader pdata] [1]
drawShader (_barrelShader pdata) 1 drawShader (_barrelShader pdata) 1
fboList = take (length rds - 1) (concat (repeat [fst $ _fbo2 pdata,fst $ _fbo3 pdata])) fboList = take (length rds - 1) (concat (repeat [fst $ _fbo2 pdata,fst $ _fbo3 pdata]))