diff options
author | Thomas White <taw@physics.org> | 2020-07-26 18:41:59 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2020-07-26 21:18:51 +0200 |
commit | 546cecd5c28517487ad659d336c90a4ac3484cf6 (patch) | |
tree | 0a1971f8cd1d891ae9b7c2d6c8dcd615526230c9 /guile/starlet/fixture-library | |
parent | 0362c347e9dc884a1bb876fa8bfc155d2126adb7 (diff) |
Rename project and finally get states right
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))))))) |