Reaper-Tools

Strata_Copy selection to next project.lua (8680B)

---

 --[[
   @description Strata_Copy selection to next project
   @author Audiokinetic
   @version 1.0.2
   @changelog
     SP-4763: Remove the alpha flag
   @provides
     [main=main] . https://raw.githubusercontent.com/audiokinetic/Reaper-Tools/$commit/Scripts/Strata_Copy%20selection%20to%20next%20project.lua
   @about
     # Copy selection to next project
     This script will identify regions and clips within user's time selection, hide any tracks that are not parents and have NO items - or tracks that are purposefully muted.
     Project content is then copied from the current project tab to the next open project tab to the immediate right.
 
     ## Setup
     User should have a Strata (or other) collection project open and the desired project they would like to copy strata takes/regions etc. into. The destination project should be the NEXT tab to the right
     of the source/Strata project. Make a selection in the source project timeline and run the script.
 
     ## Contributing
     The repository is not open to pull request but in the case of a bug report, bugfix or a suggestions, please feel free to contact us
     via the [feature request section](http://www.audiokinetic.com/qa/feature-requests/) of Audiokinetic's Community Q&A.
 
     ## Legal
     Copyright (c) 2024 [Audiokinetic Inc.](https://audiokinetic.com) All rights reserved.
 
     ## License
     Copyright (c) 2024 AUDIOKINETIC Inc.
 
     The script in this file is licensed to use under the license available at:
     https://raw.githubusercontent.com/audiokinetic/Reaper-Tools/main/License.txt (the "License").
     You may not use this file except in compliance with the License.
 
     Unless required by applicable law or agreed to in writing, software distributed
     under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR
     CONDITIONS OF ANY KIND, either express or implied.  See the License for the
     specific language governing permissions and limitations under the License.
   @license
     Copyright (c) 2024 AUDIOKINETIC Inc.
 
     The script in this file is licensed to use under the license available at:
     https://raw.githubusercontent.com/audiokinetic/Reaper-Tools/main/License.txt (the "License").
     You may not use this file except in compliance with the License.
 
     Unless required by applicable law or agreed to in writing, software distributed
     under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR
     CONDITIONS OF ANY KIND, either express or implied.  See the License for the
     specific language governing permissions and limitations under the License.
 ]]--
 
 -- Command IDs used for reaper.Main_OnCommand()
 local EDIT_UNDO = 40029                      -- Edit: Undo
 local SELECT_ALL_ITEMS = 40182               -- Item: Select all items
 local COPY_TRACKS = 40210                    -- Track: Copy tracks
 local PASTE_TRACKS = 42398                   -- Item: Paste items/tracks (Ctrl-V)
 local NEW_PROJECT_TAB = 40859                -- New project tab
 local ACTIVATE_NEXT_PROJECT_TAB = 40861      -- Next project tab
 local ACTIVATE_PREVIOUS_PROJECT_TAB = 40862  -- Previous project tab
 
 local currentProj = reaper.EnumProjects(-1)
 local nbProjectTabs = 0
 if currentProj then
   repeat
     reaper.Main_OnCommand(ACTIVATE_NEXT_PROJECT_TAB, 0)
     local proj = reaper.EnumProjects(-1)
     nbProjectTabs = nbProjectTabs + 1
   until proj == currentProj
 
   local lastProject = reaper.EnumProjects(nbProjectTabs-1)
   if lastProject == currentProj then
     reaper.Main_OnCommand(NEW_PROJECT_TAB, 0)
     reaper.Main_OnCommand(ACTIVATE_PREVIOUS_PROJECT_TAB, 0)
   end
 end
 
 local time_sel_start, time_sel_end = reaper.GetSet_LoopTimeRange2(currentProj, false, false, 0, 0, false)
 if time_sel_start == time_sel_end then
   reaper.ShowMessageBox("There is nothing to copy. Please make a time selection!", "Strata Copy Script Error", 0)
   return
 end
 
 -- No point continuing script if there are no tracks selected!
 if reaper.CountSelectedTracks(currentProj) == 0 then
   reaper.ShowMessageBox("No selected tracks to copy!", "Strata Copy Script Error", 0)
   return
 end
 
 local all_tracks = {}
 local track_children = {}
 
 -- Collect all tracks AND identify items that are within the time selection
 local item_buffer = {}
 local track_count = reaper.CountTracks(currentProj)
 local firstItemPos = 9999999
 for i = 0, track_count - 1 do
   local track = reaper.GetTrack(currentProj, i)
   table.insert(all_tracks, track)
 
   local parent_track = reaper.GetParentTrack(track)
   if parent_track then
     if not track_children[parent_track] then
       track_children[parent_track] = {}
     end
     table.insert(track_children[parent_track], track)
   end
 
   local item_count = reaper.CountTrackMediaItems(track)
   for j = 0, item_count - 1 do
     local item = reaper.GetTrackMediaItem(track, j)
     local item_pos = reaper.GetMediaItemInfo_Value(item, "D_POSITION")
 
     if item_pos < time_sel_start or item_pos > time_sel_end then
       table.insert(item_buffer, {track = track, item = item})
     elseif item_pos < firstItemPos then
       firstItemPos = item_pos
     end
   end
 end
 
 -- Safety first
 if firstItemPos == 9999999 then
   firstItemPos = 0
 end
 
 -- Begin Undo Block
 reaper.Undo_BeginBlock()
 
 -- Delete items outside time selection
 for _, data in ipairs(item_buffer) do
   reaper.DeleteTrackMediaItem(data.track, data.item)
 end
 
 -- This recursive function returns true for tracks that should be copied
 local function should_copy_track(track)
   if reaper.CountTrackMediaItems(track) > 0 then
     return true
   elseif reaper.GetMediaTrackInfo_Value(track, "B_MUTE") == 1 then
     return false
   end
 
   local children = track_children[track]
   if children then
     for _, child_track in ipairs(children) do
       if should_copy_track(child_track) then
         return true
       end
     end
   end
 end
 
 -- Hide tracks that are muted or have no items or only have children that must be hidden
 for _, track in ipairs(all_tracks) do
   if not should_copy_track(track) then
     reaper.SetMediaTrackInfo_Value(track, "B_SHOWINMIXER", 0)
     reaper.SetMediaTrackInfo_Value(track, "B_SHOWINTCP", 0)
   end
 end
 
 -- Open next project to get the destination position offset
 reaper.Main_OnCommand(ACTIVATE_NEXT_PROJECT_TAB, 0)
 local cursorPosition = reaper.GetCursorPosition()
 local itemPositionOffset = 0 - firstItemPos + cursorPosition
 
 -- Go back to previous project tab and move all items
 reaper.Main_OnCommand(ACTIVATE_PREVIOUS_PROJECT_TAB, 0)
 for _, track in ipairs(all_tracks) do
   if should_copy_track(track) then
 
     local item_count = reaper.CountTrackMediaItems(track)
     local track_items = {}
     for j = 0, item_count - 1 do
       local item = reaper.GetTrackMediaItem(track, j)
       local item_pos = reaper.GetMediaItemInfo_Value(item, "D_POSITION")
       table.insert(track_items, {item = item, item_pos = item_pos})
     end
     for _, data in ipairs(track_items) do
       reaper.SetMediaItemPosition(data.item, data.item_pos + itemPositionOffset, false)
     end
   end
 end
 
 -- Select and copy items and tracks
 reaper.Main_OnCommand(SELECT_ALL_ITEMS, 0)
 -- Only copies selected tracks
 reaper.Main_OnCommand(COPY_TRACKS, 0)
 
 -- No media in region to be copied
 if reaper.CountSelectedMediaItems(currentProj) == 0 then
   reaper.Undo_EndBlock("No media in region to be copied", -1)
   reaper.Main_OnCommand(EDIT_UNDO, 0)
   reaper.ShowMessageBox("No media in region to be copied!", "Strata Copy Script Error", 0)
   return
 end
 
 -- Collect regions inside the time selection
 local regions_to_copy = {}
 local num_markers_and_regions = reaper.CountProjectMarkers(currentProj)
 for i = 0, num_markers_and_regions - 1 do
   local _, is_rgn, pos, rgn_end, name, id, color = reaper.EnumProjectMarkers3(currentProj, i)
   if is_rgn and pos >= time_sel_start and rgn_end <= time_sel_end then
     table.insert(regions_to_copy, {pos = pos, rgn_end = rgn_end, name = name, id = id, color = color})
   end
 end
 
 reaper.TrackList_AdjustWindows(false)
 reaper.UpdateArrange()
 
 
 -- End Undo Block
 reaper.Undo_EndBlock("Remove contents outside time sel", -1)
 reaper.Main_OnCommand(EDIT_UNDO, 0)
 
 
 -- Activate the other open project window and paste tracks and regions
 reaper.Main_OnCommand(ACTIVATE_NEXT_PROJECT_TAB, 0)
 
 -- Begin Undo Block
 reaper.Undo_BeginBlock()
 
 reaper.Main_OnCommand(PASTE_TRACKS, 0)
 for _, region in ipairs(regions_to_copy) do
   reaper.AddProjectMarker2(0, true, region.pos + itemPositionOffset, region.rgn_end + itemPositionOffset, region.name, -1, region.color)
 end
 
 -- End Undo Block
 reaper.Undo_EndBlock("Pasted tracks and items", 0)
 
 -- Uncomment the next line to go back to the previous tab after script execution
 --reaper.Main_OnCommand(ACTIVATE_PREVIOUS_PROJECT_TAB, 0)