1ardour { 2 ["type"] = "dsp", 3 name = "MIDI Note Mapper", 4 category = "Utility", 5 license = "MIT", 6 author = "Alby Musaelian", 7 description = [[Map arbitrary MIDI notes to others. Affects Note On/Off and polyphonic key pressure. Note that if a single note is mapped multiple times, the last mapping wins (MIDI events are never duplicated).]] 8} 9 10-- The number of remapping pairs to allow. Increasing this (at least in theory) 11-- decreases performace, so it's set fairly low as a default. The user can 12-- increase this if they have a need to. 13N_REMAPINGS = 10 14 15OFF_NOTE = -1 16 17function dsp_ioconfig () 18 return { { midi_in = 1, midi_out = 1, audio_in = 0, audio_out = 0}, } 19end 20 21 22function dsp_params () 23 24 local map_scalepoints = {} 25 map_scalepoints["None"] = OFF_NOTE 26 for note=0,127 do 27 local name = ARDOUR.ParameterDescriptor.midi_note_name(note) 28 map_scalepoints[string.format("%03d (%s)", note, name)] = note 29 end 30 31 local map_params = {} 32 33 i = 1 34 for mapnum = 1,N_REMAPINGS do 35 -- From and to 36 for _,name in pairs({"| #" .. mapnum .. " Map note", "|__ to"}) do 37 map_params[i] = { 38 ["type"] = "input", 39 name = name, 40 min = -1, 41 max = 127, 42 default = OFF_NOTE, 43 integer = true, 44 enum = true, 45 scalepoints = map_scalepoints 46 } 47 i = i + 1 48 end 49 end 50 51 return map_params 52end 53 54function dsp_run (_, _, n_samples) 55 assert (type(midiin) == "table") 56 assert (type(midiout) == "table") 57 local cnt = 1; 58 59 function tx_midi (time, data) 60 midiout[cnt] = {} 61 midiout[cnt]["time"] = time; 62 midiout[cnt]["data"] = data; 63 cnt = cnt + 1; 64 end 65 66 -- We build the translation table every buffer because, as far as I can tell, 67 -- there's no way to only rebuild it when the parameters have changed. 68 -- As a result, it has to be updated every buffer for the parameters to have 69 -- any effect. 70 71 -- Restore translation table 72 local translation_table = {} 73 local ctrl = CtrlPorts:array() 74 for i=1,N_REMAPINGS*2,2 do 75 if not (ctrl[i] == OFF_NOTE) then 76 translation_table[ctrl[i]] = ctrl[i + 1] 77 end 78 end 79 80 -- for each incoming midi event 81 for _,b in pairs (midiin) do 82 local t = b["time"] -- t = [ 1 .. n_samples ] 83 local d = b["data"] -- get midi-event 84 local event_type 85 if #d == 0 then event_type = -1 else event_type = d[1] >> 4 end 86 87 if (#d == 3) and (event_type == 9 or event_type == 8 or event_type == 10) then -- note on, note off, poly. afterpressure 88 -- Do the mapping - 2 is note byte for these types 89 d[2] = translation_table[d[2]] or d[2] 90 if not (d[2] == OFF_NOTE) then 91 tx_midi (t, d) 92 end 93 else 94 tx_midi (t, d) 95 end 96 end 97end 98