diff options
Diffstat (limited to 'guile/starlet/fixture-library/generic.scm')
-rw-r--r-- | guile/starlet/fixture-library/generic.scm | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/guile/starlet/fixture-library/generic.scm b/guile/starlet/fixture-library/generic.scm index 320f741..b92569d 100644 --- a/guile/starlet/fixture-library/generic.scm +++ b/guile/starlet/fixture-library/generic.scm @@ -13,7 +13,14 @@ #:name 'intensity #:range '(0 100) #:type 'continuous - #:home-value 0 - #:translator (lambda (universe start-addr value set-dmx) - (set-dmx universe start-addr - (percent->dmxval value))))))) + #:home-value 0)))) + + +(define-method (scanout-fixture (fixture <generic-dimmer>) + get-attr + set-dmx) + + ;; Set DMX value for intensity + (set-dmx (get-fixture-universe fixture) + (get-fixture-addr fixture) + (percent->dmxval (get-attr 'intensity)))) |