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]