blob: e24f0c695b8dfea94e5b3f4bc974108399737552 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(define-module (starlet fixture-library generic)
#:use-module (oop goops)
#:use-module (starlet base)
#:export (<generic-dimmer>))
(define-class <generic-dimmer> (<fixture>)
(attributes
#:init-form
(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)))))))
|
