From d9f1fde46f72f729348ec3c6b96b1971e4bf2760 Mon Sep 17 00:00:00 2001 From: Thomas White Date: Sat, 23 Apr 2022 16:58:14 +0200 Subject: Add (taw controls) --- guile/taw/controls.scm | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 guile/taw/controls.scm 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)) + + -- cgit v1.2.3