Fix facing of cursor backdrop

This commit is contained in:
2025-11-21 17:56:10 +00:00
parent 9796ec576f
commit 4d245fe232
2 changed files with 1 additions and 3 deletions
+1 -1
View File
@@ -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]