diff options
author | Thomas White <taw@physics.org> | 2022-04-23 16:58:14 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2022-04-23 16:58:14 +0200 |
commit | d9f1fde46f72f729348ec3c6b96b1971e4bf2760 (patch) | |
tree | 15cbcefd21b27d4305278be3ff7f17b98703e55a /guile/taw | |
parent | 8f4186b42dbffbaf461a2b9c3cbcaf6b4c4cadd9 (diff) |
Add (taw controls)
Diffstat (limited to 'guile/taw')
-rw-r--r-- | guile/taw/controls.scm | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/guile/taw/controls.scm b/guile/taw/controls.scm new file mode 100644 index 0000000..a74bd30 --- /dev/null +++ b/guile/taw/controls.scm @@ -0,0 +1,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)) + + |