X-Git-Url: https://main.carlh.net/gitweb/?a=blobdiff_plain;f=libs%2Fardour%2Flua_api.cc;h=59d27493998925a445366ce80b64755f28455614;hb=9336bddee2b40e3e70699eec897ca100074db87a;hp=a96263b4822f27bcb8cf3f3881655bdea94f75b4;hpb=52b6ad1b962f104ebd5ad050587a0d6325e57ce4;p=ardour.git

diff --git a/libs/ardour/lua_api.cc b/libs/ardour/lua_api.cc
index a96263b482..59d2749399 100644
--- a/libs/ardour/lua_api.cc
+++ b/libs/ardour/lua_api.cc
@@ -103,6 +103,30 @@ ARDOUR::LuaAPI::new_luaproc (Session *s, const string& name)
 	return boost::shared_ptr<Processor> (new PluginInsert (*s, p));
 }
 
+PluginInfoList
+ARDOUR::LuaAPI::list_plugins ()
+{
+	PluginManager& manager = PluginManager::instance ();
+	PluginInfoList all_plugs;
+	all_plugs.insert (all_plugs.end (), manager.ladspa_plugin_info ().begin (), manager.ladspa_plugin_info ().end ());
+	all_plugs.insert (all_plugs.end (), manager.lua_plugin_info ().begin (), manager.lua_plugin_info ().end ());
+#ifdef WINDOWS_VST_SUPPORT
+	all_plugs.insert (all_plugs.end (), manager.windows_vst_plugin_info ().begin (), manager.windows_vst_plugin_info ().end ());
+#endif
+#ifdef LXVST_SUPPORT
+	all_plugs.insert (all_plugs.end (), manager.lxvst_plugin_info ().begin (), manager.lxvst_plugin_info ().end ());
+#endif
+#ifdef AUDIOUNIT_SUPPORT
+	all_plugs.insert (all_plugs.end (), manager.au_plugin_info ().begin (), manager.au_plugin_info ().end ());
+#endif
+#ifdef LV2_SUPPORT
+	all_plugs.insert (all_plugs.end (), manager.lv2_plugin_info ().begin (), manager.lv2_plugin_info ().end ());
+#endif
+	all_plugs.insert (all_plugs.end (), manager.lua_plugin_info ().begin (), manager.lua_plugin_info ().end ());
+
+	return all_plugs;
+}
+
 PluginInfoPtr
 ARDOUR::LuaAPI::new_plugin_info (const string& name, ARDOUR::PluginType type)
 {
@@ -122,6 +146,7 @@ ARDOUR::LuaAPI::new_plugin_info (const string& name, ARDOUR::PluginType type)
 #ifdef LV2_SUPPORT
 	all_plugs.insert (all_plugs.end (), manager.lv2_plugin_info ().begin (), manager.lv2_plugin_info ().end ());
 #endif
+	all_plugs.insert (all_plugs.end (), manager.lua_plugin_info ().begin (), manager.lua_plugin_info ().end ());
 
 	for (PluginInfoList::const_iterator i = all_plugs.begin (); i != all_plugs.end (); ++i) {
 		if (((*i)->name == name || (*i)->unique_id == name) && (*i)->type == type) {
@@ -207,6 +232,17 @@ ARDOUR::LuaAPI::get_processor_param (boost::shared_ptr<Processor> proc, uint32_t
 	return get_plugin_insert_param (pi, which, ok);
 }
 
+bool
+ARDOUR::LuaAPI::reset_processor_to_default ( boost::shared_ptr<Processor> proc )
+{
+	boost::shared_ptr<PluginInsert> pi = boost::dynamic_pointer_cast<PluginInsert> (proc);
+	if (pi) {
+		pi->reset_parameters_to_default();
+		return true;
+	}
+	return false;
+}
+
 int
 ARDOUR::LuaAPI::plugin_automation (lua_State *L)
 {
@@ -252,6 +288,128 @@ ARDOUR::LuaAPI::plugin_automation (lua_State *L)
 	return 3;
 }
 
+int
+ARDOUR::LuaAPI::sample_to_timecode (lua_State *L)
+{
+	int top = lua_gettop (L);
+	if (top < 3) {
+		return luaL_argerror (L, 1, "invalid number of arguments sample_to_timecode (TimecodeFormat, sample_rate, sample)");
+	}
+	typedef Timecode::TimecodeFormat T;
+	T tf = luabridge::Stack<T>::get (L, 1);
+	double sample_rate = luabridge::Stack<double>::get (L, 2);
+	int64_t sample = luabridge::Stack<int64_t>::get (L, 3);
+
+	Timecode::Time timecode;
+
+	Timecode::sample_to_timecode (
+			sample, timecode, false, false,
+			Timecode::timecode_to_frames_per_second (tf),
+			Timecode::timecode_has_drop_frames (tf),
+			sample_rate,
+			0, false, 0);
+
+	luabridge::Stack<uint32_t>::push (L, timecode.hours);
+	luabridge::Stack<uint32_t>::push (L, timecode.minutes);
+	luabridge::Stack<uint32_t>::push (L, timecode.seconds);
+	luabridge::Stack<uint32_t>::push (L, timecode.frames);
+	return 4;
+}
+
+int
+ARDOUR::LuaAPI::timecode_to_sample (lua_State *L)
+{
+	int top = lua_gettop (L);
+	if (top < 6) {
+		return luaL_argerror (L, 1, "invalid number of arguments sample_to_timecode (TimecodeFormat, sample_rate, hh, mm, ss, ff)");
+	}
+	typedef Timecode::TimecodeFormat T;
+	T tf = luabridge::Stack<T>::get (L, 1);
+	double sample_rate = luabridge::Stack<double>::get (L, 2);
+	int hh = luabridge::Stack<int>::get (L, 3);
+	int mm = luabridge::Stack<int>::get (L, 4);
+	int ss = luabridge::Stack<int>::get (L, 5);
+	int ff = luabridge::Stack<int>::get (L, 6);
+
+	Timecode::Time timecode;
+	timecode.negative = false;
+	timecode.hours = hh;
+	timecode.minutes = mm;
+	timecode.seconds = ss;
+	timecode.frames = ff;
+	timecode.subframes = 0;
+	timecode.rate = Timecode::timecode_to_frames_per_second (tf);
+	timecode.drop = Timecode::timecode_has_drop_frames (tf);
+
+	int64_t sample;
+
+	Timecode::timecode_to_sample (
+			timecode, sample, false, false,
+			sample_rate, 0, false, 0);
+
+	luabridge::Stack<int64_t>::push (L, sample);
+	return 1;
+}
+
+int
+ARDOUR::LuaAPI::sample_to_timecode_lua (lua_State *L)
+{
+	int top = lua_gettop (L);
+	if (top < 2) {
+		return luaL_argerror (L, 1, "invalid number of arguments sample_to_timecode (sample)");
+	}
+	Session const* const s = luabridge::Userdata::get <Session> (L, 1, true);
+	int64_t sample = luabridge::Stack<int64_t>::get (L, 2);
+
+	Timecode::Time timecode;
+
+	Timecode::sample_to_timecode (
+			sample, timecode, false, false,
+			s->timecode_frames_per_second (),
+			s->timecode_drop_frames (),
+			s->sample_rate (),
+			0, false, 0);
+
+	luabridge::Stack<uint32_t>::push (L, timecode.hours);
+	luabridge::Stack<uint32_t>::push (L, timecode.minutes);
+	luabridge::Stack<uint32_t>::push (L, timecode.seconds);
+	luabridge::Stack<uint32_t>::push (L, timecode.frames);
+	return 4;
+}
+int
+ARDOUR::LuaAPI::timecode_to_sample_lua (lua_State *L)
+{
+	int top = lua_gettop (L);
+	if (top < 5) {
+		return luaL_argerror (L, 1, "invalid number of arguments sample_to_timecode (hh, mm, ss, ff)");
+	}
+	Session const* const s = luabridge::Userdata::get <Session> (L, 1, true);
+	int hh = luabridge::Stack<int>::get (L, 2);
+	int mm = luabridge::Stack<int>::get (L, 3);
+	int ss = luabridge::Stack<int>::get (L, 4);
+	int ff = luabridge::Stack<int>::get (L, 5);
+
+	Timecode::Time timecode;
+	timecode.negative = false;
+	timecode.hours = hh;
+	timecode.minutes = mm;
+	timecode.seconds = ss;
+	timecode.frames = ff;
+	timecode.subframes = 0;
+	timecode.rate = s->timecode_frames_per_second ();
+	timecode.drop = s->timecode_drop_frames ();
+
+	int64_t sample;
+
+	Timecode::timecode_to_sample (
+			timecode, sample, false, false,
+			s->sample_rate (),
+			0, false, 0);
+
+	luabridge::Stack<int64_t>::push (L, sample);
+	return 1;
+}
+
 int
 ARDOUR::LuaOSC::Address::send (lua_State *L)
 {
@@ -352,7 +510,7 @@ ARDOUR::LuaAPI::hsla_to_rgba (lua_State *L)
 		a = luabridge::Stack<double>::get (L, 4);
 	}
 
-	// we can't use ArdourCanvas::hsva_to_color here
+	// we can't use Gtkmm2ext::hsva_to_color here
 	// besides we want HSL not HSV and without intermediate
 	// color_to_rgba (rgba_to_color ())
 	double r, g, b;
@@ -369,6 +527,32 @@ ARDOUR::LuaAPI::hsla_to_rgba (lua_State *L)
 	return 4;
 }
 
+int
+ARDOUR::LuaAPI::color_to_rgba (lua_State *L)
+{
+	int top = lua_gettop (L);
+	if (top < 1) {
+		return luaL_argerror (L, 1, "invalid number of arguments, color_to_rgba (uint32_t)");
+	}
+	uint32_t color = luabridge::Stack<uint32_t>::get (L, 1);
+	double r, g, b, a;
+
+	/* libardour is no user of libcanvas, otherwise
+	 * we could just call
+	 * Gtkmm2ext::color_to_rgba (color, r, g, b, a);
+	 */
+	r = ((color >> 24) & 0xff) / 255.0;
+	g = ((color >> 16) & 0xff) / 255.0;
+	b = ((color >>  8) & 0xff) / 255.0;
+	a = ((color >>  0) & 0xff) / 255.0;
+
+	luabridge::Stack <double>::push (L, r);
+	luabridge::Stack <double>::push (L, g);
+	luabridge::Stack <double>::push (L, b);
+	luabridge::Stack <double>::push (L, a);
+	return 4;
+}
+
 int
 ARDOUR::LuaAPI::build_filename (lua_State *L)
 {
@@ -539,11 +723,19 @@ void LuaTableRef::assign (luabridge::LuaRef* rv, T key, const LuaTableEntry& s)
 	}
 }
 
+std::vector<std::string>
+LuaAPI::Vamp::list_plugins ()
+{
+	using namespace ::Vamp::HostExt;
+	PluginLoader* loader (PluginLoader::getInstance());
+	return loader->listPlugins ();
+}
 
 LuaAPI::Vamp::Vamp (const std::string& key, float sample_rate)
 	: _plugin (0)
 	, _sample_rate (sample_rate)
-	, _bufsize (8192)
+	, _bufsize (1024)
+	, _stepsize (1024)
 	, _initialized (false)
 {
 	using namespace ::Vamp::HostExt;
@@ -555,6 +747,14 @@ LuaAPI::Vamp::Vamp (const std::string& key, float sample_rate)
 		PBD::error << string_compose (_("VAMP Plugin \"%1\" could not be loaded"), key) << endmsg;
 		throw failed_constructor ();
 	}
+
+	size_t bs = _plugin->getPreferredBlockSize ();
+	size_t ss = _plugin->getPreferredStepSize ();
+
+	if (bs > 0 && ss > 0 && bs <= 8192 && ss <= 8192) {
+		_bufsize = bs;
+		_stepsize = ss;
+	}
 }
 
 LuaAPI::Vamp::~Vamp ()
