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

Add DiskIOProc & Latency related Lua bindings & scripts

Browse source
This commit is contained in:
Robin Gareus 2017-09-28 04:25:50 +02:00
parent 2b20f30d81
commit 1339d42c78
3 changed files with 106 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

57
scripts/_dump_latency.lua
View file

@ -4,14 +4,59 @@ ardour { ["type"] = "Snippet", name = "Dump Latency",
}
function factory () return function ()
local all_procs = true
local show_ports = false
print (" -- Session --")
print ("Worst Output Latency: ", Session:worst_output_latency ())
print ("Worst Input Latency: ", Session:worst_input_latency ())
print ("Worst Track Latency: ", Session:worst_track_latency ())
print ("Worst Playback Latency:", Session:worst_playback_latency ())
print (" -- Tracks --")
for t in Session:get_tracks ():iter () do
print (string.format ("%-24s roll-delay: %4d proc: %4d io: %4d",
t:name(), t:initial_delay (), t:signal_latency (), t:output():latency()))
print ("Worst Track Latency: ", Session:worst_route_latency ())
print ("Worst Latency Preroll: ", Session:worst_latency_preroll ())
print (" -- Routes --")
for t in Session:get_routes ():iter () do
print (string.format ("%-30s signal-latency: %4d align: %4d play: %4d || in: %4d out: %4d",
t:name(),
t:signal_latency (), t:playback_latency (false), t:playback_latency (true),
t:input():latency(), t:output():latency()))
local i = 0
while true do
local proc = t:nth_processor (i)
if proc:isnil () then break end
if all_procs and not proc:to_send():isnil () then
print (string.format (" * %-27s L: %4d in: %4d out: %4d capt: %4d play %4d DLY-SRC: %4d DLY-DST: %4d",
string.sub (proc:name(), 0, 27) , proc:signal_latency(),
proc:input_latency(), proc:output_latency(),
proc:capture_offset(), proc:playback_offset(),
proc:to_send():get_delay_in(), proc:to_send():get_delay_out()
))
elseif all_procs or not proc:to_diskioprocessor():isnil () then
print (string.format (" * %-27s L: %4d in: %4d out: %4d capt: %4d play %4d",
string.sub (proc:name(), 0, 27) , proc:signal_latency(),
proc:input_latency(), proc:output_latency(),
proc:capture_offset(), proc:playback_offset()
))
end
i = i + 1
end
end
if show_ports then
print (" -- Ports -- (latencies: port, priv, pub)")
local a = Session:engine()
_, t = a:get_ports (ARDOUR.DataType("audio"), ARDOUR.PortList())
-- table 't' holds argument references. t[2] is the PortList
for p in t[2]:iter() do
local lp = p:get_connected_latency_range (ARDOUR.LatencyRange(), true)
local lc = p:get_connected_latency_range (ARDOUR.LatencyRange(), false)
local ppl = p:private_latency_range (true)
local pcl = p:private_latency_range (false)
local bpl = p:public_latency_range (true)
local bcl = p:public_latency_range (false)
print (string.format ("%-30s play: (%4d, %4d) (%4d, %4d) (%4d, %4d) capt: (%4d, %4d) (%4d, %4d) (%4d, %4d)",
p:name(),
lp[1].min, lp[1].max, ppl.min, ppl.max, bpl.min, bpl.max,
lc[1].min, lc[1].max, pcl.min, pcl.max, bcl.min, bcl.max))
end
end
end end

8
scripts/s_portengine.lua
View file

@ -1,12 +1,14 @@
ardour { ["type"] = "Snippet", name = "portengine" }
function factory () return function ()
a = Session:engine()
local a = Session:engine()
print ("----- Port objects from Ardour's engine ----");
_, t = a:get_ports (ARDOUR.DataType("audio"), ARDOUR.PortList())
-- table 't' holds argument references. t[2] is the PortList
for p in t[2]:iter() do
print (p:name())
local lp = p:get_connected_latency_range (ARDOUR.LatencyRange(), true)
local lc = p:get_connected_latency_range (ARDOUR.LatencyRange(), false)
print (p:name(), " -- Play lat.", lp[1].min, lp[1].max, "Capt lat.", lc[1].min, lc[1].max)
end
print ("----- Port names queries from the backend ----");
@ -20,7 +22,7 @@ function factory () return function ()
_, t = a:get_backend_ports ("", ARDOUR.DataType("audio"), ARDOUR.PortFlags.IsOutput, C.StringVector())
for n in t[4]:iter() do
local printed_name = false;
_, ct = a:get_connections (n, C.StringVector())
local _, ct = a:get_connections (n, C.StringVector())
for c in ct[2]:iter() do
if (not printed_name) then
printed_name = true;