From e6910f04437e23047c9a1519c9c77af55fcbf4fe Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sun, 7 Nov 2021 11:21:30 +0100 Subject: Fixture library / tadm-led-foh: Use RGBW colour space --- guile/starlet/fixture-library/tadm/led-foh.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'guile/starlet/fixture-library') diff --git a/guile/starlet/fixture-library/tadm/led-foh.scm b/guile/starlet/fixture-library/tadm/led-foh.scm index 18ad15f..f947370 100644 --- a/guile/starlet/fixture-library/tadm/led-foh.scm +++ b/guile/starlet/fixture-library/tadm/led-foh.scm @@ -36,11 +36,11 @@ get-attr set-chan8 set-chan16) (let ((intensity (get-attr 'intensity)) - (rgb (colour-as-rgb (get-attr 'colour)))) + (rgbw (colour-as-rgbw (get-attr 'colour)))) (set-chan8 1 (percent->dmxval8 intensity)) (set-chan8 2 255) - (set-chan8 3 (percent->dmxval8 (car rgb))) - (set-chan8 4 (percent->dmxval8 (cadr rgb))) - (set-chan8 5 (percent->dmxval8 (caddr rgb))) - (set-chan8 6 0))) + (set-chan8 3 (percent->dmxval8 (car rgbw))) + (set-chan8 4 (percent->dmxval8 (cadr rgbw))) + (set-chan8 5 (percent->dmxval8 (caddr rgbw))) + (set-chan8 6 (percent->dmxval8 (cadddr rgbw))))) -- cgit v1.2.3