From 42f49129729e3f74244c4d752b225877cba631d2 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Thu, 31 Dec 2020 10:50:16 +0100 Subject: Select fixture and change parameters via MIDI --- guile/starlet/midi-control/faders.scm | 47 ++++++++++++++++++++++++++++++++++- 1 file changed, 46 insertions(+), 1 deletion(-) (limited to 'guile/starlet/midi-control/faders.scm') 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)))) -- cgit v1.2.3