From 43fcadb4b9acf36ab96cd54f29b7de1cf933e2a2 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Mon, 26 Jun 2023 21:57:28 +0200 Subject: osc-smart-potentiometer: Don't attempt to calculate gradients with empty fixture list --- guile/starlet/open-sound-control/utils.scm | 11 ++++++----- 1 file 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 -- cgit v1.2.3