diff options
author | Thomas White <taw@physics.org> | 2020-08-23 13:41:24 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-08-23 13:41:24 +0200 |
commit | 75685e004887f9c07def4bef1db0a24e8693ab2e (patch) | |
tree | b4ce9b0df68bd99f9d6cd9e45abde65e11fa2a2a /guile/starlet/playback.scm | |
parent | 3ec4c49436046db9cef9f616370e2bca090b8adb (diff) |
Formatting
Diffstat (limited to 'guile/starlet/playback.scm')
-rw-r--r-- | guile/starlet/playback.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm index 545f98c..79629c5 100644 --- a/guile/starlet/playback.scm +++ b/guile/starlet/playback.scm @@ -76,8 +76,7 @@ (get-fade-start-frac fade)) ;; After end of fade - ((> elapsed-fade-time - (get-fade-time fade)) + ((> elapsed-fade-time (get-fade-time fade)) (get-fade-target-frac fade)) ;; During the fade @@ -86,7 +85,7 @@ (* (- (get-fade-target-frac fade) (get-fade-start-frac fade)) - ;; Fraction of fade time elapsed + ;; Fraction of fade time elapsed (/ elapsed-fade-time (get-fade-time fade)))))))) |