summaryrefslogtreecommitdiff
path: root/libs/ardour/lua_api.cc
diff options
context:
space:
mode:
authorThomas Brand <tom@trellis.ch>2016-09-16 22:09:05 +0200
committerRobin Gareus <robin@gareus.org>2016-09-16 22:09:05 +0200
commitfaf44386460b6cdda0aa249eb138e8fd82700194 (patch)
treee0277496a2f17336a30083f12918d35be2710f9a /libs/ardour/lua_api.cc
parent8e36e9bf053eb6b880a3ab6c8039d2158cd3ca7a (diff)
Add convenience Lua bindings to access plugin controls
Diffstat (limited to 'libs/ardour/lua_api.cc')
-rw-r--r--libs/ardour/lua_api.cc132
1 files changed, 122 insertions, 10 deletions
diff --git a/libs/ardour/lua_api.cc b/libs/ardour/lua_api.cc
index 1cf403b8b0..0ca51ad2ad 100644
--- a/libs/ardour/lua_api.cc
+++ b/libs/ardour/lua_api.cc
@@ -157,6 +157,98 @@ ARDOUR::LuaAPI::new_plugin (Session *s, const string& name, ARDOUR::PluginType t
}
bool
+ARDOUR::LuaAPI::set_plugin_input_parameter_value_named(boost::shared_ptr<Processor> proc, const string& name, float val)
+{
+ boost::shared_ptr<PluginInsert> pi = boost::dynamic_pointer_cast<PluginInsert> (proc);
+ if (!pi) { return false; }
+ boost::shared_ptr<Plugin> plugin = pi->plugin();
+ if (!plugin) { return false; }
+
+ bool test=false;
+ uint32_t controlid=0;
+ ParameterDescriptor pd;
+
+ for (uint32_t param_index = 0; param_index < plugin->parameter_count(); ++param_index)
+ {
+ controlid = plugin->nth_parameter (param_index, test);
+ if (!test)
+ {
+ break;
+ }
+ else
+ {
+ //skip output ports
+ if (!plugin->parameter_is_input (controlid)) { continue; }
+ string param_name=pi->describe_parameter(Evoral::Parameter(PluginAutomation, 0, controlid));
+ if (param_name.compare(name) != 0) { continue; }
+ if (plugin->get_parameter_descriptor (controlid, pd) != 0) { continue; }
+ if (val < pd.lower || val > pd.upper) { break; }
+ boost::shared_ptr<AutomationControl> c = pi->automation_control (Evoral::Parameter(PluginAutomation, 0, controlid));
+ c->set_value (val, PBD::Controllable::NoGroup);
+ return true;
+ }
+ }
+ return false;
+}
+
+float
+ARDOUR::LuaAPI::get_plugin_parameter_value_named(boost::shared_ptr<Processor> proc, int type, const string& name, bool &ok)
+{
+ ok=false;
+ boost::shared_ptr<PluginInsert> pi = boost::dynamic_pointer_cast<PluginInsert> (proc);
+ if (!pi) { return 0; }
+ boost::shared_ptr<Plugin> plugin = pi->plugin();
+ if (!plugin) { return 0; }
+
+ bool test=false;
+ uint32_t controlid=0;
+ ParameterDescriptor pd;
+
+ for (uint32_t param_index = 0; param_index < plugin->parameter_count(); ++param_index)
+ {
+ controlid = plugin->nth_parameter (param_index, test);
+ if (!test)
+ {
+ return 0;
+ }
+ else
+ {
+ if(type==0) //input
+ {
+ //skip output ports
+ if (!plugin->parameter_is_input (controlid)) { continue; }
+ }
+ else if(type==1) //output
+ {
+ //skip input ports
+ if (plugin->parameter_is_input (controlid)) { continue; }
+ }
+ else
+ {
+ return 0;
+ }
+ string param_name=pi->describe_parameter(Evoral::Parameter(PluginAutomation, 0, controlid));
+ if (param_name.compare(name) != 0) { continue; }
+ ok=true;
+ return plugin->get_parameter ( controlid );
+ }
+ }
+ return 0;
+}
+
+float
+ARDOUR::LuaAPI::get_plugin_input_parameter_value_named(boost::shared_ptr<Processor> proc, const string& name, bool &ok)
+{
+ return get_plugin_parameter_value_named(proc,0,name,ok);
+}
+
+float
+ARDOUR::LuaAPI::get_plugin_output_parameter_value_named(boost::shared_ptr<Processor> proc, const string& name, bool &ok)
+{
+ return get_plugin_parameter_value_named(proc,1,name,ok);
+}
+
+bool
ARDOUR::LuaAPI::set_plugin_insert_param (boost::shared_ptr<PluginInsert> pi, uint32_t which, float val)
{
boost::shared_ptr<Plugin> plugin = pi->plugin();
@@ -176,6 +268,17 @@ ARDOUR::LuaAPI::set_plugin_insert_param (boost::shared_ptr<PluginInsert> pi, uin
return true;
}
+float
+ARDOUR::LuaAPI::get_plugin_insert_param (boost::shared_ptr<PluginInsert> pi, uint32_t which, bool &ok)
+{
+ ok=false;
+ boost::shared_ptr<Plugin> plugin = pi->plugin();
+ if (!plugin) { return 0; }
+ uint32_t controlid = plugin->nth_parameter (which, ok);
+ if (!ok) { return 0; }
+ return plugin->get_parameter ( controlid );
+}
+
bool
ARDOUR::LuaAPI::set_processor_param (boost::shared_ptr<Processor> proc, uint32_t which, float val)
{
@@ -184,6 +287,15 @@ ARDOUR::LuaAPI::set_processor_param (boost::shared_ptr<Processor> proc, uint32_t
return set_plugin_insert_param (pi, which, val);
}
+float
+ARDOUR::LuaAPI::get_processor_param (boost::shared_ptr<Processor> proc, uint32_t which, bool &ok)
+{
+ ok=false;
+ boost::shared_ptr<PluginInsert> pi = boost::dynamic_pointer_cast<PluginInsert> (proc);
+ if (!pi) { return false; }
+ return get_plugin_insert_param (pi, which, ok);
+}
+
int
ARDOUR::LuaAPI::plugin_automation (lua_State *L)
{
@@ -242,7 +354,7 @@ ARDOUR::LuaOSC::Address::send (lua_State *L)
int top = lua_gettop(L);
if (top < 3) {
- return luaL_argerror (L, 1, "invalid number of arguments, :send (path, type, ...)");
+ return luaL_argerror (L, 1, "invalid number of arguments, :send (path, type, ...)");
}
const char* path = luaL_checkstring (L, 2);
@@ -250,7 +362,7 @@ ARDOUR::LuaOSC::Address::send (lua_State *L)
assert (path && type);
if ((int) strlen(type) != top - 3) {
- return luaL_argerror (L, 3, "type description does not match arguments");
+ return luaL_argerror (L, 3, "type description does not match arguments");
}
lo_message msg = lo_message_new ();
@@ -263,7 +375,7 @@ ARDOUR::LuaOSC::Address::send (lua_State *L)
case LUA_TSTRING:
if (t == LO_STRING) {
ok = lo_message_add_string (msg, luaL_checkstring(L, i));
- } else if (t == LO_CHAR) {
+ } else if (t == LO_CHAR) {
char c = luaL_checkstring (L, i) [0];
ok = lo_message_add_char (msg, c);
}
@@ -352,7 +464,7 @@ ARDOUR::LuaAPI::build_filename (lua_State *L)
std::vector<std::string> elem;
int top = lua_gettop(L);
if (top < 1) {
- return luaL_argerror (L, 1, "invalid number of arguments, build_filename (path, ...)");
+ return luaL_argerror (L, 1, "invalid number of arguments, build_filename (path, ...)");
}
for (int i = 1; i <= top; ++i) {
int lt = lua_type (L, i);
@@ -368,14 +480,14 @@ ARDOUR::LuaAPI::build_filename (lua_State *L)
luabridge::LuaRef::Proxy&
luabridge::LuaRef::Proxy::clone_instance (const void* classkey, void* p) {
- lua_rawgeti (m_L, LUA_REGISTRYINDEX, m_tableRef);
- lua_rawgeti (m_L, LUA_REGISTRYINDEX, m_keyRef);
+ lua_rawgeti (m_L, LUA_REGISTRYINDEX, m_tableRef);
+ lua_rawgeti (m_L, LUA_REGISTRYINDEX, m_keyRef);
luabridge::UserdataPtr::push_raw (m_L, p, classkey);
- lua_rawset (m_L, -3);
- lua_pop (m_L, 1);
- return *this;
+ lua_rawset (m_L, -3);
+ lua_pop (m_L, 1);
+ return *this;
}
LuaTableRef::LuaTableRef () {}
@@ -451,7 +563,7 @@ LuaTableRef::set (lua_State* L)
s.c = classkey;
s.p = luabridge::Userdata::get_ptr (L, -2);
}
- } else {
+ } else {
lua_pop (L, 2);
}