Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

ReaKS 0.7 Update #1328

Merged
merged 9 commits into from
Mar 2, 2024
Merged

ReaKS 0.7 Update #1328

Changes from all commits
Commits
Show all changes
9 commits
Select commit Hold shift + click to select a range
68d7fe6
ReaKS 0.3 Update
Kabraxist Feb 25, 2024
2c2c7bf
Merge branch 'ReaTeam:master' into ReaKS-0.3
Kabraxist Feb 27, 2024
c163043
Version 0.5
Kabraxist Feb 27, 2024
e69b2f8
Take targeting fix
Kabraxist Feb 27, 2024
fc5f424
Merge branch 'ReaTeam:master' into ReaKS-Update
Kabraxist Mar 1, 2024
b23fcab
v0.6 Update
Kabraxist Mar 1, 2024
4121592
Merge branch 'ReaTeam:master' into ReaKS-Update
Kabraxist Mar 2, 2024
41850fc
Merge pull request #1 from Kabraxist/ReaKS-Update
Kabraxist Mar 2, 2024
c27da2d
ReaKS 0.7 Update
Kabraxist Mar 2, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
76 changes: 43 additions & 33 deletions MIDI Editor/ugurcanorcun_ReaKS.lua
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,10 +1,10 @@
-- @description ReaKS - Keyswitch Articulation Manager
-- @author Ugurcan Orcun
-- @version 0.6
-- @version 0.7
-- @changelog
-- Updated styling
-- Changed CC pane layout
-- Added Velocity/Pitch focus buttons
-- Switched to Collapsing Headers
-- Automove for Playhead Position Insert
-- Styling Mismatch Fix
-- @link Forum Thread https://forum.cockos.com/showthread.php?t=288344
-- @about
-- A small MIDI Editor tool for auto-inserting KeySwitch midi notes and managing note/cc names.
Expand All @@ -20,7 +20,6 @@ Articulations = {}
CC = {}
ActivatedArticulations = {}


