diff options
Diffstat (limited to 'share/scripts/_dump_midiregion.lua')
-rw-r--r-- | share/scripts/_dump_midiregion.lua | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/share/scripts/_dump_midiregion.lua b/share/scripts/_dump_midiregion.lua new file mode 100644 index 0000000000..0c62a56479 --- /dev/null +++ b/share/scripts/_dump_midiregion.lua @@ -0,0 +1,20 @@ +ardour { ["type"] = "Snippet", name = "Dump MIDI Region" } + +function factory () return function () + local sel = Editor:get_selection () + for r in sel.regions:regionlist ():iter () do + local mr = r:to_midiregion () + if mr:isnil () then goto next end + + print (r:name (), "Pos:", r:position (), "Start:", r:start ()) + local bfc = ARDOUR.BeatsSamplesConverter (Session:tempo_map (), r:position ()) + local nl = ARDOUR.LuaAPI.note_list (mr:model ()) + for n in nl:iter () do + print (" Note @", bfc:to (n:time ()), + ARDOUR.ParameterDescriptor.midi_note_name (n:note ()), + "Vel:", n:velocity ()) + end + print ("----") + ::next:: + end +end end |