From e6905bb5192eb0a3dd14b713b3229fe2847d276a Mon Sep 17 00:00:00 2001 From: Thomas White Date: Thu, 20 Aug 2020 21:39:05 +0200 Subject: Add a moving light to the demo --- examples/demo.scm | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'examples') 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)) -- cgit v1.2.3