(add-to-load-path "/home/taw/nanolight/guile")

(use-modules
  (nanolight fixture)
  (nanolight fixture-library generic)
  (nanolight fixture-library robe)
  (nanolight state)
  (ice-9 textual-ports))

(define output (make-output))

(define mh1 (patch-fixture output (robe-dl7s-profile-mode1) 1 1 "Robe DL7S"))
(define mh2 (patch-fixture output (robe-dl7s-profile-mode1) 1 52 "Robe DL7S"))
(define mh3 (patch-fixture output (robe-dl7s-profile-mode1) 1 103 "Robe DL7S"))
(define mh4 (patch-fixture output (robe-dl7s-profile-mode1) 1 154 "Robe DL7S"))

(define dim1 (patch-fixture output (generic-dimmer) 1 256 "Dimmer"))
(define dim2 (patch-fixture output (generic-dimmer) 1 257 "Dimmer"))
(define dim3 (patch-fixture output (generic-dimmer) 1 258 "Dimmer"))
(define dim4 (patch-fixture output (generic-dimmer) 1 259 "Dimmer"))
(define dim5 (patch-fixture output (generic-dimmer) 1 260 "Dimmer"))
(define dim6 (patch-fixture output (generic-dimmer) 1 261 "Dimmer"))

(define-state exstate
  (flash 2 mh1)
  (int 0 mh2)
  (int (+ 30 30) mh3)
  (int 32 mh4)
  (int 50 dim1)
  (int 12 dim2))

(print-state exstate)
(show-state output exstate)

; (def-cue lx5.7
;  (xf 'up 10 'down 5 example-state))

(display "Press enter to continue\n")
(get-char (current-input-port))

(define-state exstate2
  exstate
  (int 100 mh1)
  (int 0 mh4))

(print-state exstate2)
(show-state output exstate2)

(display "Press enter to continue\n")
(get-char (current-input-port))

(define-state exstate3
  (merge-ltp
    exstate
    (int 5 mh1)
    (int 5 mh4)))

(print-state exstate3)
(show-state output exstate3)

(display "Press enter to continue\n")
(get-char (current-input-port))