blob: a28293aa55468a70ca7701c82101b584965fd413 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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")))))
|