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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
import Const, Op from require 'core'
import RtMidiIn, RtMidiOut, RtMidi from require 'luartmidi'
import band, rshift from require 'bit32'
MIDI = {
[0x9]: 'note-on'
[0x8]: 'note-off'
[0xa]: 'after-key'
[0xd]: 'after-channel'
[0xb]: 'control-change'
[0xe]: 'pitch-bend'
[0xc]: 'program-change'
}
class Dispatcher
new: (name) =>
@input = RtMidiIn RtMidi.Api.UNIX_JACK
id = nil
for port=1,@input\getportcount!
if name == @input\getportname port
id = port
break
@input\openport id
@listeners = {}
tick: =>
while true
delta, bytes = @input\getmessage!
break unless delta
{ status, a, b } = bytes
chan = band status, 0xf
status = MIDI[rshift status, 4]
@dispatch status, chan, a, b
dispatch: (status, chan, a, b) =>
L\trace "dispatching MIDI event #{status} CH#{chan} #{a} #{b}"
for mask, handler in pairs @listeners
match = true
match and= status == mask.status if mask.status
match and= chan == mask.chan if mask.chan
match and= a == mask.a if mask.a
if match
handler status, chan, a, b
-- register a handler
-- mask is { :status, :chan, :a } (all keys optional)
attach: (mask, handler) =>
@listeners[mask] = handler
detach: (mask) =>
@listeners[mask] = nil
dispatch = Dispatcher 'system:midi_capture_2'
class gate extends Op
@doc: "(midi/gate note [chan]) - gate from note-on and note-off messages"
new: (...) =>
super ...
destroy: =>
dispatch\detach @mask if @mask
setup: (note, chan) =>
dispatch\detach @mask if @mask
note = note\getc 'num'
chan = chan and chan\getc 'num'
@value = false
@mask = dispatch\attach { :chan, a: note }, (status) ->
if status == 'note-on'
@value = true
else if status == 'note-off'
@value = false
update: (dt) => dispatch\tick!
class cc extends Op
@doc: "(midi/cc cc [chan [range]]) - MIDI CC to number
range can be one of:
- 'raw' [ 0 - 128[
- 'uni' [ 0 - 1[ (default)
- 'bip' [-1 - 1[
- 'rad' [ 0 - tau[
- (num) [ 0 - num["
destroy: =>
dispatch\detach @mask if @mask
setup: (cc, chan, @range=Const.str'uni') =>
dispatch\detach @mask if @mask
cc = cc\getc 'num'
chan = chan and chan\getc 'num'
@mask = dispatch\attach { status: 'control-change', :chan, a: cc }, (_, _, _, val) -> @apply val
update: (dt) => dispatch\tick!
apply: (val) =>
@value = if @range.type == 'str'
switch @range\get!
when 'raw' then val
when 'uni' then val / 128
when 'bip' then val / 64 - 1
when 'rad' then val / 64 * math.pi
else
error "unknown range #{@range}"
elseif @range.type == 'num'
val / 128 * @range\get!
else
error "range has to be a string or number"
{
:gate
:cc
}
|
