From 83c964cfd44756197ff0f3eeb8f584718f313439 Mon Sep 17 00:00:00 2001 From: Robin Gareus Date: Mon, 2 Jan 2017 00:52:25 +0100 Subject: Add an example script to start recording on a MIDI event --- scripts/_midi_rec_start.lua | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 scripts/_midi_rec_start.lua (limited to 'scripts') diff --git a/scripts/_midi_rec_start.lua b/scripts/_midi_rec_start.lua new file mode 100644 index 0000000000..edd67eb7af --- /dev/null +++ b/scripts/_midi_rec_start.lua @@ -0,0 +1,37 @@ +ardour { + ["type"] = "session", + name = "MIDI Record Enable", + category = "Example", -- "Utility" + license = "MIT", + author = "Ardour Lua Task Force", + description = [[An example script to start recording on note-on.]] +} + +function factory () + return function (n_samples) + if Session:actively_recording() then return end -- when recording already, do nothing + -- iterate over all MIDI ports + _, t = Session:engine ():get_ports (ARDOUR.DataType.midi (), ARDOUR.PortList ()) + for p in t[2]:iter () do + -- skip output ports + if not p:receives_input () then goto next end + local midiport = p:to_midiport () + -- and skip async event ports + if midiport:isnil () then goto next end + local mb = midiport:get_midi_buffer (n_samples) -- get the midi-data buffers + local events = mb:table () -- copy event list into lua table + for _,e in pairs (events) do -- iterate over all events in the midi-buffer + if bit32.band (e:buffer():array()[1], 0xf0) == 0x90 then -- note on + Session:maybe_enable_record (true) -- global record-enable from rt-context + -- maybe-enable may fail if there are no tracks or step-entry is active + -- roll transport if record-enable suceeded: + if ARDOUR.Session.RecordState.Enabled == Session:record_status() then + Session:request_transport_speed (1.0, true) -- ...and go. + end + return + end + end + ::next:: + end + end +end -- cgit v1.2.3