Add a moving light to the demo

2 files changed, 19 insertions, 1 deletions

diff --git a/examples/demo.scm b/examples/demo.scm
index 1fe76fb..a724152 100644
--- a/examples/demo.scm
+++ b/examples/demo.scm
@@ -29,6 +29,19 @@
 (register-state! worklight)
 
 
+(define movers-fader
+  (make-midi-controller! #:channel 14
+                         #:cc-number 18))
+(define (movers)
+  (let ((state (make-empty-state))
+        (fader-pos (get-controller-value movers-fader)))
+    (set-attr! state mh1 'intensity fader-pos)
+    (set-attr! state mh2 'intensity fader-pos)
+    state))
+
+(register-state! movers)
+
+
 (define pot1
   (make-midi-controller! #:channel 14
                          #:cc-number 7))
diff --git a/guile/venues/demo-venue.scm b/guile/venues/demo-venue.scm
index f334720..59b392c 100644
--- a/guile/venues/demo-venue.scm
+++ b/guile/venues/demo-venue.scm
@@ -1,6 +1,7 @@
 (define-module (venues demo-venue)
   #:use-module (starlet base)
-  #:use-module (starlet fixture-library generic))
+  #:use-module (starlet fixture-library generic)
+  #:use-module (starlet fixture-library robe))
 
 ;; Conventional dimmers (1-48)
 (define-public dim1 (patch-fixture! <generic-dimmer> 1))
@@ -55,3 +56,7 @@
 (define-public dim46 (patch-fixture! <generic-dimmer> 46))
 (define-public dim47 (patch-fixture! <generic-dimmer> 47))
 (define-public dim48 (patch-fixture! <generic-dimmer> 48))
+
+
+(define-public mh1 (patch-fixture! <robe-dl7s-mode1> 59))
+(define-public mh2 (patch-fixture! <robe-dl7s-mode1> 146))