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

Cleanup

Browse Source
This commit is contained in:
justin
2022-04-26 09:15:09 +01:00
parent 0a4a3b1249
commit f4cef370d1
1 changed files with 19 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render.hs
+8 -3
View File
@@ -47,8 +47,8 @@ doDrawing pdata u = do
-- bind as much data into vbos as feasible at this point -- bind as much data into vbos as feasible at this point
-- count mutable vectors setup -- count mutable vectors setup
layerCounts <- UMV.replicate (numLayers*6) 0 layerCounts <- UMV.replicate (numLayers*6) 0
shapeCounts <- UMV.replicate 3 (0 :: Int) shapeCounts <- UMV.replicate 3 0
wlwiflCounts <- UMV.replicate 3 (0 :: Int) wlwiflCounts <- UMV.replicate 3 0
-- attempt to poke in parallel -- attempt to poke in parallel
let (ws,wp) = worldSPic cfig w let (ws,wp) = worldSPic cfig w
MP.bindM3 (\ _ _ _ -> return ()) MP.bindM3 (\ _ _ _ -> return ())
@@ -131,7 +131,12 @@ doDrawing pdata u = do
drawShader (_textureArrayShader pdata) nFls drawShader (_textureArrayShader pdata) nFls
--draw lightmap into its own buffer --draw lightmap into its own buffer
bindFramebuffer Framebuffer $= fst (_fboLighting pdata) bindFramebuffer Framebuffer $= fst (_fboLighting pdata)
createLightMap pdata lightPoints nWalls nSilIndices nIndices createLightMap
pdata
lightPoints
nWalls
nSilIndices
nIndices
(_graphics_object_shadows $ _config u) (_graphics_object_shadows $ _config u)
(snd $ snd $ _fboBase pdata) (snd $ snd $ _fboBase pdata)
colorMask $= Color4 Enabled Enabled Enabled Enabled colorMask $= Color4 Enabled Enabled Enabled Enabled