blob: f67085f0ca54747457cc5298eb8fad1bf5653b76 (
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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
;; Example invokation, from top level project folder:
;; $ guile -L guile -l examples/demo.scm
(use-modules
(starlet base)
(starlet playback)
(starlet effects)
(venues demo-venue)
(guile-midi control))
(start-ola-output)
(start-midi-control "/dev/snd/midiC1D0")
(all-notes-off! 14)
;; Set up working lights on a MIDI fader
(define working-light-fader
(make-midi-controller! #:channel 14
#:cc-number 19))
(register-state!
(lighting-state
(let ((fader-pos (lambda (time)
(get-controller-value working-light-fader))))
(at dim11 'intensity fader-pos)
(at dim12 'intensity fader-pos)
(at dim13 'intensity fader-pos))))
;; Same, for some different fixtures
(define movers-fader
(make-midi-controller! #:channel 14
#:cc-number 18))
(register-state!
(lighting-state
(let ((fader-pos (lambda (time)
(get-controller-value movers-fader))))
(at mh1 'intensity fader-pos)
(at mh2 'intensity fader-pos))))
(define pot1
(make-midi-controller! #:channel 14
#:cc-number 7))
(define example-state-1
(lighting-state
;; Front wash
(at dim11 'intensity 50)
(at dim12 'intensity 50)
(at dim13 'intensity 50)
;; Sidelight
(at dim7 'intensity (flash 2))
(at dim8 'intensity 50)
(at dim48 'intensity
(lambda (a)
(get-controller-value pot1)))))
(define example-state-2
(lighting-state
;; Front wash
(at dim1 'intensity 10)
(at dim2 'intensity 10)
(at dim3 'intensity 10)
;; Sidelight
(at dim7 'intensity (flash 5))))
(define my-cue-list
(cue-list
(cue 1
(cue-state (apply-state example-state-1)
(at mh1 'pan 25))
#:up-time 3
#:down-time 5)
(cue 2
(cue-state (apply-state example-state-2))
#:up-time 3
#:down-time 1
#:down-delay 3)
(cue 2.5
(cue-state (at dim1 'intensity 100))
#:track-intensities #t
#:up-time 1
#:down-time 1)
(cue 3
(cue-state (blackout (current-state)))
#:up-time 0
#:down-time 2
(cue-part (list dim3)
#:down-time 2
#:down-delay 1))))
;; Create a playback for the cue list, and register it for output
(define pb
(make-playback my-cue-list))
(register-state! pb)
;; Jump to zero (blackout) cue
(cut-to-cue-number! pb 0)
(define (make-playback-buttons chan
go-led-note
go-button-note
stop-led-note
stop-button-note)
(let ((go-led (make-midi-led #:channel chan
#:note-number go-led-note))
(stop-led (make-midi-led #:channel chan
#:note-number stop-led-note)))
(set-midi-led! go-led #t)
(set-midi-led! stop-led #t)
(register-midi-note-callback!
#:channel chan
#:note-number go-button-note
#:func (lambda () (go! pb)))
(register-midi-note-callback!
#:channel chan
#:note-number stop-button-note
#:func (lambda () (display "Stop/back!\n")))))
(make-playback-buttons 14 20 12 24 24)
(make-playback-buttons 14 23 15 27 27)
|
