clamp markedTime to stay visible in TimeScale

2024-11-22 17:59:52 +00:00 · 2024-11-22 17:59:52 +00:00 · c81b37a65e
commit c81b37a65e
parent bd8b982238
1 changed files with 9 additions and 3 deletions
--- a/frontend/src/Main.elm
+++ b/frontend/src/Main.elm
@ -247,9 +247,15 @@ updateModel msg model =
                _ -> model

        TimeScale factor ->
-            { model |
-                  startTime = model.startTime + factor / 2
-            ,     duration = model.duration - factor
+            let startTime = model.startTime + factor / 2
+                duration = model.duration - factor
+            in { model |
+                  startTime = startTime
+            ,     duration = duration
+            ,     markedTime =
+                  let (s, d) = model.markedTime
+                  in ( max s startTime
+                     , (min (s + d) (startTime + duration)) - s)
            }

        Loaded result ->