justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2025-01-06 12:06:51 +00:00
parent f3f365bbe9
commit faded4a3c5
1 changed files with 0 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update/Input/InGame.hs
-22
View File
@@ -283,29 +283,7 @@ startDrag (a, b) cfig w = setcontext
setcontext = input . mouseContext .~ OverInvDrag a (Just (a, b)) above bneath setcontext = input . mouseContext .~ OverInvDrag a (Just (a, b)) above bneath
above = inverseSelSecYint (yint - 1) =<< w ^? hud . hudElement . diSections above = inverseSelSecYint (yint - 1) =<< w ^? hud . hudElement . diSections
bneath = inverseSelSecYint (yint + 1) =<< w ^? hud . hudElement . diSections bneath = inverseSelSecYint (yint + 1) =<< w ^? hud . hudElement . diSections
--above = do
-- sss <- w ^? hud . hudElement . diSections
-- inverseSelSecYint (yint - 1) sss
--bneath = do
-- sss <- w ^? hud . hudElement . diSections
-- inverseSelSecYint (yint + 1) sss
yint = posSelSecYint cfig invDP (w ^. input . mousePos . _y) yint = posSelSecYint cfig invDP (w ^. input . mousePos . _y)
--startDrag :: (Int, Int) -> Configuration -> World -> World
--startDrag (a, b) cfig w = setcontext
-- . fromMaybe (augInvDirectSelect (a, b, IS.singleton b) w)
-- $ do
-- (i, _, xs) <- w ^? hud . hudElement . diSelection . _Just
-- guard $ i == a && b `IS.member` xs
-- return w
-- where
-- setcontext = input . mouseContext .~ OverInvDrag a (Just (a, b)) above bneath
-- above = do
-- sss <- w ^? hud . hudElement . diSections
-- inverseSelSecYint (yint - 1) sss
-- bneath = do
-- sss <- w ^? hud . hudElement . diSections
-- inverseSelSecYint (yint + 1) sss
-- yint = posSelSecYint cfig invDP (w ^. input . mousePos . _y)
concurrentIS :: IS.IntSet -> Bool concurrentIS :: IS.IntSet -> Bool
concurrentIS = go . IS.minView concurrentIS = go . IS.minView