Tweak terminal screen drawing

2026-04-06 10:03:48 +01:00
parent c041a4d174
commit 4723b45ef6
6 changed files with 97 additions and 92 deletions
@@ -136,7 +136,7 @@ setPixelOffsetBounded cfig (V2 x y) ldp = ldp & ldpPos . spPixelOff .~ V2 x' y'
    w = fromIntegral $ cfig ^. windowX
    x' = min (w - (w*a + 1+10*ldp ^?! ldpSize . _Just . _x . to fromIntegral)) 
        $ max (1 - w * a) x
-    y' = min (h-(h*b + 40)) 
+    y' = min (h-(h*b + 20)) 
        $ max (1+20*(ldp^.ldpVerticalGap + ldp^?!ldpSize._Just._y.to fromIntegral)-h*b) y
    V2 a b = ldp ^. ldpPos . spScreenOff