From c51d80b3411d482286b8ecd4da407ab59563233e Mon Sep 17 00:00:00 2001
From: Thomas White <taw@bitwiz.me.uk>
Date: Fri, 5 Jun 2020 10:41:11 +0200
Subject: WIP

---
 guile/nanolight/fixture-library/robe.scm | 38 ++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 guile/nanolight/fixture-library/robe.scm

(limited to 'guile/nanolight/fixture-library/robe.scm')

diff --git a/guile/nanolight/fixture-library/robe.scm b/guile/nanolight/fixture-library/robe.scm
new file mode 100644
index 0000000..dcdd30b
--- /dev/null
+++ b/guile/nanolight/fixture-library/robe.scm
@@ -0,0 +1,38 @@
+(define-module (nanolight fixture-library robe)
+  #:use-module (oop goops)
+  #:use-module (nanolight fixture)
+  #:export (robe-dl7s-profile-mode1))
+
+
+(define (robe-dl7s-profile-mode1)
+  (list
+
+    (make <fixture-attribute> #:name 'pan
+      #:range '(0 540) #:type 'continuous #:home-value 270
+      #:translator (lambda (universe start-addr value set-dmx)
+                     (set-dmx universe (+ 0 start-addr) 2
+                       (percent->dmxval value))))
+
+    (make <fixture-attribute> #:name 'tilt
+      #:range '(0 270) #:type 'continuous #:home-value 135
+      #:translator (lambda (universe start-addr value set-dmx)
+                     (set-dmx universe (+ 2 start-addr) 2
+                       (percent->dmxval value))))
+
+    (make <fixture-attribute> #:name 'strobe
+      #:range '(#f #t) #:type 'step #:home-value #f
+      #:translator (lambda (universe start-addr value set-dmx)
+                     (set-dmx universe (+ 48 start-addr) 1
+                       (if value 95 32))))
+
+    (make <fixture-attribute> #:name 'intensity
+      #:range '(0 100) #:type 'continuous #:home-value 0
+      #:translator (lambda (universe start-addr value set-dmx)
+                     (set-dmx universe (+ 49 start-addr) 2
+                       (percent->dmxval value))))
+
+    (make <fixture-attribute> #:name 'prism
+      #:range '(#f #t) #:type 'step #:home-value #f
+      #:translator (lambda (universe start-addr value set-dmx)
+                     (set-dmx universe (+ 27 start-addr) 1
+                       (if value 50 0))))))
-- 
cgit v1.2.3