blob: ff497b36867fd86fc70e2274a875d5cdec1e4270 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(define-module (nanolight fixture-library generic)
#:use-module (oop goops)
#:use-module (nanolight fixture)
#:export (generic-dimmer))
(define (generic-dimmer)
(list
(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
(percent->dmxval value))))))
|
