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)))))))