- xInstrument: add method -

 `get_slice_marker_after_pos`

classes/xInstrument.lua

@@ -168,13 +168,17 @@ end
 
 ---------------------------------------------------------------------------------------------------
 -- [Static] Detect if there is a slice marker *approximately* at the sample pos
--- @return boolean, [error message (string)]
+-- @return number or nil, [error message (string)]
 
 function xInstrument.get_slice_marker_at_pos(instr,pos,threshold)
   TRACE("xInstrument.get_slice_marker_at_pos(instr,pos,threshold)",instr,pos,threshold)
 
+  assert(type(instr)=="Instrument")
+  assert(type(pos)=="number")
+  assert(type(threshold)=="number")
+
   if not xInstrument.is_sliced(instr) then
-    return false, "Instrument contains no slices"
+    return nil, "Instrument contains no slices"
   end
 
   local sample = instr.samples[1]
@@ -190,6 +194,31 @@ function xInstrument.get_slice_marker_at_pos(instr,pos,threshold)
 
 end
 
+---------------------------------------------------------------------------------------------------
+-- obtain the first slice marker following the provided position
+-- @param instr (renoise.Instrument)
+-- @param pos (number)
+-- @return number or nil, [error message (string)]
+
+function xInstrument.get_slice_marker_after_pos(instr,pos)
+  TRACE("xInstrument.get_slice_marker_after_pos(instr,pos)",instr,pos)
+
+  assert(type(instr)=="Instrument")
+  assert(type(pos)=="number")
+
+  if not xInstrument.is_sliced(instr) then
+    return nil, "Instrument contains no slices"
+  end
+
+  local sample = instr.samples[1]
+  for marker_idx = 1,#sample.slice_markers do
+    local marker = sample.slice_markers[marker_idx]
+    if (marker > pos) then
+      return marker_idx
+    end
+  end
+
+end
 
 ---------------------------------------------------------------------------------------------------
 -- [Static] Return the slice markers associated with a given sample