1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
|
ardour {
["type"] = "EditorAction",
name = "Mixer Store",
author = "Ardour Lua Taskforce",
description = [[Stores the current Mixer state as a file that can be recalled arbitrarily. Supports: processor settings, gain, trim, pan and processor ordering.]]
}
function factory() return function()
function new_plugin(name)
local plugin = nil
for x = 0, 6 do
plugin = ARDOUR.LuaAPI.new_plugin(Session, name, x, "")
if not(plugin:isnil()) then break end
end return plugin
end
local path = ARDOUR.LuaAPI.build_filename(Session:path(), "export", "params.lua")
function mark()
local file = io.open(path, "w")
file:write("") --empty current file from last run
file:close()
for r in Session:get_routes():iter() do
if r:is_monitor () or r:is_auditioner () then goto nextroute end -- skip special routes
local order = ARDOUR.ProcessorList()
local x = 0
repeat
local proc = r:nth_processor(x)
if not proc:isnil() then
order:push_back(proc)
end
x = x + 1
until proc:isnil()
local route_str, proc_order_str, cache_str = "", "", ""
local rid = r:to_stateful():id():to_s()
local pan = r:pan_azimuth_control()
if pan:isnil() then pan = false else pan = pan:get_value() end --sometimes a route doesn't have pan, like the master.
local on = 0
for p in order:iter() do
local pid = p:to_stateful():id():to_s()
proc_order_str = proc_order_str .. "[" .. on .. "] = " .. pid ..","
cache_str = cache_str .. "[" .. pid .. "] = " .. "\"" .. p:display_name() .. "\"" ..","
on = on + 1
end
route_str = "instance = {route_id = " .. rid .. ", gain_control = " .. r:gain_control():get_value() .. ", trim_control = " .. r:trim_control():get_value() .. ", pan_control = " .. tostring(pan) .. ", order = {" .. proc_order_str .."}, cache = {" .. cache_str .. "}" .. "}"
file = io.open(path, "a")
file:write(route_str, "\r\n")
file:close()
local i = 0
while true do
local params = {}
local proc_str, params_str = "", ""
local proc = r:nth_plugin (i)
if proc:isnil () then break end
local active = proc:active()
local id = proc:to_stateful():id():to_s()
local plug = proc:to_insert ():plugin (0)
local n = 0 -- count control-ports
for j = 0, plug:parameter_count () - 1 do -- iterate over all plugin parameters
if plug:parameter_is_control (j) then
local label = plug:parameter_label (j)
if plug:parameter_is_input (j) and label ~= "hidden" and label:sub (1,1) ~= "#" then
local _, _, pd = ARDOUR.LuaAPI.plugin_automation(proc, n)
local val = ARDOUR.LuaAPI.get_processor_param(proc, j, true)
params[n] = val
end
n = n + 1
end
end
i = i + 1
for k, v in pairs(params) do
params_str = params_str .. "[".. k .."] = " .. v .. ","
end
proc_str = "instance = {plugin_id = " .. id .. ", parameters = {" .. params_str .. "}, active = " .. tostring(active) .. "}"
file = io.open(path, "a")
file:write(proc_str, "\r\n")
file:close()
end
::nextroute::
end
end
local invalidate = {}
function recall()
local file = io.open(path, "r")
assert(file, "File not found!")
for l in file:lines() do
--print(l)
local plugin, route = false, false
local f = load(l)
f ()
if instance["route_id"] ~= nil then route = true end
if instance["plugin_id"] ~= nil then plugin = true end
if route then
local old_order = ARDOUR.ProcessorList()
local rid = PBD.ID(instance["route_id"])
local order = instance["order"]
local cache = instance["cache"]
local gc, tc, pc = instance["gain_control"], instance["trim_control"], instance["pan_control"]
local rt = Session:route_by_id(rid)
if rt:isnil() then goto nextline end
for k, v in pairs(order) do
local proc = Session:processor_by_id(PBD.ID(v))
if proc:isnil() then
for id, name in pairs(cache) do
if v == id then
proc = new_plugin(name)
invalidate[v] = proc:to_stateful():id():to_s()
end
end
end
if not(proc:isnil()) then old_order:push_back(proc) end
proc:activate()
end
rt:gain_control():set_value(gc, 1)
rt:trim_control():set_value(tc, 1)
if pc ~= false then rt:pan_azimuth_control():set_value(pc, 1) end
rt:reorder_processors(old_order, nil)
end
if plugin then
local enable = {}
local params = instance["parameters"]
local p_id = instance["plugin_id"]
local act = instance["active"]
for k, v in pairs(invalidate) do --invalidate any deleted plugin's id
if p_id == k then
p_id = v
end
end
local proc = Session:processor_by_id(PBD.ID(p_id))
if proc:isnil() then goto nextline end
local plug = proc:to_insert():plugin(0)
for k, v in pairs(params) do
local label = plug:parameter_label(k)
if string.find(label, "Assign") or string.find(label, "Enable") then --@ToDo: Check Plugin type == LADSPA or VST?
enable[k] = v --queue any assignments/enables for after the initial parameter recalling to duck the 'in-on-change' feature
end
ARDOUR.LuaAPI.set_processor_param(proc, k, v)
end
for k, v in pairs(enable) do
ARDOUR.LuaAPI.set_processor_param(proc, k, v)
end
if act then proc:activate() else proc:deactivate() end
end
::nextline::
end
end
local dialog_options = {
{ type = "label", colspan= 10, title = "" },
{ type = "radio", colspan= 10, key = "select", title = "", values ={ ["1. Mark"] = "mark", ["2. Recall"] = "recall" }, default = "1. Mark"},
{ type = "label", colspan= 10, title = "" },
}
local rv = LuaDialog.Dialog("Mixer Store:", dialog_options):run()
assert(rv, 'Dialog box was canceled or is ' .. type(rv))
local c = rv["select"]
if c == "mark" then mark() end
if c == "recall" then recall() end
end end
|
