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

First round of Lua script API updates

Browse source
This commit is contained in:
Robin Gareus 2022-09-27 05:06:13 +02:00
parent 395bf4a650
commit 30a92894fc
No known key found for this signature in database
GPG key ID: A090BCE02CF57F04
8 changed files with 34 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

2
share/scripts/_stereo_to_mono.lua
View file

@ -42,7 +42,7 @@ function factory (params) return function ()
local plc = 1 local plc = 1
for nr in rv[1]:iter () do for nr in rv[1]:iter () do
local pl = newtracks:table()[plc]:playlist() local pl = newtracks:table()[plc]:playlist()
pl:add_region (nr, r:position(), 1, false, 0, 0, false) pl:add_region (nr, r:position(), 1, false)
plc = plc + 1 plc = plc + 1
end end
end end

2
share/scripts/bounce_replace.lua
View file

@ -39,7 +39,7 @@ function factory (params) return function ()
playlist:to_stateful ():clear_changes () playlist:to_stateful ():clear_changes ()
-- bounce the region with processing -- bounce the region with processing
local region = track:bounce_range (r:position (), r:position() + r:length (), ARDOUR.InterThreadInfo (), track:main_outs (), false, ""); local region = track:bounce_range (r:position ():samples(), (r:position() + r:length ()):samples(), ARDOUR.InterThreadInfo (), track:main_outs (), false, "");
-- remove old region.. -- remove old region..
playlist:remove_region (r); playlist:remove_region (r);

2
share/scripts/collapse_playlists.lua
View file

@ -40,7 +40,7 @@ function factory (params) return function ()
-- for each region of the playlist -- for each region of the playlist
for r in p:region_list():iter() do for r in p:region_list():iter() do
-- add it to the current playlist -- add it to the current playlist
playlist:add_region (r, r:position(), 1, false, 0, 0, false) playlist:add_region (r, r:position(), 1, false)
end end
end end
end end

2
share/scripts/rubberband_swing.lua
View file

@ -138,7 +138,7 @@ function factory () return function ()
local playlist = track:playlist () local playlist = track:playlist ()
playlist:to_stateful ():clear_changes () -- prepare undo playlist:to_stateful ():clear_changes () -- prepare undo
playlist:remove_region (r) playlist:remove_region (r)
playlist:add_region (nar, r:position (), 1, false, 0, 0, false) playlist:add_region (nar, r:position (), 1, false)
-- create a diff of the performed work, add it to the session's undo stack -- create a diff of the performed work, add it to the session's undo stack
-- and check if it is not empty -- and check if it is not empty
if not Session:add_stateful_diff_command (playlist:to_statefuldestructible ()):empty () then if not Session:add_stateful_diff_command (playlist:to_statefuldestructible ()):empty () then

4
share/scripts/s_set_region_fades.lua
View file

@ -26,8 +26,8 @@ function factory () return function ()
-- fade in/out for 500 msec, or half the region-length, whatever is shorter -- fade in/out for 500 msec, or half the region-length, whatever is shorter
local fadelen = .5 * sr local fadelen = .5 * sr
if fadelen > r:length () / 2 then if fadelen > r:length ():samples () / 2 then
fadelen = r:length () / 2 fadelen = r:length ():samples () / 2
end end
-- https://manual.ardour.org/lua-scripting/class_reference/#ARDOUR.FadeShape -- https://manual.ardour.org/lua-scripting/class_reference/#ARDOUR.FadeShape

13
share/scripts/s_tempo_map.lua
View file

@ -3,14 +3,15 @@ ardour { ["type"] = "Snippet", name = "tempo map examples" }
function factory () return function () function factory () return function ()
-- query BPM at 00:00:10:00 -- query BPM at 00:00:10:00
local tp = Temporal.timepos_t.from_superclock (Temporal.superclock_ticks_per_second () * Session:nominal_sample_rate () * 10) local tp = Temporal.timepos_t (Session:nominal_sample_rate () * 10)
local tm = Temporal.TempoMap.use () local tm = Temporal.TempoMap.read ()
print (tm:tempo_at (tp):quarter_notes_per_minute ()) print (tm:quarters_per_minute_at (tp))
tm = nil
-- set initial tempo to 140, ramp to 120 over the first 4/4 bar, then continue at BPM 80 -- set initial tempo to 140, ramp to 120 over the first 4/4 bar, then continue at BPM 80
Temporal.TempoMap.fetch_writable () local tm = Temporal.TempoMap.fetch_writable ()
local tm = Temporal.TempoMap.use () tm:set_tempo (Temporal.Tempo (140, 120, 4), Temporal.timepos_t (0))
tm:set_tempo (Temporal.Tempo (140, 120, 4), Temporal.timepos_t ()) tm:set_tempo (Temporal.Tempo (120, 80, 4), Temporal.timepos_t.from_ticks (Temporal.ticks_per_beat * 4))
tm:set_tempo (Temporal.Tempo (80, 80, 4), Temporal.timepos_t.from_ticks (Temporal.ticks_per_beat * 4)) tm:set_tempo (Temporal.Tempo (80, 80, 4), Temporal.timepos_t.from_ticks (Temporal.ticks_per_beat * 4))
Temporal.TempoMap.update (tm) Temporal.TempoMap.update (tm)
tm = nil tm = nil

