blob: 06658e367e505cdb04dadf8bdc56306dd6f2c6ef (
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
|
(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)))
|