diff options
| -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)))))))) |