From 65641890d23eaca494859a75780e7548df0a158e Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Sun, 2 Aug 2020 16:59:21 +0200
Subject: Add fade-up

---
 examples/demo.scm | 58 ++++++++++++++++++++++++++++++++++++++-----------------
 1 file changed, 40 insertions(+), 18 deletions(-)

(limited to 'examples')

diff --git a/examples/demo.scm b/examples/demo.scm
index cf5658d..17a031f 100644
--- a/examples/demo.scm
+++ b/examples/demo.scm
@@ -10,30 +10,52 @@
 (start-ola-output)
 (start-midi-control "/dev/snd/midiC1D0")
 
+
+;; Light up some LEDs on the MIDI controller
+(define led1
+  (make-midi-led #:channel 14
+                 #:note-number 23))
+
+(define led2
+  (make-midi-led #:channel 14
+                 #:note-number 20))
+
+(set-midi-led! led1 #t)
+(set-midi-led! led2 #t)
+
+
+;; Set up working lights on a MIDI fader
+(define worklight (make-workspace))
+
 (define working-light-fader
   (make-midi-controller #:channel 14
                         #:cc-number 19))
 
+(set-attr! worklight dim11 'intensity
+           (lambda (a)
+             (get-controller-value working-light-fader)))
+(set-attr! worklight dim12 'intensity
+           (lambda (a)
+             (get-controller-value working-light-fader)))
+(set-attr! worklight dim13 'intensity
+           (lambda (a)
+             (get-controller-value working-light-fader)))
+
+
+
+;; Workspace for cue playback
+(define cue-wksp (make-workspace))
+
 (define pot1
   (make-midi-controller #:channel 14
                         #:cc-number 7))
 
-(define wksp (make-workspace))
-
-(define (example-state wksp)
-
-  (blackout wksp)
+(define (example-state-1 wksp)
 
   ;; Front wash
-  (set-attr! wksp dim11 'intensity
-             (lambda (a)
-               (get-controller-value working-light-fader)))
-  (set-attr! wksp dim12 'intensity
-             (lambda (a)
-               (get-controller-value working-light-fader)))
-  (set-attr! wksp dim13 'intensity
-             (lambda (a)
-               (get-controller-value working-light-fader)))
+  (set-attr! wksp dim11 'intensity 100)
+  (set-attr! wksp dim12 'intensity 100)
+  (set-attr! wksp dim13 'intensity 100)
 
   ;; Sidelight
   (set-attr! wksp dim7 'intensity (flash 2))
@@ -44,9 +66,7 @@
                (get-controller-value pot1))))
 
 
-(define (example2 wksp)
-
-  (blackout wksp)
+(define (example-state-2 wksp)
 
   ;; Front wash
   (set-attr! wksp dim1 'intensity 10)
@@ -57,4 +77,6 @@
   (set-attr! wksp dim7 'intensity (flash 5))
   (set-attr! wksp dim8 'intensity 50))
 
-(example-state wksp)
+
+(fade-up cue-wksp example-state-1
+         #:fade-time 1)
-- 
cgit v1.2.3