diff options
| author | Thomas White <taw@physics.org> | 2020-08-18 18:13:17 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2020-08-18 18:13:17 +0200 |
| commit | b71668d0362df473d9081f4deaf7d2aa758ba177 (patch) | |
| tree | 5c9df523c28e8ad196f85f39b49b921a6e4ad217 /examples | |
| parent | 6df3b4e050b1e8b00506f20c0c0cf4400a7840e6 (diff) | |
Add MIDI note callbacks
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/demo.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/examples/demo.scm b/examples/demo.scm index de25680..57c8257 100644 --- a/examples/demo.scm +++ b/examples/demo.scm @@ -100,3 +100,10 @@ (register-state! pb) ;; Jump to zero (blackout) cue +(cut-to-cue-number! pb 0) + +;; Set up a "go" button +(register-midi-note-callback! + #:channel 14 + #:note-number #xc + #:func (lambda () (go! pb))) |