13
0
livetrax/scripts/_dsp_plugin_communication.lua

79 lines
2.0 KiB
Lua

ardour { ["type"] = "dsp", name = "DSP Plugin Communication" }
function dsp_ioconfig () return { { audio_in = -1, audio_out = -1} } end
function dsp_init (rate)
self:shmem ():allocate (1)
end
function dsp_configure (ins, outs)
end
function dsp_params ()
return
{
{ ["type"] = "output", name = "self", min = 0, max = 8},
{ ["type"] = "output", name = "gain", min = 0, max = 2},
}
end
function dsp_run (ins, outs, n_samples)
local ctrl = CtrlPorts:array ()
local route = self:route ()
local shmem = self:shmem ()
-- count plugins
local i = 0;
local l = 0;
local s = -1; -- 'self' this plugin instance
-- iterate overall plugins on this track,
-- find all LuaProc instances of this plugin (unique_id),
repeat
local proc = route:nth_plugin (i)
if not proc:isnil ()
and not proc:to_insert():plugin (0):to_luaproc():isnil ()
and proc:to_insert():plugin (0):unique_id () == self:unique_id () then
if (self:id ():to_s() == proc:to_insert():plugin (0):id ():to_s()) then
s = l; -- *this* plugin instance
end
if l == 0 then
-- use shared-memory are of the first plugin instance for all.
--
-- (the first plugin writes there, all later plugins only read,
-- plugins on a track are executed in order, in the same thread)
shmem = proc:to_insert():plugin (0):to_luaproc():shmem ()
end
l = l + 1 -- count total instances of this plugin-type
end
i = i + 1
until proc:isnil ()
assert (s >= 0)
ctrl[1] = s;
-- calculate digital peak of all channels
local peak = 0
for c = 1,#ins do
if not ins[c]:sameinstance (outs[c]) then
ARDOUR.DSP.copy_vector (outs[c], ins[c], n_samples)
end
peak = ARDOUR.DSP.compute_peak(outs[c], n_samples, peak)
end
-- actual inter-plugin communication
local a = shmem:to_float (0):array ()
if s == 0 then
-- the first plugin saves the peak
a[0] = peak
ctrl[2] = -1
else
-- all later plugins display the difference to the first.
if (a[0] == 0) then
ctrl[2] = 1
else
ctrl[2] = peak / a[0]
end
end
end