blob: 770beae3b4b764e532ba2edd7734451a9572a1bb (
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
|
(use-modules
(starlet fixture)
(starlet state)
(starlet playback)
(starlet scanout)
(starlet effects)
(starlet colours)
(starlet clock)
(starlet fixture-library generic dimmer)
(starlet fixture-library generic rgb)
(starlet fixture-library robe mmxspot mode1)
(starlet fixture-library robe mmxwashbeam mode1)
(starlet midi-control base)
(starlet midi-control button-utils)
(starlet midi-control faders))
;; Start MIDI control
(start-midi-control "/dev/snd/midiC1D0"
#:channel 14)
;; Fixtures are normal GOOPS objects, fixture types are GOOPS classes
(patch-fixture! led <generic-rgb> 1 #:universe 4)
(patch-many! red <generic-dimmer> '(9 13 20 24))
;; Multiple fixtures can be defined at once
;; Example: foh1, foh2, foh3, ... foh8 on channels 1-8 of universe 0
(patch-many! foh <generic-dimmer> (iota 8 1))
(patch-fixture! ltruss1 <robe-mmxspot-mode1> 1 #:universe 1)
(patch-fixture! ltruss2 <robe-mmxspot-mode1> 39 #:universe 1)
(patch-fixture! ltruss3 <robe-mmxspot-mode1> 77 #:universe 1)
(patch-fixture! ltruss4 <robe-mmxspot-mode1> 115 #:universe 1)
(patch-fixture! ltruss5 <robe-mmxspot-mode1> 153 #:universe 1)
(patch-fixture! ltruss6 <robe-mmxspot-mode1> 191 #:universe 1)
(patch-fixture! rtruss1 <robe-mmxspot-mode1> 229 #:universe 1)
(patch-fixture! rtruss2 <robe-mmxspot-mode1> 267 #:universe 1)
(patch-fixture! rtruss3 <robe-mmxspot-mode1> 305 #:universe 1)
(patch-fixture! rtruss4 <robe-mmxspot-mode1> 343 #:universe 1)
(patch-fixture! rtruss5 <robe-mmxspot-mode1> 381 #:universe 1)
(patch-fixture! rtruss6 <robe-mmxspot-mode1> 419 #:universe 1)
(patch-fixture! floor1 <robe-mmxwashbeam-mode1> 100)
(patch-fixture! floor2 <robe-mmxwashbeam-mode1> 134)
(patch-fixture! floor3 <robe-mmxwashbeam-mode1> 168)
(patch-fixture! floor4 <robe-mmxwashbeam-mode1> 202)
(patch-fixture! floor5 <robe-mmxwashbeam-mode1> 236)
(patch-fixture! floor6 <robe-mmxwashbeam-mode1> 270)
;; Fixtures can be grouped together
(define ltruss (list ltruss1 ltruss2 ltruss3 ltruss4 ltruss5 ltruss6))
(define rtruss (list rtruss1 rtruss2 rtruss3 rtruss4 rtruss5 rtruss6))
(define floor (list floor1 floor2 floor3 floor4 floor5 floor6))
(define my-state
(lighting-state (at ltruss6 (quote zoom) 5300/127)
(at ltruss6 (quote intensity) 100)
(at ltruss6 (quote colour) (make-colour-cmy 3500/127 0 0))
(at ltruss6 (quote pan) 306)
(at ltruss6 (quote tilt) 120)
(at rtruss1 (quote pan) 223)
(at rtruss1 (quote zoom) 5100/127)
(at rtruss1 (quote tilt) 120)
(at rtruss1 (quote colour) (make-colour-cmy 0 4100/127 3400/127))
(at rtruss1 (quote intensity) 100)))
;; Put a lighting state on a MIDI fader
(state-on-fader 19 my-state)
(define pb
(make-playback
#:cue-list-file "examples/show.qlist.scm"))
;; Set up MIDI controller buttons to run cues
(make-go-button pb 12
#:ready-note 20
#:pause-note 16)
(make-stop-button pb 24
#:ready-note 24)
(make-back-button pb 28
#:ready-note 28)
;; A second set of go/stop buttons, because this works well on my controller
(make-go-button pb 15
#:ready-note 23
#:pause-note 19)
(make-stop-button pb 27
#:ready-note 27)
(make-back-button pb 31
#:ready-note 31)
;; Set up some buttons for quick access to fixtures
(select-on-button 32 ltruss
#:ready-note 68)
(select-on-button 33 rtruss
#:ready-note 69)
(select-on-button 34 foh
#:ready-note 70)
(select-on-button 35 floor
#:ready-note 71)
;; Red button de-selects everything
(select-on-button 26 #f
#:ready-note 26)
(cut-to-cue-number! pb 0)
|
