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

Cleanup 2

Browse Source
This commit is contained in:
justin
2022-04-26 09:20:53 +01:00
parent f4cef370d1
commit f32b212b47
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render.hs
+3 -2
View File
@@ -167,7 +167,7 @@ doDrawing pdata u = do
replicateM_ 9 $ pingPongBetween (_fboHalf1 pdata) (_fboHalf2 pdata) (_bloomBlurShader pdata) replicateM_ 9 $ pingPongBetween (_fboHalf1 pdata) (_fboHalf2 pdata) (_bloomBlurShader pdata)
blend $= Enabled blend $= Enabled
setViewportSize (round winx `div` resFact) (round winy `div` resFact) setViewportSize (round winx `div` resFact) (round winy `div` resFact)
--draw clouds --draw clouds onto cloud buffer
bindFramebuffer Framebuffer $= fst (_fboCloud pdata) bindFramebuffer Framebuffer $= fst (_fboCloud pdata)
depthFunc $= Just Lequal depthFunc $= Just Lequal
depthMask $= Disabled depthMask $= Disabled
@@ -209,8 +209,9 @@ doDrawing pdata u = do
blendFuncSeparate $= ((Zero, OneMinusSrcColor),(Zero, One)) blendFuncSeparate $= ((Zero, OneMinusSrcColor),(Zero, One))
drawShader (_fullscreenShader pdata) 4 drawShader (_fullscreenShader pdata) 4
blendFunc $= (SrcAlpha, OneMinusSrcAlpha) blendFunc $= (SrcAlpha, OneMinusSrcAlpha)
--Draw blurred bloom onto base buffer -- bind base buffer for drawing bloom then clouds
bindFramebuffer Framebuffer $= fst (_fboBase pdata) bindFramebuffer Framebuffer $= fst (_fboBase pdata)
--Draw blurred bloom onto base buffer
blend $= Enabled blend $= Enabled
blendFunc $= (SrcAlpha, One) blendFunc $= (SrcAlpha, One)
textureBinding Texture2D $= Just (snd $ _fboHalf1 pdata) textureBinding Texture2D $= Just (snd $ _fboHalf1 pdata)