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

Tweak

Browse Source
This commit is contained in:
justin
2025-11-14 10:53:53 +00:00
parent 16eb356e31
commit db62de75d8
3 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
shader/pull/window.frag
+1
View File
@@ -1,6 +1,7 @@
#version 450 core #version 450 core
layout (location=0) out vec4 fCol; layout (location=0) out vec4 fCol;
layout (location=1) out vec4 fPos; layout (location=1) out vec4 fPos;
layout(binding = 3) uniform sampler2D cloudpos;
in vec4 vCol; in vec4 vCol;
in vec4 vPos; in vec4 vPos;
void main() void main()
src/Dodge/Creature/Picture.hs
+2 -1
View File
@@ -97,7 +97,8 @@ scalp cr = overPosSH (translateToES cr OnHead) fhead
-- | oneH cr = rotateSH 0.5 $ translateSHxy 2.5 0 fhead -- | oneH cr = rotateSH 0.5 $ translateSHxy 2.5 0 fhead
-- | otherwise = translateSHxy 2.5 0 fhead -- | otherwise = translateSHxy 2.5 0 fhead
where 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 torso :: Creature -> Shape
{-# INLINE torso #-} {-# INLINE torso #-}
src/Dodge/Render.hs
+4 -3
View File
@@ -295,6 +295,7 @@ doDrawing' win pdata u = do
pdata pdata
--draw windows onto window buffer --draw windows onto window buffer
glBindFramebuffer GL_FRAMEBUFFER (pdata ^. fboWindow . _1 . unFBO) glBindFramebuffer GL_FRAMEBUFFER (pdata ^. fboWindow . _1 . unFBO)
glBindTextureUnit 3 (pdata ^. fboPos . _2 . unTO)
withArray [GL_COLOR_ATTACHMENT0, GL_COLOR_ATTACHMENT1] $ withArray [GL_COLOR_ATTACHMENT0, GL_COLOR_ATTACHMENT1] $
glNamedFramebufferDrawBuffers (pdata ^. fboWindow . _1 . unFBO) 2 glNamedFramebufferDrawBuffers (pdata ^. fboWindow . _1 . unFBO) 2
withArray [0, 0, 0, 0] $ withArray [0, 0, 0, 0] $
@@ -304,9 +305,9 @@ doDrawing' win pdata u = do
glEnable GL_CULL_FACE glEnable GL_CULL_FACE
glEnable GL_DEPTH_CLAMP glEnable GL_DEPTH_CLAMP
glDepthFunc GL_LEQUAL glDepthFunc GL_LEQUAL
glDisable GL_BLEND glDepthMask GL_FALSE
-- glDepthFunc GL_ALWAYS glEnable GL_BLEND
-- glDisable GL_CULL_FACE glBlendFunc GL_SRC_ALPHA GL_ONE
glUseProgram $ pdata ^. windowPullShader glUseProgram $ pdata ^. windowPullShader
glBindVertexArray $ pdata ^. dummyVAO . vaoName glBindVertexArray $ pdata ^. dummyVAO . vaoName
glDrawArrays GL_TRIANGLES 0 (fromIntegral nWins * 6) glDrawArrays GL_TRIANGLES 0 (fromIntegral nWins * 6)