Fix crWallCollisions by using a rectangle zone instead of a point

2023-01-03 17:36:28 +00:00
parent 5fc39bd12d
commit 5b4e8d75bb
9 changed files with 58 additions and 35 deletions
@@ -85,7 +85,7 @@ listCursorChooseBorderScale ygap s borders xoff yoff cfig yint col cursxsize cur
    winScale cfig
        . translate
            (15 - (9 * s) + xoff - halfWidth cfig)
-            (halfHeight cfig + negate (yoff - s * 12.5) - ((s * 10 + ygap) * (fromIntegral yint + 1)))
+            (halfHeight cfig + s * 12.5 - (yoff + (s * 10 + ygap) * (fromIntegral yint + 1)))
        . color col
        $ chooseCursorBorders (s * wth) (s * hgt) borders
  where