Skip to content

Commit

Permalink
Release Smart split items using mouse cursor context (also edit curso…
Browse files Browse the repository at this point in the history 
…r, razor area and time selection) v3.30 (#1404)

- fixed bug for media edit groups when smaller items didn't obey the grouping
- fixed bug when stretch markers were produce incorrect take time offset
  • Loading branch information
@AZpercussion
AZpercussion authored Jun 23, 2024
1 parent 3fc1ab0 commit 4f168fa
Showing 1 changed file with 137 additions and 24 deletions.
161 changes: 137 additions & 24 deletions Items Editing/az_Smart split items by mouse cursor.lua
View file
Original file line number Diff line number Diff line change
@@ -1,10 +1,9 @@
-- @description Smart split items using mouse cursor context (also edit cursor, razor area and time selection)
-- @author AZ
-- @version 3.20
-- @version 3.30
-- @changelog
-- - Added TCP context action
-- - fixed bug with empty takes
-- - sticked to imgui version 8.7.6 for stable work
-- - fixed bug for media edit groups when smaller items didn't obey the grouping
-- - fixed bug when stretch markers were produce incorrect take time offset
-- @provides [main] az_Smart split items by mouse cursor/az_Open options for az_Smart split items by mouse cursor.lua
-- @link Forum thread https://forum.cockos.com/showthread.php?t=259751
-- @donation Donate via PayPal https://www.paypal.me/AZsound
Expand Down Expand Up @@ -309,7 +308,7 @@ function OptionsWindow()

reaper.ImGui_PushItemWidth(ctx, fontSize*5 )
_, tcpActIDstr = reaper.ImGui_InputText
(ctx,'Track Control Panel context action (paste command ID):\n'..tcpActName, tcpActIDstr)
(ctx,'TCP context action (paste command ID):\n'..tcpActName, tcpActIDstr)

reaper.ImGui_Text(ctx, '' ) --space before buttons
reaper.ImGui_Text(ctx, '' ) --space before buttons
Expand Down Expand Up @@ -836,17 +835,13 @@ function SplitRazorEdits(razorEdits)
local areaData = razorEdits[i]
if not areaData.isEnvelope then
table.move(areaData.items, 1, #areaData.items, #areaData.grItems+1, areaData.grItems)
--msg('areaData.items') for j,v in pairs(areaData.items) do msg(v) end
--msg('areaData.grItems') for j,v in pairs(areaData.grItems) do msg(v) end
local sTime, selItems, itemsToRegroup, newItems =
Split_Items_At_Time(areaData.items, areaData.grItems, {areaData.areaStart}, areaData.prevEdge)

table.move(sTime, 1, #sTime, #SplitsT+1, SplitsT)
--table.move(newItems, 1, #newItems, #areaData.items+1, areaData.items)
table.move(newItems, 1, #newItems, #areaData.grItems+1, areaData.grItems)
razorEdits[i]['itemsToRegroup'] = itemsToRegroup
--msg(razorEdits[i]['itemsToRegroup']['SplsGrs'])
--msg(itemsToRegroup.SplGrs)
--razorEdits[i]['items'] = areaData.items

end
i=i-1
end
Expand All @@ -871,8 +866,6 @@ function SplitRazorEdits(razorEdits)
while i > 0 do
local areaData = razorEdits[i]
if not areaData.isEnvelope then
--msg('areaData.items') for j,v in pairs(areaData.items) do msg(v) end
--msg('areaData.grItems') for j,v in pairs(areaData.grItems) do msg(v) end
local sTime, selItems, itemsToRegroup =
Split_Items_At_Time(areaData.items, areaData.grItems, {areaData.areaEnd}, areaData.areaStart)
table.move(sTime, 1, #sTime, #SplitsT+1, SplitsT)
Expand Down Expand Up @@ -987,11 +980,6 @@ function AddGroupInfo(AreasT)
AreasT[i] = areaData
end -- if not isEnvelope
end -- for AreasT
--[[
for i = 1, #RegroupAreasIDs do --servise msg
local block = RegroupAreasIDs[i]
msg(table.concat(block, ' - '))
end]]

AreasT.RegroupAreasIDs = RegroupAreasIDs
return AreasT
Expand Down Expand Up @@ -1273,7 +1261,7 @@ function AddGroupedItems(itemsTable, retWithoutInputs) --table, boolean
if retWithoutInputs == false then
table.move(itemsTable, 1, #itemsTable, #grItems+1, grItems)
end

--msg(#grItems)
return grItems
end

Expand Down Expand Up @@ -1306,6 +1294,118 @@ end

-------------------------------

function AddTrMediaEditingGroup(Items, timeT)
local GrSelTrs = reaper.GetToggleCommandState(42581) --Track: Automatically group selected tracks for media/razor editing
local GrAllTrs = reaper.GetToggleCommandState(42580) --Track: Automatically group all tracks for media/razor editing

for t, time in ipairs(timeT) do
local Tracks = {}
local ItemsH = {}
local GrTracks = {}
local GrIDsLow = 0
local GrIDsHigh = 0

for i, item in ipairs(Items) do
local ipos = reaper.GetMediaItemInfo_Value(item, 'D_POSITION')
local iend = ipos + reaper.GetMediaItemInfo_Value(item, 'D_LENGTH')
local tr = reaper.GetMediaItemTrack(item)
if time > ipos and time < iend then
FieldMatch(Tracks, tr, true)
local mode = reaper.GetMediaTrackInfo_Value(tr, 'I_FREEMODE')
local iY = reaper.GetMediaItemInfo_Value(item, 'F_FREEMODE_Y')
local iH = reaper.GetMediaItemInfo_Value(item, 'F_FREEMODE_H')
local iL = reaper.GetMediaItemInfo_Value(item, 'I_FIXEDLANE')
ItemsH[tostring(item)] = {iY, iH, iL, mode}
end
end

for i, tr in ipairs(Tracks) do -- collect gr info for tracks with initially captured items
local intlow = reaper.GetSetTrackGroupMembership( tr, "MEDIA_EDIT_LEAD", 0, 0 )
local inthigh = reaper.GetSetTrackGroupMembershipHigh( tr, "MEDIA_EDIT_LEAD", 0, 0 )
GrIDsLow = GrIDsLow | intlow
GrIDsHigh = GrIDsHigh | inthigh
end

for i = 1, reaper.CountTracks(0) do -- collect all group mappings
local tr = reaper.GetTrack(0, i-1)
local intlow = reaper.GetSetTrackGroupMembership( tr, "MEDIA_EDIT_LEAD", 0, 0 )
local inthigh = reaper.GetSetTrackGroupMembershipHigh( tr, "MEDIA_EDIT_LEAD", 0, 0 )
local intlowF = reaper.GetSetTrackGroupMembership( tr, "MEDIA_EDIT_FOLLOW", 0, 0 )
local inthighF = reaper.GetSetTrackGroupMembershipHigh( tr, "MEDIA_EDIT_FOLLOW", 0, 0 )

if GrIDsLow & intlow ~= 0 or GrIDsLow & intlowF ~= 0 then
GrIDsLow = GrIDsLow | intlow
end

if GrIDsHigh & inthigh ~= 0 or GrIDsHigh & inthighF ~= 0 then
GrIDsHigh = GrIDsHigh | inthigh
end

local sel = reaper.IsTrackSelected(tr)
if sel == true and GrSelTrs == 1 then
GrIDsLow = GrIDsLow | intlow
GrIDsHigh = GrIDsHigh | inthigh
end
end

for i = 1, reaper.CountTracks(0) do -- add corresponding tracks to the table
local tr = reaper.GetTrack(0, i-1)
if GrAllTrs == 1 then FieldMatch(GrTracks, tr, true)
else
local intlow = reaper.GetSetTrackGroupMembership( tr, "MEDIA_EDIT_LEAD", 0, 0 )
local inthigh = reaper.GetSetTrackGroupMembershipHigh( tr, "MEDIA_EDIT_LEAD", 0, 0 )
local intlowF = reaper.GetSetTrackGroupMembership( tr, "MEDIA_EDIT_FOLLOW", 0, 0 )
local inthighF = reaper.GetSetTrackGroupMembershipHigh( tr, "MEDIA_EDIT_FOLLOW", 0, 0 )

if GrIDsLow & intlow ~= 0 or GrIDsLow & intlowF ~= 0 then
table.insert(GrTracks, tr)
end

if GrIDsHigh & inthigh ~= 0 or GrIDsHigh & inthighF ~= 0 then
FieldMatch(GrTracks, tr, true)
end

local sel = reaper.IsTrackSelected(tr)
if sel == true and GrSelTrs == 1 then
FieldMatch(GrTracks, tr, true)
end
end
end

for i, tr in ipairs(GrTracks) do
local mode = reaper.GetMediaTrackInfo_Value(tr, 'I_FREEMODE')
for k = 0, reaper.CountTrackMediaItems(tr) -1 do
local item = reaper.GetTrackMediaItem(tr, k)
local ipos = reaper.GetMediaItemInfo_Value(item, 'D_POSITION')
local iend = ipos + reaper.GetMediaItemInfo_Value(item, 'D_LENGTH')

if time > ipos and time < iend then
local iY = reaper.GetMediaItemInfo_Value(item, 'F_FREEMODE_Y')
local iH = reaper.GetMediaItemInfo_Value(item, 'F_FREEMODE_H')
local iL = reaper.GetMediaItemInfo_Value(item, 'I_FIXEDLANE')

for h, refItem in pairs(ItemsH) do
if mode == 2 and refItem[4] == mode then
if refItem[3] == iL then FieldMatch(Items, item, true)
end
else
if math.abs(refItem[1] - iY) < math.min(refItem[2], iH)/5
and math.max(refItem[2], iH) / math.min(refItem[2], iH) <= 1.5
then
FieldMatch(Items, item, true)
end
end
end
end --if time > ipos and time < iend

end --all items on the track cycle
end --cycle through grouped tracks

end -- timeT cycle
end

-------------------------------

function SelectAllMediaItems(proj, selected) --idx, boolean -- Works on hidden tracks
local itNumb = reaper.CountMediaItems(proj)
for i = 0, itNumb - 1 do
Expand Down Expand Up @@ -1347,7 +1447,18 @@ function SetItemEdges(item, startTime, endTime)
elseif offs > length then offs = math.fmod(offs, length)
end
end
reaper.SetMediaItemTakeInfo_Value(take, 'D_STARTOFFS', offs)

local strmarksnum = reaper.GetTakeNumStretchMarkers( take )
if strmarksnum > 0 then
reaper.SetMediaItemTakeInfo_Value(take, 'D_STARTOFFS', offs)
for s = 0, strmarksnum -1 do
local retval, strpos, srcpos = reaper.GetTakeStretchMarker( take, s )
reaper.SetTakeStretchMarker( take, s, strpos - (startTime-pos)*rate, srcpos )
end
else
reaper.SetMediaItemTakeInfo_Value(take, 'D_STARTOFFS', offs)
end

end
end
end
Expand All @@ -1363,7 +1474,7 @@ function RegroupItems(Items)

if Items.SplGrs then
if FieldMatch(Items.SplGrs, itemGroup) == true then
if SortedItems[itemGroup] == nil then SortedItems[itemGroup] = {} end
if SortedItems[itemGroup] == nil then SortedItems[itemGroup] = {} end
table.insert(SortedItems[itemGroup],item)
end
else
Expand Down Expand Up @@ -1667,6 +1778,10 @@ function Main()
allItemsForSplit = AddGroupedItems(inisel, false)
end

if TogItemGrouping == 1 then
AddTrMediaEditingGroup(allItemsForSplit, timeT)
end

local togAutoXfade = reaper.GetToggleCommandState(40912) --Options: Toggle auto-crossfade on split
local togDefFades = reaper.GetToggleCommandState(41194) --Item: Toggle enable/disable default fadein/fadeout
local defFadesON
Expand Down Expand Up @@ -1735,7 +1850,7 @@ end

------------------
-------START------
CurVers = 3.20
CurVers = 3.3
version = tonumber( reaper.GetExtState(ExtStateName, "version") )
if version ~= CurVers then
if not version or version < 3 then
Expand All @@ -1758,10 +1873,8 @@ else
OptionsWindow()
elseif Window == 'tcp' and tcpActIDstr ~= '' then
if tcpActIDstr:gsub('%d+', '') == '' then
--section = reaper.SectionFromUniqueID( tonumber(tcpActIDstr) )
tcpActID = tonumber(tcpActIDstr)
elseif tcpActIDstr ~= '' then
--section = reaper.SectionFromUniqueID( tonumber(reaper.NamedCommandLookup(tcpActIDstr)) )
tcpActID = tonumber(reaper.NamedCommandLookup(tcpActIDstr))
end
reaper.Main_OnCommandEx(tcpActID,0,0)
Expand Down

0 comments on commit 4f168fa

Please sign in to comment.