From 4d245fe2320ce371536bec9fe4a20cf5c8497a17 Mon Sep 17 00:00:00 2001 From: justin Date: Fri, 21 Nov 2025 17:56:10 +0000 Subject: [PATCH] Fix facing of cursor backdrop --- src/Dodge/Render.hs | 2 -- src/Dodge/Render/List.hs | 2 +- 2 files changed, 1 insertion(+), 3 deletions(-) diff --git a/src/Dodge/Render.hs b/src/Dodge/Render.hs index 8495037f0..84298d1cb 100644 --- a/src/Dodge/Render.hs +++ b/src/Dodge/Render.hs @@ -128,7 +128,6 @@ doDrawing' win pdata u = do glClearNamedFramebufferfv (pdata ^. fboBase . _1 . unFBO) GL_COLOR 2 -- glNamedFramebufferDrawBuffers set in preloadRender --draw walls onto base buffer - glEnable GL_CULL_FACE glUseProgram (pdata ^. pullWallShader) glDrawArrays GL_TRIANGLES 0 (fromIntegral trueNWalls * 6) --draw object shapes onto base buffer @@ -143,7 +142,6 @@ doDrawing' win pdata u = do -- need to set the drawbuffer to none glDrawBuffer GL_NONE glDrawArrays GL_TRIANGLES 0 (fromIntegral nchs) - -- reset drawbuffer withArray [GL_COLOR_ATTACHMENT0,GL_COLOR_ATTACHMENT1,GL_COLOR_ATTACHMENT2] $ glNamedFramebufferDrawBuffers (pdata ^. fboBase . _1 . unFBO) 3 glDepthMask GL_TRUE diff --git a/src/Dodge/Render/List.hs b/src/Dodge/Render/List.hs index ac5b67e08..cfdf75222 100644 --- a/src/Dodge/Render/List.hs +++ b/src/Dodge/Render/List.hs @@ -156,7 +156,7 @@ listCursorChooseBorderScale ygap s curs yint xint col cursxsize cursysize = chooseCursorBorders :: Float -> Float -> CursorDisplay -> Picture chooseCursorBorders w h = \case BoundaryCursor ps -> foldMap (line . toLine) ps - BackdropCursor -> polygon . reverse $ rectNSWE 0 h' 0 w + BackdropCursor -> polygon $ rectNSWE 0 h' 0 w where h' = negate h toLine North = [V2 0 0, V2 w 0]