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

Start cleanup

Browse Source
This commit is contained in:
justin
2021-08-12 15:02:26 +02:00
parent 62af1402ad
commit 53555865f6
10 changed files with 121 additions and 387 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render.hs
+6 -6
View File
@@ -82,7 +82,7 @@ doDrawing pdata w = do
layerCounts <- UMV.replicate (6*6) 0
pokeBindFoldableLayer shadV layerCounts $ worldPictures w
renderLayer' 0 shadV layerCounts
renderLayer 0 shadV layerCounts
nTextArrayVs <- pokePoint33s (shadVBOptr $ _textureArrayShader pdata) (_floorTiles w)
bindShaderBuffers [_textureArrayShader pdata] [nTextArrayVs]
@@ -92,14 +92,14 @@ doDrawing pdata w = do
clear [ColorBuffer]
blendFunc $= (SrcAlpha,OneMinusSrcAlpha)
renderLayer' 1 shadV layerCounts
renderLayer 1 shadV layerCounts
bindFramebuffer Framebuffer $= fst (_fboColor pdata)
clear [ColorBuffer]
depthMask $= Disabled
renderLayer' 3 shadV layerCounts
renderLayer' 4 shadV layerCounts
renderLayer' 5 shadV layerCounts
renderLayer 3 shadV layerCounts
renderLayer 4 shadV layerCounts
renderLayer 5 shadV layerCounts
depthMask $= Enabled
bindFramebuffer Framebuffer $= fst (_fboFourth1 pdata)
@@ -143,7 +143,7 @@ doDrawing pdata w = do
depthFunc $= Just Lequal
--mapM_ (uncurry $ drawShaderLay 2) (vnums IM.! 2)
renderLayer' 2 shadV layerCounts
renderLayer 2 shadV layerCounts
renderWindows pdata windowPoints
depthFunc $= Just Always