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

Draw all bloom layers

Browse Source
This commit is contained in:
justin
2025-12-09 10:37:20 +00:00
parent 2b923cd4b6
commit bf8c538491
2 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Placement/Instance/Analyser.hs
+1 -1
View File
@@ -15,6 +15,6 @@ analyser pst pslight psmc = extTrigLitPos pslight $ \tp ->
where
tparams = defaultTerminal & tmStatus .~ TerminalLineRead
themachine =
defaultMachine -- & mcColor .~ aquamarine
defaultMachine
& mcHP .~ 10000
& mcType .~ McProxSensor (ProxSensor pst Nothing)
src/Dodge/Render.hs
+8
View File
@@ -365,6 +365,14 @@ doDrawing' win pdata u = do
glUseProgram (pdata ^. fullscreenShader)
--glDrawArrays GL_TRIANGLES 0 6
glDrawArrays GL_TRIANGLES 0 3
glBindTextureUnit 0 (_unTO . snd $ _fboHalf pdata)
glUseProgram (pdata ^. fullscreenShader)
--glDrawArrays GL_TRIANGLES 0 6
glDrawArrays GL_TRIANGLES 0 3
glBindTextureUnit 0 (_unTO . snd $ _fboBloom pdata)
glUseProgram (pdata ^. fullscreenShader)
--glDrawArrays GL_TRIANGLES 0 6
glDrawArrays GL_TRIANGLES 0 3
--set viewport for radial distortion
--setViewportSize (round winx) (round winy)