Overlay all of the part transitions before applying to playback

This prevents any individual cue part being visible on stage before the
others.

1 files changed, 3 insertions, 2 deletions

diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm
index 906f89c..69fd444 100644
--- a/guile/starlet/playback.scm
+++ b/guile/starlet/playback.scm
@@ -247,7 +247,7 @@
          (cue-clock (get-cue-clock the-cue)))
 
     (atomically-overlay-state!
-      pb
+      overlay-state
       ((transition-func (get-transition-effect the-cue))
        this-cue-state
        cue-clock))
@@ -255,12 +255,13 @@
     (for-each
       (lambda (cue-part)
         (atomically-overlay-state!
-          pb
+          overlay-state
           ((transition-func (get-transition-effect the-cue))
            this-cue-state
            cue-clock)))
       (get-cue-parts the-cue))
 
+    (atomically-overlay-state! pb overlay-state)
     (set-pb-cue-clock! pb cue-clock)
     (set-running-cue! pb the-cue)
     (reset-clock! cue-clock)