Fix facing of cursor backdrop

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

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]