turn faster
This commit is contained in:
parent
173a440bd6
commit
e5fdab4852
@ -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)))))
|
||||
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user