Add (taw controls)

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))
+
+