Cleanup

2026-04-06 11:38:21 +01:00
parent 9e29550a20
commit 21573d0b05
6 changed files with 14 additions and 23 deletions
@@ -140,11 +140,6 @@ setPixelOffsetBounded cfig (V2 x y) ldp = ldp & ldpPos . spPixelOff .~ V2 x' y'
        $ max (1+20*(ldp^.ldpVerticalGap + ldp^?!ldpSize._Just._y.to fromIntegral)-h*b) y
    V2 a b = ldp ^. ldpPos . spScreenOff

--leftHeldPosShift :: World -> Point2
--leftHeldPosShift w = fromMaybe 0 $ do
--    p <- w ^? input . heldPos . ix SDL.ButtonLeft
--    return $ w ^. input . mousePos - p
-
 doDrag :: Config -> Int -> Int -> Maybe (Int, Int) -> World -> World
 doDrag cfig n k mmouseover w = fromMaybe w $ do
    guard (n /= 0)