blob: a74bd302491a12602c18c374b0b11032ec76ba74 (
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 (taw controls)
#:use-module (starlet midi-control base)
#:use-module (starlet midi-control button-utils)
#:use-module (starlet midi-control faders)
#:export (taw-playback-controls))
(define (taw-playback-controls controller pb)
(make-go-button controller pb 12
#:ready-note 20
#:pause-note 16)
(make-stop-button controller pb 24
#:ready-note 24)
(make-back-button controller pb 28
#:ready-note 28)
(make-go-button controller pb 15
#:ready-note 23
#:pause-note 19)
(make-stop-button controller pb 27
#:ready-note 27)
(make-back-button controller pb 31
#:ready-note 31))
|