Highlight tpf in red when it reaches the cap. Closes #1348.

swarm-game · Jul 20, 2023 · cfb3139 · cfb3139
1 parent 56b0935
commit cfb3139
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)"