6
share/scripts/tomsloop.lua
View file

@ -242,8 +242,8 @@ function factory (params) return function ()
playlist:to_stateful ():clear_changes () playlist:to_stateful ():clear_changes ()
-- do the actual work -- do the actual work
local region = track:bounce_range (loop:start (), loop:_end (), itt, proc, false, "") local region = track:bounce_range (loop:start ():samples(), loop:_end ():samples(), itt, proc, false, "")
playlist:add_region (region, playhead, n_paste, false, 0, 0, false) playlist:add_region (region, Temporal.timepos_t (playhead), n_paste, false)
n_regions_created = n_regions_created + 1 n_regions_created = n_regions_created + 1
@ -258,7 +258,7 @@ function factory (params) return function ()
--advance playhead so it's just after the newly added regions --advance playhead so it's just after the newly added regions
if n_regions_created > 0 then if n_regions_created > 0 then
Session:request_locate (playhead + loop:length() * n_paste, false, ARDOUR.LocateTransportDisposition.MustStop, ARDOUR.TransportRequestSource.TRS_UI) Session:request_locate (playhead + loop:length():samples() * n_paste, false, ARDOUR.LocateTransportDisposition.MustStop, ARDOUR.TransportRequestSource.TRS_UI)
end end
-- all done, commit the combined Undo Operation -- all done, commit the combined Undo Operation

34
share/scripts/vamp_audio_to_midi.lua
View file

@ -16,7 +16,7 @@ The plugin works best at 44.1KHz input sample rate, and is tuned for piano and g
function factory () return function () function factory () return function ()
local sel = Editor:get_selection () local sel = Editor:get_selection ()
local sr = Session:nominal_sample_rate () local sr = Session:nominal_sample_rate ()
local tm = Session:tempo_map () local tm = Temporal.TempoMap.read ()
local vamp = ARDOUR.LuaAPI.Vamp ("libardourvampplugins:qm-transcription", sr) local vamp = ARDOUR.LuaAPI.Vamp ("libardourvampplugins:qm-transcription", sr)
local midi_region = nil local midi_region = nil
local audio_regions = {} local audio_regions = {}
@ -25,18 +25,19 @@ function factory () return function ()
local max_pos = 0 local max_pos = 0
local cur_pos = 0 local cur_pos = 0
for r in sel.regions:regionlist ():iter () do for r in sel.regions:regionlist ():iter () do
if r:to_midiregion():isnil() then local ar = r:to_audioregion()
local st = r:position() if not ar:isnil() then
local ln = r:length() local st = r:position():samples()
local et = st + ln local ln = r:length():samples()
local et = st + ln;
if st < start_time then if st < start_time then
start_time = st start_time = st
end end
if et > end_time then if et > end_time then
end_time = et end_time = et
end end
table.insert(audio_regions, r) table.insert(audio_regions, ar)
max_pos = max_pos + r:to_readable ():readable_length () max_pos = max_pos + ar:to_readable ():readable_length ()
else else
midi_region = r:to_midiregion() midi_region = r:to_midiregion()
end end
@ -51,8 +52,8 @@ function factory () return function ()
return return
end end
midi_region:set_initial_position(start_time) midi_region:set_initial_position (Temporal.timepos_t (start_time))
midi_region:set_length(end_time - start_time, 0) midi_region:set_length (Temporal.timecnt_t (end_time - start_time))
local pdialog = LuaDialog.ProgressWindow ("Audio to MIDI", true) local pdialog = LuaDialog.ProgressWindow ("Audio to MIDI", true)
function progress (_, pos) function progress (_, pos)
@ -61,7 +62,7 @@ function factory () return function ()
for i,ar in pairs(audio_regions) do for i,ar in pairs(audio_regions) do
local a_off = ar:position () local a_off = ar:position ()
local b_off = midi_region:quarter_note () - midi_region:start_beats () local b_off = tm:quarters_at (midi_region:position ());
vamp:analyze (ar:to_readable (), 0, progress) vamp:analyze (ar:to_readable (), 0, progress)
@ -77,15 +78,16 @@ function factory () return function ()
local mm = midi_region:midi_source(0):model() local mm = midi_region:midi_source(0):model()
local midi_command = mm:new_note_diff_command ("Audio2Midi") local midi_command = mm:new_note_diff_command ("Audio2Midi")
for f in fl:iter () do for f in fl:iter () do
local ft = Vamp.RealTime.realTime2Frame (f.timestamp, sr) local ft = Temporal.timecnt_t (Vamp.RealTime.realTime2Frame (f.timestamp, sr))
local fd = Vamp.RealTime.realTime2Frame (f.duration, sr) local fd = Temporal.timecnt_t (Vamp.RealTime.realTime2Frame (f.duration, sr))
local fn = f.values:at (0) local fn = f.values:at (0)
local bs = tm:exact_qn_at_sample (a_off + ft, 0) local bs = tm:quarters_at (a_off + ft, 0)
local be = tm:exact_qn_at_sample (a_off + ft + fd, 0) local be = tm:quarters_at (a_off + ft + fd, 0)
print ("N", bs, be, fn + 1)
local pos = Evoral.Beats (bs - b_off) local pos = bs - b_off
local len = Evoral.Beats (be - bs) local len = 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