commit 8f259badba8dea287a47ca0347a9622e56eb6937
parent b38b5907f0d807f824808b34d18bcf944dbd7fe3
Author: Pascal Maheux <pmaheux@audiokinetic.com>
Date: Wed, 2 Oct 2024 10:57:38 -0400
SP-4763: Rename script to Strata_Copy selection to next project
Change-Id: I24fb3e105ba90097a989e909e8224b548b8865d6
Diffstat:
2 files changed, 227 insertions(+), 227 deletions(-)
diff --git a/Scripts/Strata_Copy collection elements within selection to next project tab.lua b/Scripts/Strata_Copy collection elements within selection to next project tab.lua
@@ -1,227 +0,0 @@
---[[
- @description Strata_Copy collection elements within selection to next project tab
- @author Audiokinetic
- @version 1.0.1
- @changelog
- SP-4458: Fix if/then bug.
- @provides
- [main=main] . https://raw.githubusercontent.com/audiokinetic/Reaper-Tools/$commit/Scripts/Strata_Copy%20collection%20elements%20within%20selection%20to%20next%20project%20tab.lua
- @about
- # Copy collection elements within selection to next project tab
- 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)
diff --git a/Scripts/Strata_Copy selection to next project.lua b/Scripts/Strata_Copy selection to next project.lua
@@ -0,0 +1,227 @@
+--[[
+ @description Strata_Copy selection to next project
+ @author Audiokinetic
+ @version 1.0.2a
+ @changelog
+ SP-4763: Rename Script to "Strata_Copy selection to next project"
+ @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)
