diff options
-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)) |