diff options
author | Thomas White <taw@physics.org> | 2021-05-27 21:45:53 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-05-27 21:45:53 +0200 |
commit | bfa806b989cce6dc2030a02fb14a303d8068dd0a (patch) | |
tree | 367e8ff83292304f6ccc2eb2c39a2a705c16df04 /guile/starlet/playback.scm | |
parent | 6379b2f8a992152809cc11919d4095bf4f124908 (diff) |
Set the preset state when cutting between cues
Diffstat (limited to 'guile/starlet/playback.scm')
-rw-r--r-- | guile/starlet/playback.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm index c8da94c..cdb4274 100644 --- a/guile/starlet/playback.scm +++ b/guile/starlet/playback.scm @@ -157,11 +157,20 @@ (set-next-cue-index! pb (+ cue-index 1)) (set-cue-clock! pb #f) (set-playback-state! pb 'ready) + + ;; Set the actual state (state-for-each (lambda (fix attr val) (set-in-state! pb fix attr (lambda () val))) (get-tracked-state (vector-ref (get-playback-cue-list pb) - cue-index)))) + cue-index))) + + ;; Set the preset state on top + (state-for-each + (lambda (fix attr val) + (set-in-state! pb fix attr (lambda () val))) + (get-preset-state (vector-ref (get-playback-cue-list pb) + cue-index)))) (define (cut-to-cue-number! pb cue-number) |