Retroactive record in MIDI editor

[mozart999uk]

Could we have retroactive ability within the midi editor?

Midi item open
Press play and play some notes or move a controller.
Stop playback
Press shortcut of choice and voila - notes or controller now in the item. :-)

[tonalstates]

yes pls +1

[juan_r]

+1

Great workflow indeed

[mpl]

 
  function MPL_DumpRetrospectiveLog(take) -- collect raw data 
    local t = {}
    local idx = 0
    local evt_id = 0      
    local SR = tonumber(reaper.format_timestr_pos( 1-reaper.GetProjectTimeOffset( 0,false ), '', 4 )) -- get sample rate obey project start offset
    
    while true do
      local retval, rawmsg, tsval, devIdx, projPos, projLoopCnt = reaper.MIDI_GetRecentInputEvent(idx)
      if retval == 0 then break end -- stop if return null sequence
      idx = idx + 1 
      if (devIdx & 0x10000) == 0 or devIdx == 0x1003e then -- should works without this after REAPER6.39rc2, so thats just in case
        local isNoteOn = rawmsg:byte(1)>>4 == 0x9
        local isNoteOff = rawmsg:byte(1)>>4 == 0x8
        evt_id = evt_id + 1 
        
        if t[evt_id-1] and math.abs(tsval/SR - t[evt_id-1].tsval) > 10 then goto skip end -- filter last long pause
        
        t[evt_id] = {rawmsg=rawmsg, tsval=tsval/SR}
      end
    end 
    
    ::skip::
    -- reverse table
      local rev_t = {}
      local rev_t_id = 0
      for i=#t, 1, -1 do rev_t_id = rev_t_id + 1 rev_t[rev_t_id] = t[i] end
      local sub = -  rev_t[1].tsval 
      for i=1, #rev_t do rev_t[i].tsval = rev_t[i].tsval + sub end
      
    -- get ppq 
      local curpos =  reaper.GetCursorPosition()
      for i=1, #rev_t do rev_t[i].tsval_PPQ = math.floor(reaper.MIDI_GetPPQPosFromProjTime( take, rev_t[i].tsval+curpos)) end
      
      local retval, srcmidistr = reaper.MIDI_GetAllEvts( take )
      local midistr = ''
      local ppq_cur_last   = 0  
      for i=1, #rev_t do
        local evt = rev_t[i]
        local ppq_evt = rev_t[i].tsval_PPQ
        ppq_cur = ppq_evt
        if not ppq_cur_last then ppq_cur_last = ppq_cur end
        local str_per_msg = string.pack("i4BI4BBB", ppq_cur - ppq_cur_last, 0, 3, evt.rawmsg:byte(1), evt.rawmsg:byte(2), evt.rawmsg:byte(3))
        ppq_cur_last = ppq_cur
        midistr = midistr..str_per_msg
      end
      
      local str_per_msg = string.pack("i4BI4BBB", 0 - ppq_cur_last, 0, 3, 0,0,0)
      midistr = midistr..str_per_msg
      
      reaper.MIDI_SetAllEvts(take, midistr..srcmidistr)
      reaper.MIDI_Sort(take) 
    return rev_t
  end

    
    
    local midieditor,take =  reaper.MIDIEditor_GetActive()
    if midieditor then take = reaper.MIDIEditor_GetTake( midieditor ) end
    if take then 
      reaper.Undo_BeginBlock2( 0 )
      midi_t = MPL_DumpRetrospectiveLog(take)
      reaper.Undo_EndBlock2( 0, 'MPL_DumpRetrospectiveLog', 4)
    end

[juan_r]

@mpl to the rescue :-)
Thank you - impressively quick!

[mpl]

that doesn't break data just like it does in the main script or native action though. Instead it split play blocks if pause between them more than 10 seconds.

[juan_r]

Thanks for the heads up. I didn't notice that since I just had a quick run at it to verify it works.

I guess the native action request still stands, then?

