smokephil/ardour
1
0
Fork 0
mirror of https://github.com/Ardour/ardour.git synced 2025-12-16 11:46:25 +01:00
Code Issues Projects Releases Wiki Activity

add BBT offsets to Audio->MIDI script

Browse source
This commit is contained in:
Robin Gareus 2016-10-07 16:33:50 +02:00
parent 39653830dc
commit d6453cf534
1 changed files with 10 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

21
scripts/_vamp_audio_to_midi.lua
View file

@ -1,13 +1,12 @@
ardour { ["type"] = "EditorAction", name = "Vamp Audio to MIDI" } ardour { ["type"] = "EditorAction", name = "Vamp Audio to MIDI",
description = "analyze audio from selected audio region to selected midi region" }
function factory () return function () function factory () return function ()
local sel = Editor:get_selection () local sel = Editor:get_selection ()
local sr = Session:nominal_frame_rate () local sr = Session:nominal_frame_rate ()
local tm = Session:tempo_map () local tm = Session:tempo_map ()
local vamp = ARDOUR.LuaAPI.Vamp ("libardourvampplugins:qm-transcription", sr) local vamp = ARDOUR.LuaAPI.Vamp ("libardourvampplugins:qm-transcription", sr)
local ar, mr
local ar = nil
local mr = nil
for r in sel.regions:regionlist ():iter () do for r in sel.regions:regionlist ():iter () do
if r:to_midiregion():isnil() then if r:to_midiregion():isnil() then
ar = r ar = r
@ -15,8 +14,11 @@ function factory () return function ()
mr = r:to_midiregion() mr = r:to_midiregion()
end end
end end
-- analyze audio from selected audio region to selected midi region
assert (ar and mr) assert (ar and mr)
assert (mr:position () >= mr:start ())
local a_off = ar:position ()
local m_off = tm:exact_beat_at_frame (mr:position () - mr:start (), 0)
vamp:analyze (ar:to_readable (), 0, nil) vamp:analyze (ar:to_readable (), 0, nil)
local fl = vamp:plugin ():getRemainingFeatures ():at (0) local fl = vamp:plugin ():getRemainingFeatures ():at (0)
@ -27,16 +29,13 @@ function factory () return function ()
local ft = Vamp.RealTime.realTime2Frame (f.timestamp, sr) local ft = Vamp.RealTime.realTime2Frame (f.timestamp, sr)
local fd = Vamp.RealTime.realTime2Frame (f.duration, sr) local fd = Vamp.RealTime.realTime2Frame (f.duration, sr)
local fn = f.values:at (0) local fn = f.values:at (0)
local bs = tm:exact_beat_at_frame (a_off + ft, 0)
local be = tm:exact_beat_at_frame (a_off + ft + fd, 0)
local bs = tm:exact_beat_at_frame (ft, 0) local pos = Evoral.Beats (bs - m_off)
local be = tm:exact_beat_at_frame (ft + fd, 0)
local pos = Evoral.Beats (bs)
local len = Evoral.Beats (be - bs) local len = Evoral.Beats (be - bs)
local note = ARDOUR.LuaAPI.new_noteptr (1, pos, len, fn + 1, 0x7f) local note = ARDOUR.LuaAPI.new_noteptr (1, pos, len, fn + 1, 0x7f)
midi_command:add (note) midi_command:add (note)
end end
mm:apply_command (Session, midi_command) mm:apply_command (Session, midi_command)
end end