diff options
Diffstat (limited to 'guile/nanolight/fixture-library/robe.scm')
| -rw-r--r-- | guile/nanolight/fixture-library/robe.scm | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/guile/nanolight/fixture-library/robe.scm b/guile/nanolight/fixture-library/robe.scm new file mode 100644 index 0000000..8a08185 --- /dev/null +++ b/guile/nanolight/fixture-library/robe.scm @@ -0,0 +1,47 @@ +(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) + (let ((val16 (* value (/ 65536 540)))) + (set-dmx universe (chan 1 start-addr) + (msb val16)) + (set-dmx universe (chan 2 start-addr) + (lsb val16))))) + + (make <fixture-attribute> #:name 'tilt + #:range '(0 270) #:type 'continuous #:home-value 135 + #:translator (lambda (universe start-addr value set-dmx) + (let ((val16 (* value (/ 65536 270)))) + (set-dmx universe (chan 3 start-addr) + (msb val16)) + (set-dmx universe (chan 4 start-addr) + (lsb val16))))) + + (make <fixture-attribute> #:name 'strobe + #:range '(#f #t) #:type 'step #:home-value #f + #:translator (lambda (universe start-addr value set-dmx) + (set-dmx universe (chan 49 start-addr) + (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) + (let ((val16 (* value (/ 65536 100)))) + (set-dmx universe (chan 50 start-addr) + (msb val16)) + (set-dmx universe (chan 51 start-addr) + (lsb val16))))) + + (make <fixture-attribute> #:name 'prism + #:range '(#f #t) #:type 'step #:home-value #f + #:translator (lambda (universe start-addr value set-dmx) + (set-dmx universe (chan 28 start-addr) + (if value 50 0)))))) |