diff options
| author | Thomas White <taw@bitwiz.me.uk> | 2021-01-10 22:27:29 +0100 |
|---|---|---|
| committer | Thomas White <taw@bitwiz.me.uk> | 2021-01-10 22:27:29 +0100 |
| commit | 7200a3802e06e9a3dadd6cad0d209387a0149f86 (patch) | |
| tree | 9bf304e7506185dc147aa29ec7395ac2aebddfef /guile/starlet/base.scm | |
| parent | 609a44097a06121b006bf9f9b14c1bb4c338ccd5 (diff) | |
Avoid setting DMX values to #f
Diffstat (limited to 'guile/starlet/base.scm')
| -rw-r--r-- | guile/starlet/base.scm | 10 |
1 files changed, 6 insertions, 4 deletions
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)) |