From b71668d0362df473d9081f4deaf7d2aa758ba177 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Tue, 18 Aug 2020 18:13:17 +0200 Subject: Add MIDI note callbacks --- examples/demo.scm | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'examples') 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))) -- cgit v1.2.3