Example Lua script to move regions (insert gaps)
This commit is contained in:
parent
a07bd2d585
commit
406f9fa1ef
62
scripts/_insert_region_gaps.lua
Normal file
62
scripts/_insert_region_gaps.lua
Normal file
@ -0,0 +1,62 @@
|
||||
ardour {
|
||||
["type"] = "EditorAction",
|
||||
name = "Insert Gaps",
|
||||
license = "MIT",
|
||||
author = "Ardour Team",
|
||||
description = [[Insert gaps between all regions on selected tracks]]
|
||||
}
|
||||
|
||||
function action_params ()
|
||||
return
|
||||
{
|
||||
["gap"] = { title = "Gap size (in sec)", default = "2" },
|
||||
}
|
||||
end
|
||||
|
||||
function factory () return function ()
|
||||
-- get configuration
|
||||
local p = params or {}
|
||||
local gap = p["gap"] or 2
|
||||
if gap <= 0 then gap = 2 end
|
||||
|
||||
local sel = Editor:get_selection () -- get current selection
|
||||
|
||||
local add_undo = false -- keep track of changes
|
||||
Session:begin_reversible_command ("Insert Gaps")
|
||||
|
||||
-- iterate over all selected tracks
|
||||
for route in sel.tracks:routelist ():iter () do
|
||||
local track = route:to_track ()
|
||||
if track:isnil () then goto continue end
|
||||
|
||||
-- get track's playlist
|
||||
local playlist = track:playlist ()
|
||||
local offset = 0
|
||||
|
||||
-- iterate over all regions in the playlist
|
||||
for region in playlist:region_list():iter() do
|
||||
|
||||
-- preare for undo operation
|
||||
region:to_stateful ():clear_changes ()
|
||||
|
||||
-- move region
|
||||
region:set_position (region:position() + offset, 0)
|
||||
offset = offset + Session:nominal_sample_rate () * gap
|
||||
|
||||
-- create a diff of the performed work, add it to the session's undo stack
|
||||
-- and check if it is not empty
|
||||
if not Session:add_stateful_diff_command (region:to_statefuldestructible ()):empty () then
|
||||
add_undo = true
|
||||
end
|
||||
end
|
||||
::continue::
|
||||
end
|
||||
|
||||
-- all done, commit the combined Undo Operation
|
||||
if add_undo then
|
||||
-- the 'nil' Command here mean to use the collected diffs added above
|
||||
Session:commit_reversible_command (nil)
|
||||
else
|
||||
Session:abort_reversible_command ()
|
||||
end
|
||||
end end
|
Loading…
Reference in New Issue
Block a user