forked from mia/Aegisub
91d73ec8ea
1. cd aegisub/
2. svn mv *cpp *h src/
3. svn mv Makefile.am MatroskaParser.c auto4_perldata.inc bitmaps boost \
changelog.txt config gl include libosxutil libresrc md5.c msvc mythes.cxx \
mythes.hxx res.rc src/
4. cd ..
5. svn mv FFmpegSource2/ INSTALL Makefile.am README acinclude.m4 \
autogen.sh automation/ bin build configure.in desktop dummy.txt lib \
libass/ m4macros/ packages/ po/ scripts/ universalchardet/ aegisub/
6. mkdir -p docs/wiki_convert
7. svn add docs/wiki_convert
8. cd docs
9. svn mv aegisub_convert_docs.pl convert.bat output wiki_convert/
* See r2749 for full description.
Originally committed to SVN as r2752.
78 lines
2.7 KiB
Lua
78 lines
2.7 KiB
Lua
--[[
|
|
Copyright (c) 2007, Niels Martin Hansen
|
|
All rights reserved.
|
|
|
|
Redistribution and use in source and binary forms, with or without
|
|
modification, are permitted provided that the following conditions are met:
|
|
|
|
* Redistributions of source code must retain the above copyright notice,
|
|
this list of conditions and the following disclaimer.
|
|
* Redistributions in binary form must reproduce the above copyright notice,
|
|
this list of conditions and the following disclaimer in the documentation
|
|
and/or other materials provided with the distribution.
|
|
* Neither the name of the Aegisub Group nor the names of its contributors
|
|
may be used to endorse or promote products derived from this software
|
|
without specific prior written permission.
|
|
|
|
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
|
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
|
|
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
|
CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
|
SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
|
INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
|
CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
|
ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
|
POSSIBILITY OF SUCH DAMAGE.
|
|
]]
|
|
|
|
script_name = "Automatic karaoke lead-in"
|
|
script_description = "Join up the ends of selected lines and add \k tags to shift karaoke"
|
|
script_author = "Niels Martin Hansen"
|
|
script_version = "1.0"
|
|
|
|
function add_auto_leadin(subs, sel)
|
|
-- Smallest inter-line duration
|
|
local min_interdur = nil
|
|
|
|
for i = 2, #sel do
|
|
-- Grab two selected lines
|
|
local A = subs[sel[i-1]]
|
|
local B = subs[sel[i]]
|
|
|
|
-- Blank duration between lines
|
|
local interdur = B.start_time - A.end_time
|
|
|
|
if interdur > 0 then
|
|
-- Update smallest inter-line duration
|
|
if not min_interdur or interdur < min_interdur then
|
|
min_interdur = interdur
|
|
end
|
|
|
|
B.start_time = A.end_time
|
|
B.text = string.format("{\\k%d}%s", interdur/10, B.text)
|
|
|
|
subs[sel[i]] = B
|
|
else
|
|
aegisub.debug.out(2, "Warning: Skipping line-pair with zero or negative inter-duration:\n%s\n%s\n\n", A.text, B.text)
|
|
end
|
|
|
|
end
|
|
|
|
if min_interdur then
|
|
aegisub.debug.out(0, "Smallest inter-line duration: %d milliseconds", min_interdur)
|
|
|
|
aegisub.set_undo_point(script_name)
|
|
else
|
|
aegisub.debug.out(2, "Warning: No lines modified")
|
|
end
|
|
|
|
end
|
|
|
|
function check_minsel_2(subs, sel)
|
|
return #sel >= 2
|
|
end
|
|
|
|
aegisub.register_macro(script_name, script_description, add_auto_leadin, check_minsel_2)
|