diff options
| -rw-r--r-- | guile/starlet/playback.scm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/guile/starlet/playback.scm b/guile/starlet/playback.scm index f8daa7c..5052ad0 100644 --- a/guile/starlet/playback.scm +++ b/guile/starlet/playback.scm @@ -269,6 +269,22 @@ (set-playback-state! pb 'running))) +(define-method (update-state! (pb <starlet-playback>)) + (when (and (get-pb-cue-clock pb) + (clock-expired? (get-pb-cue-clock pb)) + (eq? 'running (atomic-box-ref (state-box pb)))) + (when (eq? 'running (atomic-box-compare-and-swap! (state-box pb) + 'running + 'ready)) + (run-hook (state-change-hook pb) 'ready) + (let ((st (get-preset-state (get-running-cue pb)))) + (state-for-each + (lambda (fix attr val) + (set-in-state! pb fix attr (lambda () val))) + st)) + (set-running-cue! pb #f)))) + + (define-method (write (pb <starlet-playback>) port) (format port "#<<starlet-playback> state: ~a current-cue-number: ~a next-cue-index: ~a of ~a>" |