diff options
Diffstat (limited to 'guile/starlet/midi-control/faders.scm')
-rw-r--r-- | guile/starlet/midi-control/faders.scm | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/guile/starlet/midi-control/faders.scm b/guile/starlet/midi-control/faders.scm index 8745688..dbd2a0f 100644 --- a/guile/starlet/midi-control/faders.scm +++ b/guile/starlet/midi-control/faders.scm @@ -128,7 +128,8 @@ attr (clamp-to-attr-range attr-obj - (+ old-val offset)))))) + (+ old-val offset)) + controller)))) fixtures old-vals))))))) @@ -177,13 +178,15 @@ attr-name gradients initial-vals - fixtures) + fixtures + controller) (for-each (lambda (fix initial-val gradient) (set-in-state! programmer-state fix attr-name (+ initial-val - (* gradient cc-offset)))) + (* gradient cc-offset)) + controller)) fixtures initial-vals gradients)) @@ -225,13 +228,15 @@ attr-name up-gradients initial-vals - fixtures)) + fixtures + controller)) ((<= new-cc-value congruent-val) (apply-fader (- new-cc-value congruent-val) attr-name dn-gradients initial-vals - fixtures))) + fixtures + controller))) (when (or (and (not prev-cc-val) (= new-cc-value congruent-val)) |