diff options
Diffstat (limited to 'guile/nanolight/fixture-library/generic.scm')
-rw-r--r-- | guile/nanolight/fixture-library/generic.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guile/nanolight/fixture-library/generic.scm b/guile/nanolight/fixture-library/generic.scm index b593004..2117e75 100644 --- a/guile/nanolight/fixture-library/generic.scm +++ b/guile/nanolight/fixture-library/generic.scm @@ -6,4 +6,8 @@ (define (generic-dimmer) (list - (make <fixture-attribute> #:name 'intensity #:offset 0))) + (make <fixture-attribute> #:name 'intensity + #:range '(0 100) #:type 'continuous #:home-value 0 + #:translator (lambda (universe start-addr value set-dmx) + (set-dmx universe start-addr 1 + (percent->dmxval value)))))) |