From bf8c5384916a2e2fde9ef4ca249e126f501fc0b8 Mon Sep 17 00:00:00 2001 From: justin Date: Tue, 9 Dec 2025 10:37:20 +0000 Subject: [PATCH] Draw all bloom layers --- src/Dodge/Placement/Instance/Analyser.hs | 2 +- src/Dodge/Render.hs | 8 ++++++++ 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/src/Dodge/Placement/Instance/Analyser.hs b/src/Dodge/Placement/Instance/Analyser.hs index 532709bc5..7e1f837c5 100644 --- a/src/Dodge/Placement/Instance/Analyser.hs +++ b/src/Dodge/Placement/Instance/Analyser.hs @@ -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) diff --git a/src/Dodge/Render.hs b/src/Dodge/Render.hs index 7199eb19a..75558a09f 100644 --- a/src/Dodge/Render.hs +++ b/src/Dodge/Render.hs @@ -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)