From 7200a3802e06e9a3dadd6cad0d209387a0149f86 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sun, 10 Jan 2021 22:27:29 +0100 Subject: Avoid setting DMX values to #f --- guile/starlet/base.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'guile/starlet') diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index f0ca621..dc683e5 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -379,16 +379,18 @@ ;; Helper function to set 8-bit DMX value (define (set-chan relative-channel-number value) + (when value (set-dmx (get-fixture-universe fix) (+ (get-fixture-addr fix) (- relative-channel-number 1)) - value)) + value))) ;; Helper function to set 16-bit DMX value (define (set-chan-16bit relative-channel-number value max-value) - (let ((val16 (* (min value max-value) (/ 65535 max-value)))) - (set-chan relative-channel-number (msb val16)) - (set-chan (+ relative-channel-number 1) (lsb val16)))) + (when value + (let ((val16 (* (min value max-value) (/ 65535 max-value)))) + (set-chan relative-channel-number (msb val16)) + (set-chan (+ relative-channel-number 1) (lsb val16))))) (scanout-fixture fix get-attr set-chan set-chan-16bit)) -- cgit v1.2.3