Add a Lua script to send multiple tracks to an aux-bus.
This commit is contained in:
parent
da8f49829f
commit
44852aa529
43
scripts/send_to_bus.lua
Normal file
43
scripts/send_to_bus.lua
Normal file
|
@ -0,0 +1,43 @@
|
||||||
|
ardour { ["type"] = "EditorAction", name = "Send Tracks to Bus",
|
||||||
|
license = "MIT",
|
||||||
|
author = "Ardour Team",
|
||||||
|
description = [[Create a Bus and add aux-sends from all selected tracks]]
|
||||||
|
}
|
||||||
|
|
||||||
|
function factory () return function ()
|
||||||
|
-- find number of channels to use for the new bus, follow master-bus' inputs
|
||||||
|
local chn = 2
|
||||||
|
local mst = Session:master_out();
|
||||||
|
if not mst:isnil() then
|
||||||
|
chn = mst:n_inputs():n_audio()
|
||||||
|
end
|
||||||
|
mst = nil -- explicitly drop reference
|
||||||
|
|
||||||
|
local sel = Editor:get_selection () -- get selection
|
||||||
|
local tracks = ARDOUR.RouteListPtr() -- create a new list
|
||||||
|
|
||||||
|
-- find selected *tracks*, add to tracks list
|
||||||
|
for r in sel.tracks:routelist ():iter () do
|
||||||
|
if r:to_track():isnil() then
|
||||||
|
goto next
|
||||||
|
end
|
||||||
|
tracks:push_back (r)
|
||||||
|
::next::
|
||||||
|
end
|
||||||
|
|
||||||
|
if tracks:size() > 0 then
|
||||||
|
local bus = Session:new_audio_route (chn, chn, nil, 1, "", ARDOUR.PresentationInfo.Flag.AudioBus, ARDOUR.PresentationInfo.max_order)
|
||||||
|
if bus:size () > 0 then
|
||||||
|
Session:add_internal_sends (bus:front(), ARDOUR.Placement.PostFader, tracks);
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end end
|
||||||
|
|
||||||
|
function icon (params) return function (ctx, width, height, fg)
|
||||||
|
local txt = Cairo.PangoLayout (ctx, "ArdourMono ".. math.ceil(math.min (width, height) * .5) .. "px")
|
||||||
|
txt:set_text ("\u{2192}B") -- "->B"
|
||||||
|
local tw, th = txt:get_pixel_size ()
|
||||||
|
ctx:move_to (.5 * (width - tw), .5 * (height - th))
|
||||||
|
ctx:set_source_rgba (ARDOUR.LuaAPI.color_to_rgba (fg))
|
||||||
|
txt:show_in_cairo_context (ctx)
|
||||||
|
end end
|
Loading…
Reference in New Issue
Block a user