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