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

Tweak terminal screen drawing

Browse Source
This commit is contained in:
justin
2026-04-06 10:03:48 +01:00
parent c041a4d174
commit 4723b45ef6
6 changed files with 97 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render/HUD.hs
+11 -4
View File
@@ -372,10 +372,16 @@ drawTerminalDisplay w cfig tid = fold $ do
TerminalLineRead -> (++ [(spincurs, termTextColor)])
TerminalTextInput s -> (++ [(getPromptTM ++ s ++ [cFilledRect], white)])
TerminalPressTo s -> (++ [(s, white)])
return $
return . (each . vxPos . _z -~ 0.05) $
drawTerminalCursorLink w cfig tm
<> (
drawSelectionList (w ^. tmLDP) cfig f
<> drawTerminalCursorLink w cfig tm
<> (hackInvertText black white ("TERMINAL-" ++ show tid)
& each . vxPos *~ 0.1
& each . vxPos . _xy +~ rp)
& each . vxPos . _z -~ 0.05)
where
rp = screenPosAbs cfig (w ^. tmLDP . ldpPos)
-- <> invHead cfig ("TERMINAL-" ++ show tid)
-- <> color
-- (withAlpha 0.5 green) -- consider integrating termScreenColor somehow
@@ -391,7 +397,7 @@ drawTerminalCursorLink :: World -> Config -> Terminal -> Picture
drawTerminalCursorLink w cfig tm = fold $ do
j <- elemIndex (tm ^. tmButtonID) $ w ^. hud . closeButtons
lp <- selNumPos cfig invDP (w ^. hud . diSections) 5 j
let rp = screenPosAbs cfig (secondColumnLDP ^. ldpPos) - V2 5 10
let rp = screenPosAbs cfig (w ^. tmLDP . ldpPos)
lcol <- selSecSelCol 5 j (w ^. hud . diSections)
return $
translateScreenPos
@@ -403,7 +409,8 @@ drawTerminalCursorLink w cfig tm = fold $ do
(w ^. hud . diSections)
(Sel 5 j mempty)
)
<> lConnectCol (lp + V2 155 0) rp lcol white white
<>
lConnectCol (lp + V2 155 0) rp lcol white white
lnkMidPosInvSelsCol :: Config -> World -> Int -> Color -> [Int] -> Picture
lnkMidPosInvSelsCol cfig w i col = fromMaybe mempty . foldMap f