projects
/
ardour.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Connect Script Manager "Edit" -> Lua Scripting Window
[ardour.git]
/
scripts
/
export_mp4chaps.lua
diff --git
a/scripts/export_mp4chaps.lua
b/scripts/export_mp4chaps.lua
index b7ab23189c820787a9be2eabca6155d9e32cd786..d5e7a5708e2e50606ecb1fe4f168bff0d1319adc 100644
(file)
--- a/
scripts/export_mp4chaps.lua
+++ b/
scripts/export_mp4chaps.lua
@@
-14,17
+14,17
@@
is not created.
This is a bit more convenient than the export option, as one does not
have to wait for the export.
]],
This is a bit more convenient than the export option, as one does not
have to wait for the export.
]],
-
license = "GPLv2"
+ license = "GPLv2"
}
function factory (unused_params) return function ()
}
function factory (unused_params) return function ()
-
fr = Session:frame_rate()
+ fr = Session:frame_rate()
chaps = {}
chaps = {}
-
for l in Session:locations():list():iter() do
-
name = l:name()
-
if not l:is_mark() or string.find(name, "^xrun%d*$") then
+ for l in Session:locations():list():iter() do
+ name = l:name()
+ if not l:is_mark() or string.find(name, "^xrun%d*$") then
goto next end
t = l:start()
goto next end
t = l:start()
@@
-37,7
+37,7
@@
function factory (unused_params) return function ()
ms = math.floor(r*1000/fr)
table.insert(chaps, string.format("%02d:%02d:%02d.%03d %s\n", h, m, s, ms, name))
::next::
ms = math.floor(r*1000/fr)
table.insert(chaps, string.format("%02d:%02d:%02d.%03d %s\n", h, m, s, ms, name))
::next::
-
end
+ end
if next(chaps) == nil then
goto out end
if next(chaps) == nil then
goto out end
@@
-45,11
+45,11
@@
function factory (unused_params) return function ()
table.insert(chaps, "00:00:00.000 Intro\n")
table.sort(chaps)
table.insert(chaps, "00:00:00.000 Intro\n")
table.sort(chaps)
- file = io.open(
string.format("%s/export/mp4chaps.txt", Session:path()
), "w")
+ file = io.open(
ARDOUR.LuaAPI.build_filename (Session:path(), "export", "mp4chaps.txt"
), "w")
for i, line in ipairs(chaps) do
file:write(line)
end
for i, line in ipairs(chaps) do
file:write(line)
end
-
file:close()
+ file:close()
::out::
end end
::out::
end end