From 9c87690dd43e6b74c631aea553dfb755ad2202b6 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 30 Aug 2020 21:24:29 +0200
Subject: cue-state and apply-state

---
 examples/demo.scm | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

(limited to 'examples')

diff --git a/examples/demo.scm b/examples/demo.scm
index 359b99b..dd959d3 100644
--- a/examples/demo.scm
+++ b/examples/demo.scm
@@ -77,20 +77,29 @@
 
 
 (define cue-list
-  (list (cue 0 make-empty-state
+  (list (cue 0
+             (cue-state)
              #:fade-up 1
              #:fade-down 1)
 
-        (cue 1 (lambda () example-state-1)
+        (cue 1
+             (cue-state (apply-state example-state-1))
              #:fade-up 3
              #:fade-down 5)
 
-        (cue 2 (lambda () example-state-2)
+        (cue 2
+             (cue-state (apply-state example-state-2))
              #:fade-up 3
              #:fade-down 1
              #:down-delay 3)
 
-        (cue 3 make-empty-state
+        (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)))
 
-- 
cgit v1.2.3