Improve window drawing

2025-11-20 12:34:36 +00:00
parent 6563d87247
commit 0491a71da1
3 changed files with 11 additions and 7 deletions
@@ -310,10 +310,11 @@ doDrawing' win pdata u = do
    glEnable GL_BLEND
    --glBlendFunc GL_SRC_ALPHA GL_ONE
    glBindTextureUnit 3 (pdata ^. fboPos . _2 . unTO)
+    -- with all source alphas 0.25, alpha -> 0.5
    glBlendFunc GL_ONE_MINUS_DST_ALPHA GL_ONE_MINUS_SRC_ALPHA
    glUseProgram $ pdata ^. windowPullShader
    glBindVertexArray $ pdata ^. dummyVAO
-    glDrawArrays GL_TRIANGLES 0 (fromIntegral nWins * 6)
+    glDrawArrays GL_TRIANGLES 0 (fromIntegral nWins * 12)
    glDisable GL_DEPTH_CLAMP
    glDisable GL_CULL_FACE
    glInvalidateBufferData (pdata ^. vboShapes . vboName)