diff options
| -rw-r--r-- | intervals.lua | 45 |
1 files changed, 29 insertions, 16 deletions
diff --git a/intervals.lua b/intervals.lua index 2b402d5..cd61424 100644 --- a/intervals.lua +++ b/intervals.lua @@ -491,22 +491,6 @@ function play(note, vel) end function init() - -- initialize midi - -- TODO configure vport - intervals_state.midi_in = midi.connect(1) - intervals_state.midi_in.event = function (a) - b = midi.to_msg(a) - -- monitor - if b.type == "note_on" then - play_start(b.note, b.vel) - end - if b.type == "note_off" or b.vel == 0 then - play_stop(b.note, b.vel) - end - state_call(intervals_state, "midi", {b}) - end - intervals_state.midi_out = midi.connect(2) - -- TODO save params:add({ type = "option", @@ -558,6 +542,35 @@ function init() action = function(value) intervals_state.note_vel = value end}) + params:add({ + type = "control", + id = "midi_in_vport", + name = "Midi in vport", + default=60, + controlspec = ControlSpec.new(1, 4, 'lin', 1, 1), + action = function(value) + intervals_state.midi_in = midi.connect(value) + intervals_state.midi_in.event = function (a) + b = midi.to_msg(a) + -- monitor + if b.type == "note_on" then + play_start(b.note, b.vel) + end + if b.type == "note_off" or b.vel == 0 then + play_stop(b.note, b.vel) + end + state_call(intervals_state, "midi", {b}) + end + end}) + params:add({ + type = "control", + id = "midi_out_vport", + name = "Midi out vport", + default=60, + controlspec = ControlSpec.new(1, 4, 'lin', 1, 2), + action = function(value) + intervals_state.midi_out = midi.connect(value) + end}) params:bang() play(60) |