Play around with alpha blending

src/Dodge/Render.hs

@@ -231,7 +231,9 @@ doDrawing' win pdata u = do
     withArray [0, 0, 0, 0] $
         glClearNamedFramebufferfv (pdata ^. fboBloom . _1 . unFBO) GL_COLOR 0
     glDepthFunc GL_LESS
-    glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA
+    --glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA
+    --glBlendFunc GL_ONE GL_ONE_MINUS_SRC_ALPHA
+    glBlendFunc GL_ONE GL_ONE
     glDepthMask GL_FALSE
     renderLayer BloomNoZWrite shadV pokeCounts
     glDepthMask GL_TRUE
@@ -271,6 +273,7 @@ doDrawing' win pdata u = do
     glDepthFunc GL_LEQUAL
     glDepthMask GL_FALSE
     glBlendFuncSeparatei 0 GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA GL_ONE_MINUS_DST_ALPHA GL_ONE
+    --glBlendFunci 0 GL_ONE GL_ONE_MINUS_SRC_ALPHA
     --withArray [GL_COLOR_ATTACHMENT0, GL_NONE] $
     withArray [GL_COLOR_ATTACHMENT0, GL_COLOR_ATTACHMENT1] $
         glNamedFramebufferDrawBuffers (pdata ^. fboCloud . _1 . unFBO) 2
@@ -408,7 +411,8 @@ doDrawing' win pdata u = do
     glDepthFunc GL_ALWAYS
     glDepthMask GL_FALSE
     glEnable GL_BLEND
-    glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA
+    --glBlendFunc GL_SRC_ALPHA GL_ONE_MINUS_SRC_ALPHA
+    glBlendFunc GL_ONE GL_ONE_MINUS_SRC_ALPHA -- assume premultiplied alpha
     renderLayer DebugLayer shadV pokeCounts
     glBindBufferBase GL_UNIFORM_BUFFER 0 (pdata ^. matUBO)
     withArray (scaleMatrix (2 / windowXFloat cfig) (2 / windowYFloat cfig)) $

src/Dodge/Render/HUD.hs

@@ -2,6 +2,7 @@
 
 module Dodge.Render.HUD (drawHUD) where
 
+import Linear
 import Dodge.Clock
 import qualified Data.Vector as V
 import Dodge.Terminal
@@ -118,7 +119,7 @@ drawMouseOver cfig w =
                 <|> w ^? input . mouseContext . mcoInvFilt
         sss <- w ^? hud . diSections
         return . translateScreenPos cfig (invDP ^. ldpPos)
-            . color (withAlpha 0.1 white)
+            . color (0.3*^white)
             --            . color white
             $ selSecDrawCursorAt invDP curs sss (j, i)
     --    curs = BoundaryCursor [West]
@@ -130,7 +131,7 @@ drawMouseOver cfig w =
         sss <- w ^? hud . subInventory . ciSections
         let idp = secondColumnLDP
         return . translateScreenPos cfig (idp ^. ldpPos)
-            . color (withAlpha 0.2 white)
+            . color (0.3*white)
             $ selSecDrawCursorAt idp curs sss (j, i)
 
 drawDragSelected :: Config -> World -> Maybe Picture
@@ -146,7 +147,7 @@ drawDragSelected cfig w = do
     sss <- w ^? hud . diSections
     let f x = (selSecDrawCursorAt invDP BackdropCursor sss (i, x) <>)
     return . translateScreenPos cfig (invDP ^. ldpPos)
-        . color (withAlpha 0.2 white)
+        . color (0.2*^white)
         . IS.foldr f mempty
         $ ys
 
@@ -156,7 +157,7 @@ drawDragSelecting cfig w = do
     sss <- w ^? hud . diSections
     let f x = selSecDrawCursorAt invDP BackdropCursor sss (i, x)
     return . translateScreenPos cfig (invDP ^. ldpPos)
-        . color (withAlpha 0.2 white)
+        . color (0.2*^white)
         . foldMap f
         $ [min j b .. max j b]