Add Lua script to benchmark region-split operation

diff --git a/scripts/_split_benchmark.lua b/scripts/_split_benchmark.lua
new file mode 100644 (file)
index 0000000..6e0ee36
--- /dev/null
+++ b/scripts/_split_benchmark.lua
@@ -0,0 +1,58 @@
+-- [disable CPU freq scaling for benchmark]
+-- create a session
+-- add 16 mono tracks
+-- record 2-3 mins on each track starting at 00:00:00:00
+-- rewind the playhead to 00:00:00:00
+-- run this script in  Menu > Window. Scripting  10 times
+ardour { ["type"] = "EditorAction", name = "Split Benchmark" }
+
+function factory (params) return function ()
+
+       function split_at (pos)
+               local add_undo = false -- keep track if something has changed
+               Session:begin_reversible_command ("Auto Region Split")
+               for route in Session:get_tracks():iter() do
+                       local playlist = route:to_track():playlist ()
+                       playlist:to_stateful ():clear_changes ()
+                       for region in playlist:regions_at (pos):iter () do
+                               playlist:split_region (region, ARDOUR.MusicSample (pos, 0))
+                       end
+                       if not Session:add_stateful_diff_command (playlist:to_statefuldestructible ()):empty () then
+                               add_undo = true
+                       end
+               end
+               if add_undo then
+                       Session:commit_reversible_command (nil)
+               else
+                       Session:abort_reversible_command ()
+               end
+       end
+
+       function count_regions ()
+               local total = 0
+               for route in Session:get_tracks():iter() do
+                       total = total + route:to_track():playlist():region_list():size()
+               end
+               return total
+       end
+
+       for x = 1, 3 do
+               local playhead = Session:transport_sample ()
+
+               local step = Session:samples_per_timecode_frame()
+               local n_steps = 20
+
+               local t_start = ARDOUR.LuaAPI.monotonic_time ()
+               for i = 1, n_steps do
+                       split_at (playhead + step * i)
+               end
+               local t_end = ARDOUR.LuaAPI.monotonic_time ()
+
+               Session:request_locate((playhead + step * n_steps), false, 5)
+               print (count_regions (), (t_end - t_start) / 1000 / n_steps)
+               collectgarbage ();
+               ARDOUR.LuaAPI.usleep(500000)
+       end
+
+
+end end