run-cue-index!: Add an implicit transitiom to 0/no-value for values in playback

1 files changed, 1 insertions, 17 deletions

diff --git a/guile/starlet/crossfade.scm b/guile/starlet/crossfade.scm
index a301270..e92e9e6 100644
--- a/guile/starlet/crossfade.scm
+++ b/guile/starlet/crossfade.scm
@@ -191,22 +191,6 @@
            (< a 1))))
 
 
-(define (blank-everything in-state down-clock)
-  (let ((out-state (make-empty-state)))
-    (state-for-each
-      (lambda (fix attr val)
-        (when (intensity? attr)
-          (set-in-state! out-state
-                         fix
-                         attr
-                         (lambda ()
-                           (simple-fade (val)
-                                        0.0
-                                        down-clock)))))
-      in-state)
-    out-state))
-
-
 (define (make-fade-for-attribute-type type)
   (cond
     ((eq? type 'continuous) (cut make-general-fade simple-fade <...>))
@@ -235,7 +219,7 @@
       (let ((up-clock (make-delayed-clock clock up-delay up-time))
             (down-clock (make-delayed-clock clock down-delay down-time))
             (attribute-clock (make-delayed-clock clock attr-delay attr-time)))
-        (let ((overlay-state (blank-everything current-state down-clock)))
+        (let ((overlay-state (make-empty-state)))
           (state-for-each
             (lambda (fixture attr target-val)