diff options
Diffstat (limited to 'guile/starlet/fixture-library/tadm/led-bar.scm')
| -rw-r--r-- | guile/starlet/fixture-library/tadm/led-bar.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/guile/starlet/fixture-library/tadm/led-bar.scm b/guile/starlet/fixture-library/tadm/led-bar.scm index 44a77f5..a04ed5e 100644 --- a/guile/starlet/fixture-library/tadm/led-bar.scm +++ b/guile/starlet/fixture-library/tadm/led-bar.scm @@ -37,8 +37,10 @@ (let ((intensity (get-attr 'intensity)) (rgb (colour-as-rgb (get-attr 'colour)))) - (set-chan8 1 (percent->dmxval8 intensity)) - (set-chan8 2 (percent->dmxval8 (car rgb))) - (set-chan8 3 (percent->dmxval8 (cadr rgb))) - (set-chan8 4 (percent->dmxval8 (caddr rgb))))) + (set-chan8 1 17) + (set-chan8 2 (percent->dmxval8 intensity)) + (set-chan8 3 0) + (set-chan8 4 (percent->dmxval8 (car rgb))) + (set-chan8 5 (percent->dmxval8 (cadr rgb))) + (set-chan8 6 (percent->dmxval8 (caddr rgb))))) |