diff options
author | Thomas White <taw@physics.org> | 2020-08-20 21:39:05 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-08-20 21:39:05 +0200 |
commit | e6905bb5192eb0a3dd14b713b3229fe2847d276a (patch) | |
tree | c95be8f3305ad2b7fac3c366c7abfebf5369f280 | |
parent | 15d16b2acc57e064a6e384fcef082d712f5dc991 (diff) |
Add a moving light to the demo
-rw-r--r-- | examples/demo.scm | 13 | ||||
-rw-r--r-- | guile/venues/demo-venue.scm | 7 |
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)) |