Add blackout to demo

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)