ardour/scripts/export_mp4chaps.lua

79 lines
2.1 KiB
Lua
Raw Normal View History

ardour {
["type"] = "EditorAction",
name = "Export markers as mp4chaps",
author = "Johannes Mueller",
description = [[
Exports MP4chaps of all markers except xruns. The markers are stored in the
export directory of the session in mp4 chapter marks format. The filename
is mp4chaps.txt
Note that there's always a chapter mark "Intro" at 00:00:00.000 as some
players can't live without it. If there are no exportable markers, the file
is not created.
This is a bit more convenient than the export option, as one does not
have to wait for the export.
]],
license = "GPLv2"
}
function factory (unused_params) return function ()
local fr = Session:sample_rate()
local chaps = {}
for l in Session:locations():list():iter() do
local name = l:name()
if not l:is_mark() or string.find(name, "^xrun%d*$") then
goto next end
local t = l:start()
local h = math.floor(t / (3600*fr))
local r = t - (h*3600*fr)
local m = math.floor(r / (60*fr))
r = r - m*60*fr
local s = math.floor(r / fr)
r = r - s*fr
local ms = math.floor(r*1000/fr)
table.insert(chaps, string.format("%02d:%02d:%02d.%03d %s\n", h, m, s, ms, name))
::next::
end
if next(chaps) == nil then
goto out end
table.insert(chaps, "00:00:00.000 Intro\n")
table.sort(chaps)
2016-09-12 06:05:03 -04:00
file = io.open(ARDOUR.LuaAPI.build_filename (Session:path(), "export", "mp4chaps.txt"), "w")
for i, line in ipairs(chaps) do
file:write(line)
end
file:close()
::out::
end end
2017-02-19 18:53:09 -05:00
function icon (params) return function (ctx, width, height, fg)
local mh = height - 3.5;
local m3 = width / 3;
local m6 = width / 6;
ctx:set_line_width (.5)
ctx:set_source_rgba (ARDOUR.LuaAPI.color_to_rgba (fg))
ctx:move_to (width / 2 - m6, 2)
ctx:rel_line_to (m3, 0)
ctx:rel_line_to (0, mh * 0.4)
ctx:rel_line_to (-m6, mh * 0.6)
ctx:rel_line_to (-m6, -mh * 0.6)
ctx:close_path ()
ctx:stroke ()
local txt = Cairo.PangoLayout (ctx, "ArdourMono ".. math.ceil(math.min (width, height) * .5) .. "px")
txt:set_text ("MP4")
local tw, th = txt:get_pixel_size ()
ctx:move_to (.5 * (width - tw), .5 * (height - th))
txt:show_in_cairo_context (ctx)
end end