diff options
Diffstat (limited to 'guile/starlet/fixture-library')
-rw-r--r-- | guile/starlet/fixture-library/generic.scm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/guile/starlet/fixture-library/generic.scm b/guile/starlet/fixture-library/generic.scm new file mode 100644 index 0000000..e24f0c6 --- /dev/null +++ b/guile/starlet/fixture-library/generic.scm @@ -0,0 +1,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))))))) |