From 800195398b0dc5f33344ef6d1ef16cd047ba5b2f Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sat, 9 Jan 2021 11:29:31 +0100 Subject: Add select-on-button --- guile/starlet/midi-control/button-utils.scm | 31 +++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 guile/starlet/midi-control/button-utils.scm (limited to 'guile/starlet/midi-control/button-utils.scm') diff --git a/guile/starlet/midi-control/button-utils.scm b/guile/starlet/midi-control/button-utils.scm new file mode 100644 index 0000000..008d2c5 --- /dev/null +++ b/guile/starlet/midi-control/button-utils.scm @@ -0,0 +1,31 @@ +(define-module (starlet midi-control button-utils) + #:use-module (starlet midi-control base) + #:use-module (starlet midi-control faders) + #:use-module (starlet playback) + #:export (make-go-button + make-stop-button + select-on-button)) + + +(define* (make-go-button pb button + #:key (channel #f)) + (register-midi-note-callback! + #:channel channel + #:note-number button + #:func (lambda () (go! pb)))) + + +(define* (make-stop-button pb button + #:key (channel #f)) + (register-midi-note-callback! + #:channel channel + #:note-number button + #:func (lambda () (display "Stop/back!\n")))) + + +(define* (select-on-button button fixture + #:key (channel #f)) + (register-midi-note-callback! + #:channel channel + #:note-number button + #:func (lambda () (sel fixture)))) -- cgit v1.2.3