From ef9bc2d3655d1fb5635c018a001d387ecbd0734c Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sun, 16 Aug 2020 21:04:16 +0200 Subject: Add blackout to demo --- examples/demo.scm | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) (limited to 'examples') 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) -- cgit v1.2.3