Fix facing of cursor backdrop
This commit is contained in:
@@ -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]
|
||||
|
||||
Reference in New Issue
Block a user