Also move Lua scripts to share subfolder

share/scripts/amp4.lua

@@ -0,0 +1,119 @@
+ardour {
+	["type"]    = "dsp",
+	name        = "a-Amplifier",
+	category    = "Amplifier",
+	license     = "MIT",
+	author      = "Ardour Team",
+	description = [[Versatile +/- 20dB multichannel amplifier]]
+}
+
+function dsp_ioconfig ()
+	return
+	{
+		-- -1, -1 = any number of channels as long as input and output count matches
+		{ audio_in = -1, audio_out = -1},
+	}
+end
+
+
+function dsp_params ()
+	return
+	{
+		{ ["type"] = "input", name = "Gain", min = -20, max = 20, default = 0, unit="dB"},
+	}
+end
+
+local lpf = 0.02 -- parameter low-pass filter time-constant
+local cur_gain = 0 -- current smoothed gain (dB)
+
+-- called once when plugin is instantiated
+function dsp_init (rate)
+	lpf = 780 / rate -- interpolation time constant
+end
+
+function low_pass_filter_param (old, new, limit)
+	if math.abs (old - new) < limit  then
+		return new
+	else
+		return old + lpf * (new - old)
+	end
+end
+
+-- the DSP callback function
+-- "ins" and "outs" are http://manual.ardour.org/lua-scripting/class_reference/#C:FloatArray
+function dsp_run (ins, outs, n_samples)
+	local ctrl = CtrlPorts:array() -- get control port array (read/write)
+	local siz = n_samples -- samples remaining to process
+	local off = 0 -- already processed samples
+	local changed = false
+
+	-- if the gain parameter was changed, process at most 32 samples at a time
+	-- and interpolate gain until the current settings match the target values
+	if cur_gain ~= ctrl[1] then
+		changed = true
+		siz = 32
+	end
+
+	while n_samples > 0 do
+		if siz > n_samples then siz = n_samples end -- process at most "remaining samples"
+		if changed then
+			-- smooth gain changes above 0.02 dB difference
+			cur_gain = low_pass_filter_param (cur_gain, ctrl[1], 0.02)
+		end
+
+		local gain = ARDOUR.DSP.dB_to_coefficient (cur_gain) -- 10 ^ (0.05 * cur_gain)
+
+		for c = 1,#ins do -- process all channels
+			-- check if output and input buffers for this channel are identical
+			-- http://manual.ardour.org/lua-scripting/class_reference/#C:FloatArray
+			if ins[c] ~= outs[c] then
+				-- http://manual.ardour.org/lua-scripting/class_reference/#ARDOUR:DSP
+				ARDOUR.DSP.copy_vector (outs[c]:offset (off), ins[c]:offset (off), siz)
+			end
+			ARDOUR.DSP.apply_gain_to_buffer (outs[c]:offset (off), siz, gain); -- apply-gain, process in-place
+		end
+		n_samples = n_samples - siz
+		off = off + siz
+	end
+
+--[[
+	if changed then
+		self:queue_draw () -- notify display
+	end
+--]]
+end
+
+-------------------------------------------------------------------------------
+--- inline display + text example
+
+--[[
+local txt = nil -- cache pango context globally
+
+function render_inline (ctx, w, max_h)
+	local ctrl = CtrlPorts:array () -- get control ports
+
+	if not txt then
+		-- allocate PangoLayout and set font
+		--http://manual.ardour.org/lua-scripting/class_reference/#Cairo:PangoLayout
+		txt = Cairo.PangoLayout (ctx, "Mono 8px")
+	end
+
+	txt:set_text (string.format ("%+.2f dB", ctrl[1]));
+	tw, th = txt:get_pixel_size ()
+
+	local h = th + 4 -- use text-height with 4px padding
+	if (h > max_h) then h = max_h end -- but at most max-height
+
+	-- clear background
+	ctx:rectangle (0, 0, w, h)
+	ctx:set_source_rgba (.2, .2, .2, 1.0)
+	ctx:fill ()
+
+	-- center text
+	ctx:set_source_rgba (.8, .8, .8, 1.0)
+	ctx:move_to (.5 * (w - tw), .5 * (h - th))
+	txt:show_in_cairo_context (ctx)
+
+	return {w, h}
+end
+--]]