blob: 320f7410d5378bbe127fd3ec6f3a6f8dda56087f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(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)))))))
|