Another Lua example script

* Track template
* MIDI track creation
* Adding plugins and setting parameters
* Dialogs

1 files changed, 81 insertions, 0 deletions

diff --git a/scripts/_rgh_midi_track_trick.lua b/scripts/_rgh_midi_track_trick.lua
new file mode 100644
index 0000000000..85308be0b1
--- /dev/null
+++ b/scripts/_rgh_midi_track_trick.lua
@@ -0,0 +1,81 @@
+ardour {
+	["type"]    = "EditorAction",
+	name        = "Rob's 16 MIDI Trick Pony",
+	description = [[clearly broken approach to go about things]]
+}
+
+function route_setup ()
+	return {
+		['Insert_at'] = ARDOUR.PresentationInfo.max_order,
+		['name'] = 'Sweet16',
+		['group'] = false, -- return value will be a RouteGroup* or nil
+	}
+end
+
+function factory (p) return function ()
+	local name      = "Sweet16"
+	local insert_at = ARDOUR.PresentationInfo.max_order
+	local group     = nil
+
+	-- check for "MIDI Channel Map" LV2 from x42 midifilters.lv2
+	if ARDOUR.LuaAPI.new_plugin_info ("http://gareus.org/oss/lv2/midifilter#channelmap", ARDOUR.PluginType.LV2):isnil () then
+		LuaDialog.Message ("16 MIDI Tracks", "Error: Plugin 'MIDI Simple Channel Map' was not found.", LuaDialog.MessageType.Info, LuaDialog.ButtonType.Close):run ()
+		return
+	end
+
+	if type (p) == 'table' and p['how_many'] ~= nil then
+		-- used from the AddRouteDialog (or w/action_params)
+		name      = p["name"] or 'Sweet16'
+		insert_at = p["insert_at"] or ARDOUR.PresentationInfo.max_order;
+		group     = p["group"] or nil
+	else
+		-- used standalone, prompt for name and insert position
+		local dialog_options = {
+			{ type = "entry", key = "name", default = 'Sweet16', title = "Name Prefix" },
+			{ type = "entry", key = "group", default = '', title = "Group (empty for none)" },
+			{ type = "dropdown", key = "insertpos", title = "Position", default = "Last", values =
+				{
+					["First"]            = ArdourUI.InsertAt.First,
+					["Before Selection"] = ArdourUI.InsertAt.BeforeSelection,
+					["After Selection"]  = ArdourUI.InsertAt.AfterSelection,
+					["Last"]             = ArdourUI.InsertAt.Last
+				}
+			}
+		}
+
+		local od = LuaDialog.Dialog ("16 MIDI Tracks", dialog_options)
+		local rv = od:run()
+		if (not rv) then return end
+		name = rv['name'] or 'Sweet16'
+		if rv['insertpos'] then
+			insert_at = ArdourUI.translate_order (rv['insertpos'])
+		end
+		if rv['group'] and rv['group'] ~= '' then
+			group = Session:new_route_group (rv['group'])
+		end
+	end
+	collectgarbage ()
+
+	-- all systems go
+
+	local tl = Session:new_midi_track (
+		ARDOUR.ChanCount(ARDOUR.DataType ("midi"), 1),
+		ARDOUR.ChanCount(ARDOUR.DataType ("midi"), 1),
+		true, -- strict i/o
+		ARDOUR.PluginInfo(), nil, -- no instrument, no instrument preset
+		group,
+		16, -- how many
+		name, insert_at, ARDOUR.TrackMode.Normal)
+
+	local i = 1
+	for track in tl:iter() do
+		local p = ARDOUR.LuaAPI.new_plugin(Session, "http://gareus.org/oss/lv2/midifilter#channelmap", ARDOUR.PluginType.LV2, "")
+		assert (not p:isnil ())
+		track:add_processor_by_index(p, 0, nil, true)
+		for j = 1, 16 do
+			ARDOUR.LuaAPI.set_processor_param (p, j, i)
+		end
+		i = i + 1
+	end
+	collectgarbage () -- drop references to tracks.
+end end