From 8c100ef186c83bbe188a3dad3f27e1298e361719 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludwig=20Fr=C3=BChsch=C3=BCtz?= Date: Sun, 26 Jan 2020 23:41:10 +0100 Subject: [PATCH] 4PointCutting: Cleaned up comments, addd headers --- 4PointCutting/4Pcut_execute.lua | 20 +++++++++++-------- 4PointCutting/4Pcut_reset_markers.lua | 9 +++++++++ 4PointCutting/4Pcut_reset_src-dest-tracks.lua | 8 ++++++++ 4PointCutting/4Pcut_select_dst-track.lua | 10 +++++++++- 4PointCutting/4Pcut_select_src-tracks.lua | 9 +++++++++ 4PointCutting/4Pcut_set_DST-IN.lua | 8 ++++++++ 4PointCutting/4Pcut_set_DST-OUT.lua | 8 ++++++++ 4PointCutting/4Pcut_set_SRC-IN.lua | 8 ++++++++ 4PointCutting/4Pcut_set_SRC-OUT.lua | 8 ++++++++ 4PointCutting/4Pcut_set_dst-track.lua | 9 +++++++++ 4PointCutting/4Pcut_set_src-tracks.lua | 8 ++++++++ 11 files changed, 96 insertions(+), 9 deletions(-) diff --git a/4PointCutting/4Pcut_execute.lua b/4PointCutting/4Pcut_execute.lua index 53a1661..2b6bf00 100644 --- a/4PointCutting/4Pcut_execute.lua +++ b/4PointCutting/4Pcut_execute.lua @@ -1,3 +1,12 @@ +-- Reaper Scripts for 4 point editing. This script executes "one edit" and copies source material from +-- already set source in/out markers to also set destination in/out markers. +-- 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 +-- Requires: Reaper 5 or 6 +-- Requires: This script goes with several other scripts that work closely together. + local stored_cursorPos = 0 local stored_timeSelStart = 0 local stored_timeSelEnd = 0 @@ -17,6 +26,7 @@ function msg(m) reaper.ShowConsoleMsg(tostring(m) .. "\n") end +-- Selects the source tracks, or, if not stored in rpp, selects all tracks function select_src_tracks() local tracks_str = '' local tracks = {} @@ -29,7 +39,6 @@ function select_src_tracks() table.insert(tracks, reaper.BR_GetMediaTrackByGUID(0, '{' .. str)) end -- select tracks - --reaper.Main_OnCommand(40297, 0) -- Unselect all tracks for _, track in ipairs(tracks) do reaper.SetTrackSelected(track, true) end @@ -41,6 +50,7 @@ function select_src_tracks() end end +-- Select the destination tracks, or, if not stored in rpp, the first track function select_dst_track_only() local track_str = '' local retval @@ -68,8 +78,7 @@ end if reaper.CountSelectedTracks(0) > 0then reaper.Main_OnCommand(40297, 0) -- Unselect all tracks end ---reaper.Main_OnCommand(40769, 0) -select_src_tracks() -- select tracks specified in rpp (by using 4Pcut_set_src-tracks.lua) +select_src_tracks() -- run through all markers and get position of the 4 points local nof_markers = 0 @@ -113,17 +122,12 @@ end -- Do stuff before actual edits... reaper.Undo_BeginBlock() - -- Set Source Time selection and Copy Items reaper.GetSet_LoopTimeRange(true, false, mark_srcin_pos, mark_srcout_pos, false) reaper.Main_OnCommand(40718, 0) -- select items on selected tracks under time selection reaper.Main_OnCommand(40060, 0) -- copy selected items under time selection 41383 --- reaper.Main_OnCommand( reaper.NamedCommandLookup('_SWS_SMARTCOPY'), 0 ) - -- Move edit cursor to Dest-In and Paste ---reaper.GoToMarker(0, mark_dstin_id, false) --- reaper.GetSet_LoopTimeRange(true, false, mark_dstin_pos, mark_dstout_pos, false) reaper.MoveEditCursor(mark_dstin_pos - reaper.GetCursorPosition(), false) select_dst_track_only() reaper.Main_OnCommand(40058, 0) -- paste item diff --git a/4PointCutting/4Pcut_reset_markers.lua b/4PointCutting/4Pcut_reset_markers.lua index 80a7387..bc52211 100644 --- a/4PointCutting/4Pcut_reset_markers.lua +++ b/4PointCutting/4Pcut_reset_markers.lua @@ -1,3 +1,12 @@ +-- Reaper Script for 4 point editing. This script deletes all the special markers that are +-- used to define source and destination areas. +-- 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 +-- Requires: Reaper 5 or 6 +-- Requires: This script goes with several other scripts that work closely together. + local nof_markers = 0 local id = -1 local name = '' diff --git a/4PointCutting/4Pcut_reset_src-dest-tracks.lua b/4PointCutting/4Pcut_reset_src-dest-tracks.lua index 8cbbb97..208556e 100644 --- a/4PointCutting/4Pcut_reset_src-dest-tracks.lua +++ b/4PointCutting/4Pcut_reset_src-dest-tracks.lua @@ -1,2 +1,10 @@ +-- Reaper Scripts for 4 point editing. This script resets the source and destination tracks to "all" and "first". +-- 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 +-- Requires: Reaper 5 or 6 +-- Requires: This script goes with several other scripts that work closely together. + reaper.SetProjExtState(0, '4PointCut', 'dst_track', '') reaper.SetProjExtState(0, '4PointCut', 'src_tracks', '') \ No newline at end of file diff --git a/4PointCutting/4Pcut_select_dst-track.lua b/4PointCutting/4Pcut_select_dst-track.lua index d9705f7..57e3d68 100644 --- a/4PointCutting/4Pcut_select_dst-track.lua +++ b/4PointCutting/4Pcut_select_dst-track.lua @@ -1,3 +1,11 @@ +-- Reaper Scripts for 4 point editing. This script selects the previous set destination track +-- 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 +-- Requires: Reaper 5 or 6 +-- Requires: This script goes with several other scripts that work closely together. + -- Send a message to the console function msg(m) reaper.ShowConsoleMsg(tostring(m) .. "\n") @@ -6,7 +14,7 @@ end -- START HERE vvvvvvvvvvvvvvvvv local track_str = '' local retval - +-- get the setting stored in rpp and select the track retval, track_str = reaper.GetProjExtState(0, '4PointCut', 'dst_track') if retval > 0 then -- variable exists in rpp reaper.SetOnlyTrackSelected(reaper.BR_GetMediaTrackByGUID(0, track_str)) diff --git a/4PointCutting/4Pcut_select_src-tracks.lua b/4PointCutting/4Pcut_select_src-tracks.lua index 20f3a8a..14efa95 100644 --- a/4PointCutting/4Pcut_select_src-tracks.lua +++ b/4PointCutting/4Pcut_select_src-tracks.lua @@ -1,3 +1,11 @@ +-- Reaper Scripts for 4 point editing. This script selects the previous set source tracks +-- 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 +-- Requires: Reaper 5 or 6 +-- Requires: This script goes with several other scripts that work closely together. + -- Send a message to the console function msg(m) reaper.ShowConsoleMsg(tostring(m) .. "\n") @@ -8,6 +16,7 @@ local tracks_str = '' local tracks = {} local retval +-- get stored GUIDs from rpp and select the tracks retval, tracks_str = reaper.GetProjExtState(0, '4PointCut', 'src_tracks') if retval > 0 then -- variable exists in rpp -- separate GUIDs and populate track table diff --git a/4PointCutting/4Pcut_set_DST-IN.lua b/4PointCutting/4Pcut_set_DST-IN.lua index fc08dc6..0fdbb55 100644 --- a/4PointCutting/4Pcut_set_DST-IN.lua +++ b/4PointCutting/4Pcut_set_DST-IN.lua @@ -1,3 +1,11 @@ +-- Reaper Scripts for 4 point editing. This script sets the Destination Start marker to the position of the edit cursor +-- 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 +-- Requires: Reaper 5 or 6 +-- Requires: This script goes with several other scripts that work closely together. + local nof_markers = 0 local id = -1 diff --git a/4PointCutting/4Pcut_set_DST-OUT.lua b/4PointCutting/4Pcut_set_DST-OUT.lua index 202aff2..00f3b27 100644 --- a/4PointCutting/4Pcut_set_DST-OUT.lua +++ b/4PointCutting/4Pcut_set_DST-OUT.lua @@ -1,3 +1,11 @@ +-- Reaper Scripts for 4 point editing. This script sets the Destination End marker to the position of the edit cursor +-- 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 +-- Requires: Reaper 5 or 6 +-- Requires: This script goes with several other scripts that work closely together. + local nof_markers = 0 local id = -1 diff --git a/4PointCutting/4Pcut_set_SRC-IN.lua b/4PointCutting/4Pcut_set_SRC-IN.lua index dbeb5ef..ca7e335 100644 --- a/4PointCutting/4Pcut_set_SRC-IN.lua +++ b/4PointCutting/4Pcut_set_SRC-IN.lua @@ -1,3 +1,11 @@ +-- Reaper Scripts for 4 point editing. This script sets the Source Start marker to the position of the edit cursor +-- 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 +-- Requires: Reaper 5 or 6 +-- Requires: This script goes with several other scripts that work closely together. + local nof_markers = 0 local id = -1 diff --git a/4PointCutting/4Pcut_set_SRC-OUT.lua b/4PointCutting/4Pcut_set_SRC-OUT.lua index aa93d47..8a54876 100644 --- a/4PointCutting/4Pcut_set_SRC-OUT.lua +++ b/4PointCutting/4Pcut_set_SRC-OUT.lua @@ -1,3 +1,11 @@ +-- Reaper Scripts for 4 point editing. This script sets the Source End marker to the position of the edit cursor +-- 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 +-- Requires: Reaper 5 or 6 +-- Requires: This script goes with several other scripts that work closely together. + local nof_markers = 0 local id = -1 diff --git a/4PointCutting/4Pcut_set_dst-track.lua b/4PointCutting/4Pcut_set_dst-track.lua index ea33216..adc81af 100644 --- a/4PointCutting/4Pcut_set_dst-track.lua +++ b/4PointCutting/4Pcut_set_dst-track.lua @@ -1,3 +1,12 @@ +-- Reaper Scripts for 4 point editing. This script sets the Destination track and stores it to the rpp. +-- Only one (the first) selected track is used here. +-- 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 +-- Requires: Reaper 5 or 6 +-- Requires: This script goes with several other scripts that work closely together. + -- Send a message to the console function msg(m) reaper.ShowConsoleMsg(tostring(m) .. "\n") diff --git a/4PointCutting/4Pcut_set_src-tracks.lua b/4PointCutting/4Pcut_set_src-tracks.lua index 210963d..952e2c2 100644 --- a/4PointCutting/4Pcut_set_src-tracks.lua +++ b/4PointCutting/4Pcut_set_src-tracks.lua @@ -1,3 +1,11 @@ +-- Reaper Scripts for 4 point editing. This script sets the source tracks and stores it to the rpp. +-- 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 +-- Requires: Reaper 5 or 6 +-- Requires: This script goes with several other scripts that work closely together. + -- Send a message to the console function msg(m) reaper.ShowConsoleMsg(tostring(m) .. "\n")