@@ -577,7 +777,7 @@ LuaAPI::Vamp::initialize ()
 	if (!_plugin || _plugin->getMinChannelCount() > 1) {
 		return false;
 	}
-	if (!_plugin->initialise (1, _bufsize, _bufsize)) {
+	if (!_plugin->initialise (1, _stepsize, _bufsize)) {
 		return false;
 	}
 	_initialized = true;
@@ -598,12 +798,12 @@ LuaAPI::Vamp::analyze (boost::shared_ptr<ARDOUR::Readable> r, uint32_t channel,
 	float* data = new float[_bufsize];
 	float* bufs[1] = { data };
 
-	framecnt_t len = r->readable_length();
-	framepos_t pos = 0;
+	samplecnt_t len = r->readable_length();
+	samplepos_t pos = 0;
 
 	int rv = 0;
 	while (1) {
-		framecnt_t to_read = std::min ((len - pos), _bufsize);
+		samplecnt_t to_read = std::min ((len - pos), _bufsize);
 		if (r->read (data, pos, to_read, channel) != to_read) {
 			rv = -1;
 			break;
@@ -615,10 +815,10 @@ LuaAPI::Vamp::analyze (boost::shared_ptr<ARDOUR::Readable> r, uint32_t channel,
 		features = _plugin->process (bufs, ::Vamp::RealTime::fromSeconds ((double) pos / _sample_rate));
 
 		if (cb.type () == LUA_TFUNCTION) {
-			cb (features, pos);
+			cb (&features, pos);
 		}
 
-		pos += to_read;
+		pos += std::min (_stepsize, to_read);
 
 		if (pos >= len) {
 			break;
@@ -628,3 +828,33 @@ LuaAPI::Vamp::analyze (boost::shared_ptr<ARDOUR::Readable> r, uint32_t channel,
 	delete [] data;
 	return rv;
 }
+
+::Vamp::Plugin::FeatureSet
+LuaAPI::Vamp::process (const std::vector<float*>& d, ::Vamp::RealTime rt)
+{
+	if (!_plugin || d.size() == 0) {
+		return ::Vamp::Plugin::FeatureSet ();
+	}
+	const float* const* bufs = &d[0];
+	return _plugin->process (bufs, rt);
+}
+
+boost::shared_ptr<Evoral::Note<Temporal::Beats> >
+LuaAPI::new_noteptr (uint8_t chan, Temporal::Beats beat_time, Temporal::Beats length, uint8_t note, uint8_t velocity)
+{
+	return boost::shared_ptr<Evoral::Note<Temporal::Beats> > (new Evoral::Note<Temporal::Beats>(chan, beat_time, length, note, velocity));
+}
+
+std::list<boost::shared_ptr<Evoral::Note<Temporal::Beats> > >
+LuaAPI::note_list (boost::shared_ptr<MidiModel> mm)
+{
+	typedef boost::shared_ptr<Evoral::Note<Temporal::Beats> > NotePtr;
+
+	std::list<NotePtr> note_ptr_list;
+
+	const MidiModel::Notes& notes = mm->notes();
+	for (MidiModel::Notes::const_iterator i = notes.begin(); i != notes.end(); ++i) {
+		note_ptr_list.push_back (*i);
+	}
+	return note_ptr_list;
+}