From c05008529130d03387858725a5ac5778a20fb4b3 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 23 Jan 2022 15:26:10 +0100
Subject: Overlay all of the part transitions before applying to playback

This prevents any individual cue part being visible on stage before the
others.
---
 guile/starlet/playback.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'guile/starlet/playback.scm')

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)
-- 
cgit v1.2.3