diff options
Diffstat (limited to 'guile')
-rw-r--r-- | guile/starlet/open-sound-control/utils.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/guile/starlet/open-sound-control/utils.scm b/guile/starlet/open-sound-control/utils.scm index 4e6a3db..d89665c 100644 --- a/guile/starlet/open-sound-control/utils.scm +++ b/guile/starlet/open-sound-control/utils.scm @@ -263,11 +263,12 @@ (let ((set-gradients (lambda () - (set! initial-vals (current-values fixtures attr-name)) - (set! congruent-val (fader-congruent initial-vals attrs)) - (set! up-gradients (fader-up-gradients initial-vals attrs congruent-val)) - (set! dn-gradients (fader-down-gradients initial-vals attrs congruent-val)) - (osc-send addr (string-append potentiometer "/set-pickup") congruent-val)))) + (unless (nil? fixtures) + (set! initial-vals (current-values fixtures attr-name)) + (set! congruent-val (fader-congruent initial-vals attrs)) + (set! up-gradients (fader-up-gradients initial-vals attrs congruent-val)) + (set! dn-gradients (fader-down-gradients initial-vals attrs congruent-val)) + (osc-send addr (string-append potentiometer "/set-pickup") congruent-val))))) (add-and-run-hook! selection-hook |