20 lines
626 B
Lua
20 lines
626 B
Lua
|
-- MIDI Grid: toggle a diatonic seventh chord on the cursor pitch
|
||
|
|
local dir = ({ reaper.get_action_context() })[2]:match("@?(.*[\\/])")
|
||
|
|
local G = dofile(dir .. "midigrid_lib.lua")
|
||
|
|
|
||
|
|
if not G.isActive() then return end
|
||
|
|
|
||
|
|
local hwnd, take, err = G.editor()
|
||
|
|
if not take then G.say(err) return end
|
||
|
|
|
||
|
|
local ps = G.chordPitches(G.getPitch(hwnd), 4)
|
||
|
|
if not ps then G.say("No room for a chord here") return end
|
||
|
|
|
||
|
|
local state = G.toggleChord(take, ps)
|
||
|
|
|
||
|
|
local names = {}
|
||
|
|
for _, p in ipairs(ps) do names[#names + 1] = G.noteName(p) end
|
||
|
|
G.say("Seventh " .. state .. ", " .. table.concat(names, ", "))
|
||
|
|
|
||
|
|
if state == "on" then G.preview(ps) end
|