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

Fix facing of cursor backdrop

Browse Source
This commit is contained in:
justin
2025-11-21 17:56:10 +00:00
parent 9796ec576f
commit 4d245fe232
2 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render.hs
-2
View File
@@ -128,7 +128,6 @@ doDrawing' win pdata u = do
glClearNamedFramebufferfv (pdata ^. fboBase . _1 . unFBO) GL_COLOR 2 glClearNamedFramebufferfv (pdata ^. fboBase . _1 . unFBO) GL_COLOR 2
-- glNamedFramebufferDrawBuffers set in preloadRender -- glNamedFramebufferDrawBuffers set in preloadRender
--draw walls onto base buffer --draw walls onto base buffer
glEnable GL_CULL_FACE
glUseProgram (pdata ^. pullWallShader) glUseProgram (pdata ^. pullWallShader)
glDrawArrays GL_TRIANGLES 0 (fromIntegral trueNWalls * 6) glDrawArrays GL_TRIANGLES 0 (fromIntegral trueNWalls * 6)
--draw object shapes onto base buffer --draw object shapes onto base buffer
@@ -143,7 +142,6 @@ doDrawing' win pdata u = do
-- need to set the drawbuffer to none -- need to set the drawbuffer to none
glDrawBuffer GL_NONE glDrawBuffer GL_NONE
glDrawArrays GL_TRIANGLES 0 (fromIntegral nchs) glDrawArrays GL_TRIANGLES 0 (fromIntegral nchs)
-- reset drawbuffer
withArray [GL_COLOR_ATTACHMENT0,GL_COLOR_ATTACHMENT1,GL_COLOR_ATTACHMENT2] $ withArray [GL_COLOR_ATTACHMENT0,GL_COLOR_ATTACHMENT1,GL_COLOR_ATTACHMENT2] $
glNamedFramebufferDrawBuffers (pdata ^. fboBase . _1 . unFBO) 3 glNamedFramebufferDrawBuffers (pdata ^. fboBase . _1 . unFBO) 3
glDepthMask GL_TRUE glDepthMask GL_TRUE
src/Dodge/Render/List.hs
+1 -1
View File
@@ -156,7 +156,7 @@ listCursorChooseBorderScale ygap s curs yint xint col cursxsize cursysize =
chooseCursorBorders :: Float -> Float -> CursorDisplay -> Picture chooseCursorBorders :: Float -> Float -> CursorDisplay -> Picture
chooseCursorBorders w h = \case chooseCursorBorders w h = \case
BoundaryCursor ps -> foldMap (line . toLine) ps BoundaryCursor ps -> foldMap (line . toLine) ps
BackdropCursor -> polygon . reverse $ rectNSWE 0 h' 0 w BackdropCursor -> polygon $ rectNSWE 0 h' 0 w
where where
h' = negate h h' = negate h
toLine North = [V2 0 0, V2 w 0] toLine North = [V2 0 0, V2 w 0]