diff options
author | Thomas White <taw@physics.org> | 2020-08-16 21:04:16 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-08-16 21:04:37 +0200 |
commit | ef9bc2d3655d1fb5635c018a001d387ecbd0734c (patch) | |
tree | 80545296d93108419a6aca76e2e0f852070dac65 /examples | |
parent | 883611471868696506fc8d6175cb4483edfc1d1d (diff) |
Add blackout to demo
Diffstat (limited to 'examples')
-rw-r--r-- | examples/demo.scm | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/examples/demo.scm b/examples/demo.scm index 78000d0..11ec524 100644 --- a/examples/demo.scm +++ b/examples/demo.scm @@ -81,7 +81,11 @@ (define cue-list - (list (cue 1 example-state-1 + (list (cue 0 (make-empty-state) + #:fade-up 1 + #:fade-down 1) + + (cue 1 example-state-1 #:fade-up 3 #:fade-down 5) @@ -89,11 +93,14 @@ #:fade-up 3 #:fade-down 5))) + +;; Create a playback for the cue list, and register it for output (define pb (make-playback cue-list)) - (register-state! pb) -(cut-to-cue! pb 1) +;; Jump to zero (blackout) cue +(cut-to-cue! pb 0) -(run-cue! pb 2) +;; Run the first cue +(run-cue! pb 1) |