Chorder.lua

--------------------------------------------------------------------------------
--! @example Chorder.lua
--------------------------------------------------------------------------------

local shift = {}
local velocity = {}
local presets = {
{"--", {0, 1}, {0, 1}, {0, 1}, {0, 1}, {0, 1}, {0, 1}}, 
{"Default", {0, 1}, {0, 1}, {0, 1}, {0, 1}, {0, 1}, {0, 1}}, 
{"Debusian", {-16, 1.02}, {3, 0.54}, {18, 0.83}, {-6, 0.74}, {-9, 1.16}, {0, 1}}, 
{"Film Noir", {-2, 0.83}, {5, 1.25}, {-6, 0.74}, {12, 0.65}, {0, 1}, {0, 1}},
{"Jazz for dummies", {3, 0.54}, {5, 0.88}, {-16, 1}, {-10, 1}, {0, 1}, {0, 1}},
{"Major", {4, 1}, {7, 1}, {0, 1}, {0, 1}, {0, 1}, {0, 1}},
{"House for to go", {3, 1}, {7, 1}, {-12, 1}, {0, 1}, {0, 1}, {0, 1}},
{"Fifth", {0, 1}, {7, 1}, {0, 1}, {0, 1}, {0, 1}, {0, 1}},
{"Fourth", {0, 1}, {5, 1}, {0, 1}, {0, 1}, {0, 1}, {0, 1}},
{"Grandiosa", {-12, 1}, {-24, 1.33}, {12, 1.41}, {7, 1}, {0, 1}, {0, 1}}
}

for i=1,6 do
    shift[i] = Knob("Shift°"..tostring(i), 0, -36, 36, true)    
end
for i=1,6 do
    velocity[i] = Knob("Velocity_"..tostring(i), 1, 0.01, 2)
end

local presetNames = {}
for i, preset in ipairs(presets) do 
    presetNames[i] = preset[1]  
end
presetMenu = Menu("Presets", presetNames)
presetMenu.persistent = false -- avoid overwrite of current state at reload
presetMenu.changed = function(self)
    for i=1,6 do
        shift[i].value = presets[self.value][i+1][1]
        velocity[i].value = presets[self.value][i+1][2]
    end
end

presetMenu:changed()

function onNote(e)
    local done = {} -- store already played notes in order to avoid redundancy
    for i=1,6 do
        if not done[shift[i].value] then
            playNote(e.note + shift[i].value, math.min(127, e.velocity*velocity[i].value))
            done[shift[i].value] = true;
        end
    end
end


function onRelease()
    -- eat event, release is automatic with playNote
end