diff options
author | Thomas White <taw@physics.org> | 2021-11-07 11:21:30 +0100 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2021-11-07 11:27:57 +0100 |
commit | e6910f04437e23047c9a1519c9c77af55fcbf4fe (patch) | |
tree | e9596374a9a37dc97a398fcfd87f6ee84cef95cb | |
parent | cf899e0439cf4fbfbda8138c3152d540c7838e5f (diff) |
Fixture library / tadm-led-foh: Use RGBW colour space
-rw-r--r-- | guile/starlet/fixture-library/tadm/led-foh.scm | 10 |
1 files changed, 5 insertions, 5 deletions
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))))) |