turn faster

This commit is contained in:
Daniel Barlow 2025-06-16 11:51:12 +01:00
parent 173a440bd6
commit e5fdab4852

View File

@ -325,8 +325,8 @@ label.readout {
(expect= (hhmmss (+ 45 (* 60 12) (* 60 60 3))) "3:12:45")
(fn turn-smoothly [from to]
(if (< (math.abs (- from to)) 10) to
(+ from (* 0.05 (- to from)))))
(if (< (math.abs (- from to)) 3) to
(+ from (* 0.3 (- to from)))))