EnumThemeColors = {
A = 0x0c1017ff, -- Background
B = 0x212226FF, -- Default
Expand Down Expand Up @@ -189,6 +188,10 @@ function ToggleNote(noteNumber)
local playheadPosition = reaper.MIDI_GetPPQPosFromProjTime(ActiveTake, playheadPosition)
local length = playheadPosition + (reaper.MIDI_GetGrid(ActiveTake) * PPQ)
reaper.MIDI_InsertNote(ActiveTake, false, false, playheadPosition - 1, length, 0, noteNumber, 100, false)

if Setting_MoveEditCursor then
reaper.SetEditCurPos(reaper.MIDI_GetProjTimeFromPPQPos(ActiveTake, length), Setting_MoveEditCursor, false)
end
else
--Add articulation to selected notes
reaper.MIDI_InsertNote(ActiveTake, false, false, earliestStartTime - 1, latestEndTime, 0, noteNumber, 100, false)
Expand Down Expand Up @@ -239,11 +242,17 @@ function StylingStart(ctx)

reaper.ImGui_PushStyleColor(ctx, reaper.ImGui_Col_Text(), EnumThemeColors.F)

reaper.ImGui_PushStyleColor(ctx, reaper.ImGui_Col_Header(), EnumThemeColors.B)
reaper.ImGui_PushStyleColor(ctx, reaper.ImGui_Col_HeaderActive(), EnumThemeColors.C)
reaper.ImGui_PushStyleColor(ctx, reaper.ImGui_Col_HeaderHovered(), EnumThemeColors.D)

reaper.ImGui_PushStyleColor(ctx, reaper.ImGui_Col_CheckMark(), EnumThemeColors.F)

reaper.ImGui_PushFont(ctx, Font)
end

function StylingEnd(ctx)
reaper.ImGui_PopStyleColor(ctx, 8)
reaper.ImGui_PopStyleColor(ctx, 12)
reaper.ImGui_PopFont(ctx)
end

Expand All @@ -253,10 +262,10 @@ reaper.ImGui_Attach(ctx, Font)
reaper.ImGui_Attach(ctx, FontTitle)

local function loop()
StylingStart(ctx)

local visible, open = reaper.ImGui_Begin(ctx, 'ReaKS', true)
if visible then
StylingStart(ctx)

if (ActiveTakeName ~= nil and ActiveTrackName ~= nil) then
reaper.ImGui_PushFont(ctx, FontTitle)
Expand Down Expand Up @@ -309,42 +318,43 @@ local function loop()
reaper.ImGui_Separator(ctx)
reaper.ImGui_Text(ctx, "No active MIDI take is open in the MIDI editor.")
else
reaper.ImGui_SeparatorText(ctx, "Articulations")

--TODO Make the table upside down
reaper.ImGui_BeginTable(ctx, "Articulations", Setting_MaxColumns)

for i = 0, 127 do
if Articulations[i] ~= nil then
reaper.ImGui_TableNextColumn(ctx)
local articulation = Articulations[i]
if reaper.ImGui_Checkbox(ctx, articulation, ActivatedArticulations[i] ~= nil) then
ToggleNote(i)
if reaper.ImGui_CollapsingHeader(ctx, "Articulations", false) then
--TODO Make the table upside down
reaper.ImGui_BeginTable(ctx, "Articulations", Setting_MaxColumns)
for i = 0, 127 do
if Articulations[i] ~= nil then
reaper.ImGui_TableNextColumn(ctx)
local articulation = Articulations[i]
if reaper.ImGui_Checkbox(ctx, articulation, ActivatedArticulations[i] ~= nil) then
ToggleNote(i)
end
end
end
reaper.ImGui_EndTable(ctx)
end
reaper.ImGui_EndTable(ctx)
end

if ActiveTake ~= nil then
reaper.ImGui_SeparatorText(ctx, "Focus to CC Lane")
for i = 128, 255 do
if CC[i] ~= nil then
reaper.ImGui_Text(ctx, CC[i] .. " (CC" .. i - 128 .. ")" )
reaper.ImGui_SameLine(ctx, reaper.ImGui_GetWindowWidth(ctx) - (reaper.ImGui_CalcTextSize(ctx, "Focus") * 2))
if reaper.ImGui_Button(ctx, "Focus##"..i) then FocusToCCLane(i-128) end
if reaper.ImGui_CollapsingHeader(ctx, "CC Lanes", false) then
for i = 128, 255 do
if CC[i] ~= nil then
reaper.ImGui_Text(ctx, CC[i] .. " (CC" .. i - 128 .. ")" )
reaper.ImGui_SameLine(ctx, reaper.ImGui_GetWindowWidth(ctx) - (reaper.ImGui_CalcTextSize(ctx, "Focus") * 2))
if reaper.ImGui_Button(ctx, "Focus##"..i) then FocusToCCLane(i-128) end
end
end
end

reaper.ImGui_Text(ctx, "Velocity")
reaper.ImGui_SameLine(ctx, reaper.ImGui_GetWindowWidth(ctx) - (reaper.ImGui_CalcTextSize(ctx, "Focus") * 2))
if reaper.ImGui_Button(ctx, "Focus##velocity") then FocusToCCLane(512) end
reaper.ImGui_Text(ctx, "Velocity")
reaper.ImGui_SameLine(ctx, reaper.ImGui_GetWindowWidth(ctx) - (reaper.ImGui_CalcTextSize(ctx, "Focus") * 2))
if reaper.ImGui_Button(ctx, "Focus##velocity") then FocusToCCLane(512) end

reaper.ImGui_Text(ctx, "Pitch")
reaper.ImGui_SameLine(ctx, reaper.ImGui_GetWindowWidth(ctx) - (reaper.ImGui_CalcTextSize(ctx, "Focus") * 2))
if reaper.ImGui_Button(ctx, "Focus##pitch") then FocusToCCLane(513) end
reaper.ImGui_Text(ctx, "Pitch")
reaper.ImGui_SameLine(ctx, reaper.ImGui_GetWindowWidth(ctx) - (reaper.ImGui_CalcTextSize(ctx, "Focus") * 2))
if reaper.ImGui_Button(ctx, "Focus##pitch") then FocusToCCLane(513) end

if reaper.ImGui_Button(ctx, "Rename Last Clicked CC Lane...") then RenameAliasCCLane() end
if reaper.ImGui_Button(ctx, "Rename Last Clicked CC Lane...") then RenameAliasCCLane() end
end
end

StylingEnd(ctx)
Expand Down
Loading