From 7fa99abc3a014ee96a2f97de7b1570e407cb22ef Mon Sep 17 00:00:00 2001
From: "Julien \"_FrnchFrgg_\" RIVAUD" <frnchfrgg@free.fr>
Date: Wed, 17 Aug 2016 02:04:27 +0200
Subject: These are not the scripts you're looking for

---
 scripts/_midigenerator.lua | 48 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 scripts/_midigenerator.lua

(limited to 'scripts/_midigenerator.lua')

diff --git a/scripts/_midigenerator.lua b/scripts/_midigenerator.lua
new file mode 100644
index 0000000000..4ef4bf4c71
--- /dev/null
+++ b/scripts/_midigenerator.lua
@@ -0,0 +1,48 @@
+ardour {
+	["type"]    = "dsp",
+	name        = "Midi Generator",
+	category    = "Example", -- "Utility"
+	license     = "MIT",
+	author      = "Ardour Lua Task Force",
+	description = [[An Example Midi Generator for prototyping.]]
+}
+
+function dsp_ioconfig ()
+	return { { midi_out = 1, audio_in = 0, audio_out = 0}, }
+end
+
+local tme = 0 -- sample-counter
+local seq = 1 -- sequence-step
+local spb = 0 -- samples per beat
+
+local midi_sequence = {
+	{ 0x90, 64, 127 },
+	{ 0x80, 64,   0 },
+}
+
+function dsp_init (rate)
+	local bpm = 120
+	spb = rate * 60 / bpm
+	if spb < 2 then spb = 2 end
+end
+
+function dsp_run (_, _, n_samples)
+	assert (type(midiout) == "table")
+	assert (spb > 1)
+	local m = 1
+
+	for time = 1,n_samples do -- not very efficient
+		-- TODO, timestamp the sequence in beats, calc/skip to next event
+		tme = tme + 1
+
+		if tme >= spb then
+			midiout[m] = {}
+			midiout[m]["time"] = time
+			midiout[m]["data"] = midi_sequence[seq]
+
+			tme = 0
+			m = m + 1
+			if seq == #midi_sequence then seq = 1 else seq = seq + 1 end
+		end
+	end
+end
-- 
cgit v1.2.3