aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThomas White <taw@physics.org>2023-06-15 22:35:22 +0200
committerThomas White <taw@physics.org>2023-06-15 22:35:22 +0200
commitcc7f7c6a1557816f4b138a80132fbbc62b933a2e (patch)
tree4bb52e62e8429c34f423ab78e55e2e3ac5a7c89e
parent1d6f430b10f90b42220125af98829b3ddbe1eed2 (diff)
Remove taw/controls.scm
Completely out of date.
-rw-r--r--guile/taw/controls.scm54
1 files changed, 0 insertions, 54 deletions
diff --git a/guile/taw/controls.scm b/guile/taw/controls.scm
deleted file mode 100644
index 06658e3..0000000
--- a/guile/taw/controls.scm
+++ /dev/null
@@ -1,54 +0,0 @@
-(define-module (taw controls)
- #:use-module (starlet attributes)
- #:use-module (starlet playback)
- #:use-module (starlet colours)
- #:use-module (starlet midi-control base)
- #:use-module (starlet midi-control button-utils)
- #:use-module (starlet midi-control faders)
- #:export (taw-playback-controls
- taw-selection-controls))
-
-
-(define (taw-playback-controls controller pb)
-
- (register-midi-note-callback!
- controller
- #:note-number 25
- #:func (lambda ()
- (reload-cue-list! pb)
- (reassert-current-cue! pb)))
-
- (send-note-on controller 25)
-
- (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))
-
-
-(define (taw-selection-controls controller)
-
- ;; Red button de-selects everything
- (select-on-button controller 26 #f
- #:ready-note 26)
-
- ;; My control map
- (set-midi-control-map!
- controller
- (fader 16 intensity #:congruent 108 #:incongruent 72)
- (jogwheel 0 intensity #:active 124)
- (fader 4 (colour-component-id 'cyan) #:congruent 120 #:incongruent 84)
- (fader 5 (colour-component-id 'magenta) #:congruent 121 #:incongruent 85)
- (fader 6 (colour-component-id 'yellow) #:congruent 122 #:incongruent 86)
- (fader 7 colour-temperature #:congruent 123 #:incongruent 87)))