highlight tpf rate in red when it hits the cap

Closes #1348.
swarm-game · Jul 20, 2023 · 8926350 · 8926350
1 parent f0078cd
commit 8926350
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/Swarm/TUI/Controller.hs b/src/Swarm/TUI/Controller.hs
@@ -13,6 +13,7 @@ module Swarm.TUI.Controller (
   -- ** Handling 'Frame' events
   runFrameUI,
   runFrame,
+  ticksPerFrameCap,
   runFrameTicks,
   runGameTickUI,
   runGameTick,

diff --git a/src/Swarm/TUI/View.hs b/src/Swarm/TUI/View.hs
@@ -94,6 +94,7 @@ import Swarm.Language.Syntax
 import Swarm.Language.Typecheck (inferConst)
 import Swarm.TUI.Attr
 import Swarm.TUI.Border
+import Swarm.TUI.Controller (ticksPerFrameCap)
 import Swarm.TUI.Editor.Model
 import Swarm.TUI.Editor.View qualified as EV
 import Swarm.TUI.Inventory.Sorting (renderSortMethod)
@@ -534,7 +535,9 @@ drawTPS s = hBox (tpsInfo : rateInfo)
   rateInfo
     | s ^. uiState . uiShowFPS =
         [ txt " ("
-        , str (printf "%0.1f" (s ^. uiState . uiTPF))
+        , let tpf = s ^. uiState . uiTPF
+           in (if tpf >= fromIntegral ticksPerFrameCap then withAttr redAttr else id)
+                (str (printf "%0.1f" tpf))
         , txt " tpf, "
         , str (printf "%0.1f" (s ^. uiState . uiFPS))
         , txt " fps)"