Unnamed

-- program: LoopBlockRangeKeys
-- author: cortex


renoise.tool():add_keybinding {
  name = "Global:Transport:Double LoopBlock Range",
  invoke = function(repeated) double_loop_block() end
}

renoise.tool():add_keybinding {
  name = "Global:Transport:Half LoopBlock Range",
  invoke = function(repeated) half_loop_block() end
}


function half_loop_block()
  
  local newval = renoise.song().transport.loop_block_range_coeff*2
  newval = math.min(newval,16)
  renoise.song().transport.loop_block_range_coeff=newval
end

function double_loop_block()
  
  local newval = renoise.song().transport.loop_block_range_coeff/2
  newval = math.max(newval,2)
  renoise.song().transport.loop_block_range_coeff=newval
end