blob: 72eadbbff70d7ba528bf75fcaa371635bb00549c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
(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))
|