diff options
| author | Thomas White <taw@physics.org> | 2021-04-18 18:08:24 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2021-04-18 18:08:24 +0200 |
| commit | c0399a0a1b4c309bbf6f39ea461687cd3e87a5e2 (patch) | |
| tree | 8ab28b92fcb02b610c3bed080ad327365152c7b2 | |
| parent | 0f9c0e4731024e1166bd12c1b463e6b0d24b97f0 (diff) | |
Update MIDI buttons
| -rw-r--r-- | examples/demo.scm | 20 | ||||
| -rw-r--r-- | guile/starlet/midi-control/faders.scm | 2 |
2 files changed, 13 insertions, 9 deletions
diff --git a/examples/demo.scm b/examples/demo.scm index 21149d8..648e8b8 100644 --- a/examples/demo.scm +++ b/examples/demo.scm @@ -276,12 +276,16 @@ ;; Set up some buttons for quick access to fixtures +(select-on-button 32 ltruss) +(select-on-button 33 rtruss) +(select-on-button 34 foh3) +(select-on-button 35 floor) +(send-note-on 68) +(send-note-on 69) +(send-note-on 70) +(send-note-on 71) + + +;; Red button de-selects everything (select-on-button 26 #f) -(select-on-button 36 ltruss) -(select-on-button 37 rtruss) -(select-on-button 38 foh3) -(select-on-button 39 floor) -;;(send-note-on 72) -(send-note-on 73) -(send-note-on 74) -(send-note-on 75) +(send-note-on 26) diff --git a/guile/starlet/midi-control/faders.scm b/guile/starlet/midi-control/faders.scm index f18356c..8b8eb2b 100644 --- a/guile/starlet/midi-control/faders.scm +++ b/guile/starlet/midi-control/faders.scm @@ -223,7 +223,7 @@ (define control-map (list - (list 'intensity 'fader 16 '(72 72)) + (list 'intensity 'fader 16 '(108 72)) (list 'pan 'jogwheel 0 124) (list 'tilt 'jogwheel 1 125) (list (colour-component-id 'cyan) 'fader 4 '(120 84)) |