Select fixture and change parameters via MIDI

1 files changed, 46 insertions, 1 deletions

diff --git a/guile/starlet/midi-control/faders.scm b/guile/starlet/midi-control/faders.scm
index 5abbe8a..8fa7351 100644
--- a/guile/starlet/midi-control/faders.scm
+++ b/guile/starlet/midi-control/faders.scm
@@ -1,7 +1,8 @@
 (define-module (starlet midi-control faders)
   #:use-module (starlet midi-control base)
   #:use-module (starlet base)
-  #:export (on-fader))
+  #:export (on-fader
+            sel))
 
 
 (define* (on-fader cc-number state
@@ -23,3 +24,47 @@
            (at fix attr val)))
 
      state))))
+
+
+(define (at-midi-jogwheel fix attr cc-number)
+
+  (define (ccval->offset a)
+    (if (eq? a 127)
+        -1
+        1))
+
+  (let ((old-val (current-value fix attr))
+        (offset 0))
+    (register-midi-cc-callback!
+     #:cc-number cc-number
+     #:func (lambda (prev-cc-val new-cc-value)
+              (set! offset (+ offset (ccval->offset new-cc-value)))
+              (set-attr! selection-state
+                         fix
+                         attr
+                         (+ old-val offset))))))
+
+
+(define (select-fixtures fixture)
+  (list
+   (at-midi-jogwheel fixture 'intensity 21)
+   (at-midi-jogwheel fixture 'pan 0)
+   (at-midi-jogwheel fixture 'tilt 1)))
+
+
+(define midi-callbacks '())
+
+(define (merge-rule-replace attr a b)
+  b)
+
+
+(define (sel fixture)
+  (when selection-state
+    (add-state-to-state! merge-rule-replace
+                         selection-state
+                         programmer-state)
+    (clear-state! selection-state)
+    (for-each remove-midi-callback! midi-callbacks))
+  (when fixture
+    (set! midi-callbacks
+      (select-fixtures fixture))))