diff options
| author | Thomas White <taw@bitwiz.me.uk> | 2020-12-29 22:23:51 +0100 |
|---|---|---|
| committer | Thomas White <taw@bitwiz.me.uk> | 2020-12-29 22:23:51 +0100 |
| commit | 4fde57ac712f2a199a03dc408044a717b1e29a00 (patch) | |
| tree | ab621cb5733473772fc63e184463402361eaac6e /shows | |
| parent | dba09268be532aba80e62a5c1e94d0b8c099b7cf (diff) | |
Simplify MIDI control interface
This removes the midi-led and midi-control classes, which only seemed to
be making things more complicated.
Diffstat (limited to 'shows')
| -rw-r--r-- | shows/demo-show/demo-show.scm | 24 |
1 files changed, 19 insertions, 5 deletions
diff --git a/shows/demo-show/demo-show.scm b/shows/demo-show/demo-show.scm index c463044..26db76d 100644 --- a/shows/demo-show/demo-show.scm +++ b/shows/demo-show/demo-show.scm @@ -21,13 +21,27 @@ (register-state! pb) (cut-to-cue-number! pb 0) +;; Start readout to OLA (start-ola-output) -(start-midi-control "/dev/snd/midiC1D0") -(all-notes-off! 14) -(make-midi-playback-buttons pb 14 20 12 24 24) -(make-midi-playback-buttons pb 14 23 15 27 27) -(on-fader 14 19 +;; Start MIDI control +(start-midi-control "/dev/snd/midiC1D0" + #:channel 14) + +;;;; Set up cue list go/stop buttons, and light up LEDs to show +(make-go-button pb 12) +(make-stop-button pb 24) +(send-note-on 20) +(send-note-on 24) + +;; A second set of go/stop buttons +(make-go-button pb 15) +(make-stop-button pb 27) +(send-note-on 23) +(send-note-on 27) + +;; Set up a fader for quick access to some working light +(on-fader 19 (lighting-state (at dim1 100) (at dim2 100) |