Tweak

src/Dodge/Creature/Picture.hs

@@ -97,7 +97,8 @@ scalp cr = overPosSH (translateToES cr OnHead) fhead
 --    | oneH cr = rotateSH 0.5 $ translateSHxy 2.5 0 fhead
 --    | otherwise = translateSHxy 2.5 0 fhead
   where
-    fhead = colorSH (greyN 0.9) . upperPrismPolyHalfST 5 $ polyCirc 3 5
+    fhead = (colorSH (greyN 0.9) . upperPrismPolyHalfST 5 $ polyCirc 3 5)
+        & each . sfShadowImportance .~ Unimportant
 
 torso :: Creature -> Shape
 {-# INLINE torso #-}

src/Dodge/Render.hs

@@ -295,6 +295,7 @@ doDrawing' win pdata u = do
             pdata
     --draw windows onto window buffer
     glBindFramebuffer GL_FRAMEBUFFER (pdata ^. fboWindow . _1 . unFBO)
+    glBindTextureUnit 3 (pdata ^. fboPos . _2 . unTO)
     withArray [GL_COLOR_ATTACHMENT0, GL_COLOR_ATTACHMENT1] $
         glNamedFramebufferDrawBuffers (pdata ^. fboWindow . _1 . unFBO) 2
     withArray [0, 0, 0, 0] $
@@ -304,9 +305,9 @@ doDrawing' win pdata u = do
     glEnable GL_CULL_FACE
     glEnable GL_DEPTH_CLAMP
     glDepthFunc GL_LEQUAL
-    glDisable GL_BLEND
-    --    glDepthFunc GL_ALWAYS
-    --    glDisable GL_CULL_FACE
+    glDepthMask GL_FALSE
+    glEnable GL_BLEND
+    glBlendFunc GL_SRC_ALPHA GL_ONE
     glUseProgram $ pdata ^. windowPullShader
     glBindVertexArray $ pdata ^. dummyVAO . vaoName
     glDrawArrays GL_TRIANGLES 0 (fromIntegral nWins * 6)