diff options
Diffstat (limited to 'guile/starlet/midi-control/playback-buttons.scm')
-rw-r--r-- | guile/starlet/midi-control/playback-buttons.scm | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/guile/starlet/midi-control/playback-buttons.scm b/guile/starlet/midi-control/playback-buttons.scm new file mode 100644 index 0000000..a28293a --- /dev/null +++ b/guile/starlet/midi-control/playback-buttons.scm @@ -0,0 +1,26 @@ +(define-module (starlet midi-control playback-buttons) + #:use-module (starlet midi-control base) + #:use-module (starlet playback) + #:export (make-midi-playback-buttons)) + + +(define (make-midi-playback-buttons playback + chan + go-led-note + go-button-note + stop-led-note + stop-button-note) + (let ((go-led (make-midi-led #:channel chan + #:note-number go-led-note)) + (stop-led (make-midi-led #:channel chan + #:note-number stop-led-note))) + (set-midi-led! go-led #t) + (set-midi-led! stop-led #t) + (register-midi-note-callback! + #:channel chan + #:note-number go-button-note + #:func (lambda () (go! playback))) + (register-midi-note-callback! + #:channel chan + #:note-number stop-button-note + #:func (lambda () (display "Stop/back!\n"))))) |