scripts/midifilter.lua

   1 ardour {
   2         ["type"]    = "dsp",
   3         name        = "Midi Filter",
   4         category    = "Example", -- "Utility"
   5         license     = "MIT",
   6         author      = "Ardour Lua Task Force",
   7         description = [[An Example Midi Filter for prototyping.]]
   8 }
   9
  10 function dsp_ioconfig ()
  11         return { { audio_in = 0, audio_out = 0}, }
  12 end
  13
  14 function dsp_has_midi_input () return true end
  15 function dsp_has_midi_output () return true end
  16
  17 function dsp_run (_, _, n_samples)
  18         assert (type(midiin) == "table")
  19         assert (type(midiout) == "table")
  20         local cnt = 1;
  21
  22         function tx_midi (time, data)
  23                 midiout[cnt] = {}
  24                 midiout[cnt]["time"] = time;
  25                 midiout[cnt]["data"] = data;
  26                 cnt = cnt + 1;
  27         end
  28
  29         -- for each incoming midi event
  30         for _,b in pairs (midiin) do
  31                 local t = b["time"] -- t = [ 1 .. n_samples ]
  32                 local d = b["data"] -- get midi-event
  33
  34                 if (#d == 3 and bit32.band (d[1], 240) == 144) then -- note on
  35                         tx_midi (t, d)
  36                 end
  37                 if (#d == 3 and bit32.band (d[1], 240) == 128) then -- note off
  38                         tx_midi (t, d)
  39                 end
  40         end
  41 end