93 lines
3.9 KiB
Lua
93 lines
3.9 KiB
Lua
-- Reaper Script that switches the item under the edit cursor, on the specified track to
|
|
-- the next (or previous) take. To specify the track, this script MUST be called by a
|
|
-- OSC message defined as a shortcut for this script in the action list.
|
|
-- The OSC message must carry a float value as data which is the track (zero based)
|
|
-- divided by 100 e.g. 0.42 stands for track number 43 (or with osc_first_track_nr = 1
|
|
-- it may stand for track number 42)
|
|
-- Features:
|
|
-- - stores selected tracks and items before execution and restores them afterwards
|
|
-- - saves only one consolidated undo point
|
|
-- Requires
|
|
-- - Reaper 5 or 6
|
|
-- - SWS extensions must be installed (http://standingwaterstudios.com/)
|
|
-- - can only be used by a special OSC message, not by keyboard shortcut or "action" OSC message
|
|
-- Author: Ludwig Frühschütz
|
|
-- Source: https://www.eleton-audio.de
|
|
-- Git: https://files.eleton-audio.de/gitea/Ludwig/Reaper-Scripts.git
|
|
-- License: GPL v3.0
|
|
|
|
-- Settings that may be edited:
|
|
local osc_first_track_nr = 0 -- specify if OSC track numbers are zero based (= 0) or one based (= 1)
|
|
local select_next_take = true -- select if the script switches to next take (= true) of previous take (= false)
|
|
|
|
-- some variables...
|
|
local init_sel_tracks = {}
|
|
local init_sel_items = {}
|
|
local tracknr = 0
|
|
local osc_tracknr = -1
|
|
local osc_resolution = 1
|
|
|
|
-- Send a message to the console
|
|
function msg(m)
|
|
reaper.ShowConsoleMsg(tostring(m) .. "\n")
|
|
end
|
|
|
|
-- Round number
|
|
function round(num, numDecimalPlaces)
|
|
local mult = 10^(numDecimalPlaces or 0)
|
|
return math.floor(num * mult + 0.5) / mult
|
|
end
|
|
|
|
-- START HERE
|
|
-- check if SWS extensions are present, otherwise quit
|
|
if reaper.NamedCommandLookup('_SWS_ABOUT') <= 0 then
|
|
msg('Item under cursor - next take script:')
|
|
msg('SWS extensions missing, please install them first!')
|
|
return
|
|
end
|
|
|
|
-- Get track number from osc message that triggered this script. If not specified, quit.
|
|
_, _, _, _, _, osc_resolution, osc_tracknr = reaper.get_action_context()
|
|
if osc_tracknr < 0 then
|
|
msg('Item under cursor - next take script:')
|
|
msg('No valid track number specified or script not triggered by OSC message!')
|
|
return
|
|
end
|
|
tracknr = round((osc_tracknr / osc_resolution) * 100, 0) - osc_first_track_nr
|
|
-- Quit if there is no track with the specified number
|
|
if tracknr >= reaper.CountTracks(0) then -- note: tracknr is zero-based!
|
|
return
|
|
end
|
|
|
|
-- store selected tracks and items before work and begin undo block...
|
|
reaper.Undo_BeginBlock()
|
|
for i = 0, reaper.CountSelectedTracks(0)-1 do
|
|
init_sel_tracks[i+1] = reaper.GetSelectedTrack(0, i)
|
|
end
|
|
reaper.Main_OnCommand(40297, 0) -- Unselect all tracks
|
|
for i = 0, reaper.CountSelectedMediaItems(0)-1 do
|
|
init_sel_items[i+1] = reaper.GetSelectedMediaItem(0, i)
|
|
end
|
|
reaper.Main_OnCommand(40289, 0) -- Unselect all items
|
|
|
|
-- Select item on specified track under edit cursor:
|
|
local track = reaper.GetTrack(0, tracknr) -- Get track object from track number (zero based)
|
|
reaper.SetTrackSelected(track, true) -- Select track
|
|
reaper.Main_OnCommand( reaper.NamedCommandLookup('_XENAKIOS_SELITEMSUNDEDCURSELTX'), 0 ) -- select item under edit cursor on selected track
|
|
-- Switch item to next take or previous take (depending on settings in this file)
|
|
if select_next_take then
|
|
reaper.Main_OnCommand(40125, 0) -- Switch item to next take
|
|
else
|
|
reaper.Main_OnCommand(40126, 0) -- Switch item to next take
|
|
end
|
|
|
|
-- restore selected tracks and items after work and end undo block
|
|
reaper.Main_OnCommand(40297, 0) -- Unselect all tracks
|
|
for _, track in ipairs(init_sel_tracks) do
|
|
reaper.SetTrackSelected(track, true)
|
|
end
|
|
reaper.Main_OnCommand(40289, 0) -- Unselect all items
|
|
for _, item in ipairs(init_sel_items) do
|
|
reaper.SetMediaItemSelected(item, true)
|
|
end
|
|
reaper.Undo_EndBlock('Changed take for item under cursor (OSC)', 4) -- 4 is a flag for actions concerning items |