blob: f0add164769dee251d91ffad52625f3e3ef66847 (
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
27
28
29
30
31
|
(define-module (starlet midi-control button-utils)
#:use-module (starlet midi-control base)
#:use-module (starlet base)
#: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))))
|
