Allow to copy the pattern and keep the seek cursor in the same relative position

Author: eritiro

brute-seq/Modules/GUI.lua

@@ -136,3 +136,13 @@ function drawTrackLabel(ctx, sprite, text)
   local dl        = reaper.ImGui_GetWindowDrawList(ctx)
   reaper.ImGui_DrawList_AddText(dl, cx, cy, 0xFFFFFFFF, text)
 end
+
+function drawButton(ctx, text)
+  local y = reaper.ImGui_GetCursorPosY(ctx)
+  reaper.ImGui_SetCursorPosY(ctx, y + 1)
+  reaper.ImGui_PushStyleVar(ctx, reaper.ImGui_StyleVar_FramePadding(), 4, 2)
+  local result = reaper.ImGui_Button(ctx, text)
+  reaper.ImGui_PopStyleVar(ctx)
+  reaper.ImGui_SameLine(ctx)
+  return result
+end

brute-seq/Modules/MIDI.lua

@@ -43,6 +43,19 @@ function createItem(track, steps)
     return newItem
 end
 
+function copyMidiContent(srcItem, dstItem)
+    local srcTake = reaper.GetActiveTake(srcItem)
+    local dstTake = reaper.GetActiveTake(dstItem)
+    -- read whole event stream from the source take
+    local _, midiData = reaper.MIDI_GetAllEvts(srcTake, "")
+
+    -- wipe any existing events in the destination take
+    reaper.MIDI_SetAllEvts(dstTake, midiData) -- paste
+    reaper.MIDI_Sort(dstTake)                 -- keep PPQ order
+
+    reaper.UpdateArrange()
+end
+
 function removeItem(item)
     reaper.DeleteTrackMediaItem(reaper.GetMediaItemTrack(item), item)
     reaper.UpdateArrange()    

brute-seq/Modules/Transport.lua

@@ -5,7 +5,7 @@ function setTimeSelectionFromItem(item)
     local length   = reaper.GetMediaItemInfo_Value(item, "D_LENGTH")
     local endPos   = startPos + length
 
-    reaper.GetSet_LoopTimeRange(true,  false,  startPos, endPos, true)
+    reaper.GetSet_LoopTimeRange(true,  true,  startPos, endPos, false)
 end
 
 function setTimeSelectionFromTrack(track)
@@ -24,7 +24,7 @@ function setTimeSelectionFromTrack(track)
         if start + len > lastEnd    then lastEnd    = start + len end
     end
 
-    reaper.GetSet_LoopTimeRange(true, false, firstStart, lastEnd, true)
+    reaper.GetSet_LoopTimeRange(true, true, firstStart, lastEnd, false)
 end
 
 function getCursorPos()
@@ -46,8 +46,6 @@ function getCurrentStep(item)
 end
 
 function jumpToStep(item, stepIdx)
-    if not item or stepIdx < 0 then return end
-
     local startPos   = reaper.GetMediaItemInfo_Value(item, 'D_POSITION')
     local secPerBeat = reaper.TimeMap2_beatsToTime(0, 1)
     local stepSize   = secPerBeat / time_resolution
@@ -56,6 +54,17 @@ function jumpToStep(item, stepIdx)
     reaper.SetEditCurPos(targetPos, true, true)
 end
 
+function jumpToItem(currentItem, nextItem)
+    local playing = reaper.GetPlayState() & 1 == 1
+    local currentStart = reaper.GetMediaItemInfo_Value(currentItem, 'D_POSITION')
+    local nextStart = reaper.GetMediaItemInfo_Value(nextItem, 'D_POSITION')
+    
+    -- it only offsets the item when playing
+    local offset = playing and (reaper.GetPlayPosition2() - currentStart) or 0
+
+    reaper.SetEditCurPos(nextStart + offset, true, true)
+end
+
 function getItemIndexAtCursor(track)
     local curPos = getCursorPos()
     for i = 0, reaper.CountTrackMediaItems(track) - 1 do

brute-seq/brute-seq.lua

@@ -102,9 +102,9 @@ local function updateCurrentPatternIndex()
     end
 end
 
-local function updateCursor(item, stepIndex)
+local function updateCursor(currentItem, nextItem)
     if followCursor then
-        jumpToStep(item, stepIndex)
+        jumpToItem(currentItem, nextItem)
     end
 end
 
@@ -219,19 +219,9 @@ local function loop()
             changedPattern, currentPatternIndex = drawSlider(ctx, '##Pattern', currentPatternIndex, 1, patternCount, 140)
             reaper.ImGui_SameLine(ctx)
 
-            local y = reaper.ImGui_GetCursorPosY(ctx)
-            reaper.ImGui_SetCursorPosY(ctx, y + 1)
-            reaper.ImGui_PushStyleVar(ctx, reaper.ImGui_StyleVar_FramePadding(), 5, 2)
-            removedPattern = reaper.ImGui_Button(ctx, "-")
-            reaper.ImGui_PopStyleVar(ctx)
-            reaper.ImGui_SameLine(ctx)
-
-            local y = reaper.ImGui_GetCursorPosY(ctx)
-            reaper.ImGui_SetCursorPosY(ctx, y + 1)
-            reaper.ImGui_PushStyleVar(ctx, reaper.ImGui_StyleVar_FramePadding(), 4, 2)
-            addedPattern = reaper.ImGui_Button(ctx, "+")
-            reaper.ImGui_PopStyleVar(ctx)
-            reaper.ImGui_SameLine(ctx)
+            local removePattern = drawButton(ctx, "-")
+            local addPattern = drawButton(ctx, "+")
+            local dupPattern = drawButton(ctx, "++")
 
             reaper.ImGui_Text(ctx, 'Steps:')
             reaper.ImGui_SameLine(ctx)
@@ -276,19 +266,21 @@ local function loop()
                     updateTimeSelection()
                 end
             -- Delete pattern
-            elseif removedPattern then
+            elseif removePattern then
                 removeItem(currentPattern.item)
                 updateCurrentPatternIndex()
-                currentPattern = getPattern(sequencerTrack, currentPatternIndex - 1)
-                if currentPattern then
-                    updateCursor(currentPattern.item, 0)
-                end
                 updateTimeSelection()
             -- Add pattern
-            elseif addedPattern then
+            elseif addPattern then
                 newItem = createItem(sequencerTrack, currentPattern.steps > 0 and currentPattern.steps or 16)
+                updateCursor(currentPattern.item, newItem)
+                currentPatternIndex = patternCount + 1
+                updateTimeSelection()
+            elseif dupPattern then
+                newItem = createItem(sequencerTrack, currentPattern.steps)
+                copyMidiContent(currentPattern.item, newItem)
+                updateCursor(currentPattern.item, newItem)
                 currentPatternIndex = patternCount + 1
-                updateCursor(newItem, 0)
                 updateTimeSelection()
             -- Resize pattern
             elseif changedSteps or changedTimes then
@@ -304,8 +296,8 @@ local function loop()
                 updateTimeSelection()
                 reaper.Undo_EndBlock('Resize pattern',-1)
             elseif changedPattern then
-                currentPattern = getPattern(sequencerTrack, currentPatternIndex - 1)
-                updateCursor(currentPattern.item, 0)
+                nextPattern = getPattern(sequencerTrack, currentPatternIndex - 1)
+                updateCursor(currentPattern.item, nextPattern.item)
                 updateTimeSelection()
             end
         else -- if currentPattern