From 65f9dcb8c49ecb621c2f01f82fc8e2f56a1e8e0a Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Fri, 4 Sep 2020 20:33:04 +0200
Subject: Move cue list stuff to playback module

Also, sketch out new way of doing cue lists
---
 examples/demo.scm | 55 ++++++++++++++++++++++++++++---------------------------
 1 file changed, 28 insertions(+), 27 deletions(-)

(limited to 'examples')

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
-- 
cgit v1.2.3