[juan_r]

I just noticed that this action doesn't seem to add an undo point. How can I modify it so that it does?

Also, I'm not clear about which section to add the script to. It gets added to Main by default but apparently still works OK in the MIDI Editor section (that's where it gets used normally, right?).

[vitalker]

Originally Posted by juan_r

Also, I'm not clear about which section to add the script to. It gets added to Main by default but apparently still works OK in the MIDI Editor section (that's where it gets used normally, right?).

With scripts it doesn't matter.

[mozart999uk]

Originally Posted by mpl

 
  function MPL_DumpRetrospectiveLog(take) -- collect raw data 
    local t = {}
    local idx = 0
    local evt_id = 0      
    local SR = tonumber(reaper.format_timestr_pos( 1-reaper.GetProjectTimeOffset( 0,false ), '', 4 )) -- get sample rate obey project start offset
    
    while true do
      local retval, rawmsg, tsval, devIdx, projPos, projLoopCnt = reaper.MIDI_GetRecentInputEvent(idx)
      if retval == 0 then break end -- stop if return null sequence
      idx = idx + 1 
      if (devIdx & 0x10000) == 0 or devIdx == 0x1003e then -- should works without this after REAPER6.39rc2, so thats just in case
        local isNoteOn = rawmsg:byte(1)>>4 == 0x9
        local isNoteOff = rawmsg:byte(1)>>4 == 0x8
        evt_id = evt_id + 1 
        
        if t[evt_id-1] and math.abs(tsval/SR - t[evt_id-1].tsval) > 10 then goto skip end -- filter last long pause
        
        t[evt_id] = {rawmsg=rawmsg, tsval=tsval/SR}
      end
    end 
    
    ::skip::
    -- reverse table
      local rev_t = {}
      local rev_t_id = 0
      for i=#t, 1, -1 do rev_t_id = rev_t_id + 1 rev_t[rev_t_id] = t[i] end
      local sub = -  rev_t[1].tsval 
      for i=1, #rev_t do rev_t[i].tsval = rev_t[i].tsval + sub end
      
    -- get ppq 
      local curpos =  reaper.GetCursorPosition()
      for i=1, #rev_t do rev_t[i].tsval_PPQ = math.floor(reaper.MIDI_GetPPQPosFromProjTime( take, rev_t[i].tsval+curpos)) end
      
      local retval, srcmidistr = reaper.MIDI_GetAllEvts( take )
      local midistr = ''
      local ppq_cur_last   = 0  
      for i=1, #rev_t do
        local evt = rev_t[i]
        local ppq_evt = rev_t[i].tsval_PPQ
        ppq_cur = ppq_evt
        if not ppq_cur_last then ppq_cur_last = ppq_cur end
        local str_per_msg = string.pack("i4BI4BBB", ppq_cur - ppq_cur_last, 0, 3, evt.rawmsg:byte(1), evt.rawmsg:byte(2), evt.rawmsg:byte(3))
        ppq_cur_last = ppq_cur
        midistr = midistr..str_per_msg
      end
      
      local str_per_msg = string.pack("i4BI4BBB", 0 - ppq_cur_last, 0, 3, 0,0,0)
      midistr = midistr..str_per_msg
      
      reaper.MIDI_SetAllEvts(take, midistr..srcmidistr)
      reaper.MIDI_Sort(take) 
    return rev_t
  end

    
    
    local midieditor,take =  reaper.MIDIEditor_GetActive()
    if midieditor then take = reaper.MIDIEditor_GetTake( midieditor ) end
    if take then 
      reaper.Undo_BeginBlock2( 0 )
      midi_t = MPL_DumpRetrospectiveLog(take)
      reaper.Undo_EndBlock2( 0, 'MPL_DumpRetrospectiveLog', 4)
    end

Thanks MPL! It doesn't add the notes where I played them though. It adds them at the current edit cursor position (wherever it is after I stopped playback)