Fix combinations display

2024-11-04 10:19:53 +00:00
parent 0b43541080
commit 2a314d22e3
6 changed files with 105 additions and 91 deletions
@@ -334,7 +334,7 @@ combineInventoryExtra sss msel cfig w = fromMaybe mempty $ do
        return $
            translateScreenPos cfig (idp ^. ldpPos) $
                selSecDrawCursor
-                    17
+                    15
                    idp
                    (BoundaryCursor [North, South, East, West])
                    sss'
@@ -374,7 +374,7 @@ lnkMidPosInvSelsCol cfig w i col = fromMaybe mempty . foldMap f
        lp <- selNumPos cfig (invDisplayParams w) sss 0 j
        rp <- selNumPos cfig secondColumnParams combinesss 0 i
        invcol <- selSecSelCol 0 j sss
-        return $ zConnectCol (rp - V2 5 0) (lp + V2 175 0) col col col invcol
+        return $ zConnectColMidX (rp - V2 5 0) (lp + V2 155 0) (rp ^. _1 - 20) col col col invcol

 invHead :: Configuration -> String -> Picture
 invHead cfig =