diff options
author | Thomas White <taw@physics.org> | 2020-09-04 20:33:04 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-09-04 20:39:05 +0200 |
commit | 65f9dcb8c49ecb621c2f01f82fc8e2f56a1e8e0a (patch) | |
tree | a93a441677bffaaf0c36760957983cf6f05874f6 /examples | |
parent | 99e41c5b071d7e231f2cc55e0fb833fa58626c78 (diff) |
Move cue list stuff to playback module
Also, sketch out new way of doing cue lists
Diffstat (limited to 'examples')
-rw-r--r-- | examples/demo.scm | 55 |
1 files changed, 28 insertions, 27 deletions
diff --git a/examples/demo.scm b/examples/demo.scm index dd959d3..0bf14c1 100644 --- a/examples/demo.scm +++ b/examples/demo.scm @@ -76,37 +76,38 @@ (at dim7 'intensity (flash 5)))) -(define cue-list - (list (cue 0 - (cue-state) - #:fade-up 1 - #:fade-down 1) - - (cue 1 - (cue-state (apply-state example-state-1)) - #:fade-up 3 - #:fade-down 5) - - (cue 2 - (cue-state (apply-state example-state-2)) - #:fade-up 3 - #:fade-down 1 - #:down-delay 3) - - (cue 2.5 - (cue-state (apply-state example-state-2) - (at dim1 'intensity 100)) - #:fade-up 1 - #:fade-down 1) - - (cue 3 (cue-state) - #:fade-up 0 - #:fade-down 2))) +(define my-cue-list + (cue-list + (cue 0 + (cue-state) + #:fade-up 1 + #:fade-down 1) + + (cue 1 + (cue-state (apply-state example-state-1)) + #:fade-up 3 + #:fade-down 5) + + (cue 2 + (cue-state (apply-state example-state-2)) + #:fade-up 3 + #:fade-down 1 + #:down-delay 3) + + (cue 2.5 + (track-state (at dim1 'intensity 100)) + #:fade-up 1 + #:fade-down 1) + + (cue 3 + (cue-state) + #:fade-up 0 + #:fade-down 2))) ;; Create a playback for the cue list, and register it for output (define pb - (make-playback cue-list)) + (make-playback my-cue-list)) (register-state! pb) ;; Jump to zero (blackout) cue |