From fd7c5d8b6fd801e62749f5a0eb17a8741d7b3c14 Mon Sep 17 00:00:00 2001 From: tuomiorava Date: Sat, 20 Jul 2024 03:52:35 +0300 Subject: [PATCH] Updated DoomSquirrel_Performance Arm track for MIDI * = Better operating behaviour, Performance Armed state toggle --- ...rmance Arm track for MIDI (sequential).lua | 89 ++++++++++++------ ...mance Arm track for MIDI (under mouse).lua | 91 ++++++++++++------- 2 files changed, 119 insertions(+), 61 deletions(-) diff --git a/Tracks/DoomSquirrel_Performance Arm track for MIDI (sequential).lua b/Tracks/DoomSquirrel_Performance Arm track for MIDI (sequential).lua index 0d06178..930bbbc 100644 --- a/Tracks/DoomSquirrel_Performance Arm track for MIDI (sequential).lua +++ b/Tracks/DoomSquirrel_Performance Arm track for MIDI (sequential).lua @@ -44,9 +44,11 @@ -- My music = http://iki.fi/atolonen -- @donation -- Donate via PayPal https://www.paypal.com/donate/?hosted_button_id=2BEA2GHZMAW9A --- @version 1.6 +-- @version 2.0 -- @changelog --- Better Scrolling (options to scroll track to view or scroll track to top in TCP / left in MCP) +-- Better operating behaviour. Now, first seeks the track to Performance Arm. If it is found, +-- un-Performance Arms all tracks, and afterwards Performance Arms the found track. +-- Also, toggles the Performance Armed state of a track when operating on the same one multiple times. ---------------------------- --- USER SETTINGS ---------- @@ -223,42 +225,69 @@ function performanceArmTrack(selIdx) end if (hasInst and tr_match_i == selIdx and (not TRACK_NAME_Q or string.find(trName, TRACK_NAME_Q))) then - reaper.SetTrackUIRecArm(tr, 1, 0) - reaper.SetTrackUIInputMonitor(tr, RECMON_ACTIVE, 0) - - -- Set input if it wasn't already MIDI - local i_RecInputVal = reaper.GetMediaTrackInfo_Value(tr, 'I_RECINPUT') - if (i_RecInputVal < 4096) then - reaper.SetMediaTrackInfo_Value(tr, 'I_RECINPUT', RECINPUT_ACTIVE ) - end - - if (TCP_SCROLL_TRACK_TO_VIEW and (TCP_ALWAYS_SCROLL_TO_TOP or not tcp_isTrackInView(tr))) then - tcp_scrollTrackToView(tr, TCP_ALWAYS_SCROLL_TO_TOP) - end - if (MCP_SCROLL_TRACK_TO_VIEW and (MCP_ALWAYS_SCROLL_TO_LEFT or not mcp_isTrackInView(tr))) then - reaper.SetMixerScroll(tr) - end - else local i_RecArmVal = reaper.GetMediaTrackInfo_Value(tr, 'I_RECARM') local i_RecMonVal = reaper.GetMediaTrackInfo_Value(tr, 'I_RECMON') - - if (i_RecArmVal == 1) then - -- If track was Performance Armed (and wasn't MIDI), and RECINPUT_DEFAULT is set - -- set input to default - local i_RecInputVal = reaper.GetMediaTrackInfo_Value(tr, 'I_RECINPUT') - if (RECINPUT_DEFAULT and i_RecInputVal < 4096 - and (i_RecMonVal == 1 or i_RecMonVal == 2)) then - reaper.SetMediaTrackInfo_Value(tr, 'I_RECINPUT', RECINPUT_DEFAULT) - end - - reaper.SetTrackUIRecArm(tr, 0, 0) - reaper.SetTrackUIInputMonitor(tr, 0, 0) + if (i_RecArmVal == 1 and (i_RecMonVal == 1 or i_RecMonVal == 2)) then + doUnPerformanceArmTrack(tr) + else + unPerformanceArmTracks() + doPerformanceArmTrack(tr) end end end end end +function doPerformanceArmTrack(track) + reaper.SetTrackUIRecArm(track, 1, 0) + reaper.SetTrackUIInputMonitor(track, RECMON_ACTIVE, 0) + + -- Set input if it wasn't already MIDI + local i_RecInputVal = reaper.GetMediaTrackInfo_Value(track, 'I_RECINPUT') + if (i_RecInputVal < 4096) then + reaper.SetMediaTrackInfo_Value(track, 'I_RECINPUT', RECINPUT_ACTIVE ) + end + + if (TCP_SCROLL_TRACK_TO_VIEW and (TCP_ALWAYS_SCROLL_TO_TOP or not tcp_isTrackInView(track))) then + tcp_scrollTrackToView(track, TCP_ALWAYS_SCROLL_TO_TOP) + end + if (MCP_SCROLL_TRACK_TO_VIEW and (MCP_ALWAYS_SCROLL_TO_LEFT or not mcp_isTrackInView(track))) then + reaper.SetMixerScroll(track) + end +end + +function unPerformanceArmTracks() + --reaper.ClearAllRecArmed() + + local trCount = reaper.CountTracks(0) + + for i = 0, trCount do + local tr = reaper.GetTrack(0, i) + + if (tr) then + doUnPerformanceArmTrack(tr) + end + end +end + +function doUnPerformanceArmTrack(track) + local i_RecArmVal = reaper.GetMediaTrackInfo_Value(track, 'I_RECARM') + local i_RecMonVal = reaper.GetMediaTrackInfo_Value(track, 'I_RECMON') + + if (i_RecArmVal == 1) then + -- If track was Performance Armed (and wasn't MIDI), and RECINPUT_DEFAULT is set + -- set input to default + local i_RecInputVal = reaper.GetMediaTrackInfo_Value(track, 'I_RECINPUT') + if (RECINPUT_DEFAULT and i_RecInputVal < 4096 + and (i_RecMonVal == 1 or i_RecMonVal == 2)) then + reaper.SetMediaTrackInfo_Value(track, 'I_RECINPUT', RECINPUT_DEFAULT) + end + + reaper.SetTrackUIRecArm(track, 0, 0) + reaper.SetTrackUIInputMonitor(track, 0, 0) + end +end + reaper.Undo_BeginBlock() if (not SELECTED_IDX) then getIdxByKey() diff --git a/Tracks/DoomSquirrel_Performance Arm track for MIDI (under mouse).lua b/Tracks/DoomSquirrel_Performance Arm track for MIDI (under mouse).lua index 7bed77e..eb69c18 100644 --- a/Tracks/DoomSquirrel_Performance Arm track for MIDI (under mouse).lua +++ b/Tracks/DoomSquirrel_Performance Arm track for MIDI (under mouse).lua @@ -16,9 +16,11 @@ -- My music = http://iki.fi/atolonen -- @donation -- Donate via PayPal https://www.paypal.com/donate/?hosted_button_id=2BEA2GHZMAW9A --- @version 1.5 +-- @version 2.0 -- @changelog --- Better Scrolling (options to scroll track to view or scroll track to top in TCP / left in MCP) +-- Better operating behaviour. Now, first seeks the track to Performance Arm. If it is found, +-- un-Performance Arms all tracks, and afterwards Performance Arms the found track. +-- Also, toggles the Performance Armed state of a track when operating on the same one multiple times. ---------------------------- --- USER SETTINGS ---------- @@ -123,7 +125,6 @@ end function performanceArmTrack() - local mcctx = reaper.BR_GetMouseCursorContext() local trCount = reaper.CountTracks(0) for i = 0, trCount do @@ -133,42 +134,70 @@ function performanceArmTrack() local _, trName = reaper.GetTrackName(tr) if (trName == mouseTrName) then - reaper.SetTrackUIRecArm(tr, 1, 0) - reaper.SetTrackUIInputMonitor(tr, RECMON_ACTIVE, 0) - - -- Set input if it wasn't already MIDI - local i_RecInputVal = reaper.GetMediaTrackInfo_Value(tr, 'I_RECINPUT') - if (i_RecInputVal < 4096) then - reaper.SetMediaTrackInfo_Value(tr, 'I_RECINPUT', RECINPUT_ACTIVE ) - end - - if (TCP_SCROLL_TRACK_TO_VIEW and (TCP_ALWAYS_SCROLL_TO_TOP or not tcp_isTrackInView(tr)) and mcctx == "mcp") then - tcp_scrollTrackToView(tr, TCP_ALWAYS_SCROLL_TO_TOP) - end - if (MCP_SCROLL_TRACK_TO_VIEW and (MCP_ALWAYS_SCROLL_TO_LEFT or not mcp_isTrackInView(tr)) and (mcctx == "tcp" or mcctx == "arrange")) then - reaper.SetMixerScroll(tr) - end - else local i_RecArmVal = reaper.GetMediaTrackInfo_Value(tr, 'I_RECARM') local i_RecMonVal = reaper.GetMediaTrackInfo_Value(tr, 'I_RECMON') - - if (i_RecArmVal == 1) then - -- If track was Performance Armed (and wasn't MIDI), and RECINPUT_DEFAULT is set - -- set input to default - local i_RecInputVal = reaper.GetMediaTrackInfo_Value(tr, 'I_RECINPUT') - if (RECINPUT_DEFAULT and i_RecInputVal < 4096 - and (i_RecMonVal == 1 or i_RecMonVal == 2)) then - reaper.SetMediaTrackInfo_Value(tr, 'I_RECINPUT', RECINPUT_DEFAULT) - end - - reaper.SetTrackUIRecArm(tr, 0, 0) - reaper.SetTrackUIInputMonitor(tr, 0, 0) + if (i_RecArmVal == 1 and (i_RecMonVal == 1 or i_RecMonVal == 2)) then + doUnPerformanceArmTrack(tr) + else + unPerformanceArmTracks() + doPerformanceArmTrack(tr) end end end end end +function doPerformanceArmTrack(track) + local mcctx = reaper.BR_GetMouseCursorContext() + reaper.SetTrackUIRecArm(track, 1, 0) + reaper.SetTrackUIInputMonitor(track, RECMON_ACTIVE, 0) + + -- Set input if it wasn't already MIDI + local i_RecInputVal = reaper.GetMediaTrackInfo_Value(track, 'I_RECINPUT') + if (i_RecInputVal < 4096) then + reaper.SetMediaTrackInfo_Value(track, 'I_RECINPUT', RECINPUT_ACTIVE ) + end + + if (TCP_SCROLL_TRACK_TO_VIEW and (TCP_ALWAYS_SCROLL_TO_TOP or not tcp_isTrackInView(track)) and mcctx == "mcp") then + tcp_scrollTrackToView(track, TCP_ALWAYS_SCROLL_TO_TOP) + end + if (MCP_SCROLL_TRACK_TO_VIEW and (MCP_ALWAYS_SCROLL_TO_LEFT or not mcp_isTrackInView(track)) and (mcctx == "tcp" or mcctx == "arrange")) then + reaper.SetMixerScroll(track) + end +end + +function unPerformanceArmTracks() + --reaper.ClearAllRecArmed() + + local trCount = reaper.CountTracks(0) + + for i = 0, trCount do + local tr = reaper.GetTrack(0, i) + + if (tr) then + doUnPerformanceArmTrack(tr) + end + end +end + +function doUnPerformanceArmTrack(track) + local i_RecArmVal = reaper.GetMediaTrackInfo_Value(track, 'I_RECARM') + local i_RecMonVal = reaper.GetMediaTrackInfo_Value(track, 'I_RECMON') + + if (i_RecArmVal == 1) then + -- If track was Performance Armed (and wasn't MIDI), and RECINPUT_DEFAULT is set + -- set input to default + local i_RecInputVal = reaper.GetMediaTrackInfo_Value(track, 'I_RECINPUT') + if (RECINPUT_DEFAULT and i_RecInputVal < 4096 + and (i_RecMonVal == 1 or i_RecMonVal == 2)) then + reaper.SetMediaTrackInfo_Value(track, 'I_RECINPUT', RECINPUT_DEFAULT) + end + + reaper.SetTrackUIRecArm(track, 0, 0) + reaper.SetTrackUIInputMonitor(track, 0, 0) + end +end + reaper.Undo_BeginBlock() performanceArmTrack() reaper.Undo_EndBlock("Performance Arm track for MIDI (under mouse)", -1) \ No newline at end of file