forked from mia/Aegisub
Publish effect script for AS-Fansubs Prism Ark OP kara as sample, not as well commented as the Gundam 00 OP 1 one.
Originally committed to SVN as r1651.
This commit is contained in:
Niels Martin Hansen
parent
a00b809a98
commit
e9c894a2e0
1 changed files with 432 additions and 0 deletions
432
OverLua/docs/sample4.lua
Normal file
432
OverLua/docs/sample4.lua
Normal file
|
|
@ -0,0 +1,432 @@
|
||||||
|
--[[
|
||||||
|
|
||||||
|
Sample script for OverLua
|
||||||
|
- advanced karaoke effect, Prism Ark OP kara effect for Anime-Share Fansubs
|
||||||
|
|
||||||
|
Given into the public domain.
|
||||||
|
(You can do anything you want with this file, with no restrictions whatsoever.
|
||||||
|
You don't get any warranties of any kind either, though.)
|
||||||
|
|
||||||
|
Originally authored by Niels Martin Hansen.
|
||||||
|
|
||||||
|
Not an extremely advanced effect, but showcases improved parsing of ASS files
|
||||||
|
and using information from the Style lines for the styling information.
|
||||||
|
|
||||||
|
Pretty fast to render at SD resolutions.
|
||||||
|
|
||||||
|
As for other effects, please consider that it's not much fun to just re-use
|
||||||
|
an effect someone else wrote, especially not verbatim. If you elect to use
|
||||||
|
this sample for something, I ask you to do something original with it. I
|
||||||
|
can't force you, but please :)
|
||||||
|
|
||||||
|
I'm leaving several sections of this script mostly unexplained, because I've
|
||||||
|
for a large part copied those from the Gundam 00 OP 1 effect (sample3) I did
|
||||||
|
a few days before this one.
|
||||||
|
Please see sample3.lua for explanations of those, if you need them.
|
||||||
|
|
||||||
|
]]
|
||||||
|
|
||||||
|
---- START CONFIGURATION ----
|
||||||
|
|
||||||
|
-- Duration of line fade-in/outs, in seconds
|
||||||
|
local line_fade_duration = 0.5
|
||||||
|
-- Minimum duration of highlights, also seconds
|
||||||
|
local syl_highlight_duration = 0.5
|
||||||
|
|
||||||
|
---- END CONFIGURATION ----
|
||||||
|
|
||||||
|
|
||||||
|
-- Trim spaces from beginning and end of string
|
||||||
|
function string.trim(s)
|
||||||
|
return (string.gsub(s, "^%s*(.-)%s*$", "%1"))
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
-- Script and video resolutions
|
||||||
|
local sres_x, sres_y
|
||||||
|
local vres_x, vres_y
|
||||||
|
|
||||||
|
-- Stuff read from style definitions
|
||||||
|
local font_name = {}
|
||||||
|
local font_size = {}
|
||||||
|
local font_bold = {}
|
||||||
|
local font_italic = {}
|
||||||
|
local pos_v = {}
|
||||||
|
local vertical = {}
|
||||||
|
local color1, color2, color3, color4 = {}, {}, {}, {}
|
||||||
|
|
||||||
|
-- Input lines
|
||||||
|
local lines = {}
|
||||||
|
|
||||||
|
|
||||||
|
-- Read input file
|
||||||
|
function read_field(ass_line, num)
|
||||||
|
local val, rest = ass_line:match("(.-),(.*)")
|
||||||
|
if not rest then
|
||||||
|
return ass_line, ""
|
||||||
|
elseif num > 1 then
|
||||||
|
return val, read_field(rest, num-1)
|
||||||
|
else
|
||||||
|
return val, rest
|
||||||
|
end
|
||||||
|
end
|
||||||
|
function parsenum(str)
|
||||||
|
return tonumber(str) or 0
|
||||||
|
end
|
||||||
|
function parse_ass_time(ass)
|
||||||
|
local h, m, s, cs = ass:match("(%d+):(%d+):(%d+)%.(%d+)")
|
||||||
|
return parsenum(cs)/100 + parsenum(s) + parsenum(m)*60 + parsenum(h)*3600
|
||||||
|
end
|
||||||
|
function parse_style_color(color)
|
||||||
|
local res = {r = 0, g = 0, b = 0, a = 0}
|
||||||
|
local a, b, g, r = color:match("&H(%x%x)(%x%x)(%x%x)(%x%x)")
|
||||||
|
res.r = tonumber(r, 16) / 255
|
||||||
|
res.g = tonumber(g, 16) / 255
|
||||||
|
res.b = tonumber(b, 16) / 255
|
||||||
|
res.a = 1 - tonumber(a, 16) / 255 -- Alpha has inverse meaning in ASS and cairo
|
||||||
|
return res
|
||||||
|
end
|
||||||
|
|
||||||
|
function parse_k_timing(text, start_time)
|
||||||
|
local syls = {}
|
||||||
|
local cleantext = ""
|
||||||
|
local i = 1
|
||||||
|
local curtime = start_time
|
||||||
|
for timing, syltext in text:gmatch("{\\k(%d+)}([^{]*)") do
|
||||||
|
local syl = {}
|
||||||
|
syl.dur = parsenum(timing)/100
|
||||||
|
syl.text = syltext
|
||||||
|
syl.i = i
|
||||||
|
syl.start_time = curtime
|
||||||
|
syl.end_time = curtime + syl.dur
|
||||||
|
table.insert(syls, syl)
|
||||||
|
cleantext = cleantext .. syl.text
|
||||||
|
i = i + 1
|
||||||
|
curtime = curtime + syl.dur
|
||||||
|
end
|
||||||
|
if cleantext == "" then
|
||||||
|
cleantext = text
|
||||||
|
end
|
||||||
|
return syls, cleantext
|
||||||
|
end
|
||||||
|
|
||||||
|
function read_input_file(name)
|
||||||
|
for line in io.lines(name) do
|
||||||
|
-- Try PlayResX/PlayResY
|
||||||
|
local playresx = line:match("^PlayResX: (.*)")
|
||||||
|
if playresx then
|
||||||
|
sres_x = parsenum(playresx)
|
||||||
|
end
|
||||||
|
local playresy = line:match("^PlayResY: (.*)")
|
||||||
|
if playresy then
|
||||||
|
sres_y = parsenum(playresy)
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Try dialogue line
|
||||||
|
-- Format: Layer, Start, End, Style, Name, MarginL, MarginR, MarginV, Effect, Text
|
||||||
|
local dialogue_line = line:match("^Dialogue:(.*)")
|
||||||
|
if dialogue_line then
|
||||||
|
local layer, start_time, end_time, style, actor, margin_l, margin_r, margin_v, effect, text = read_field(dialogue_line, 9)
|
||||||
|
local ls = {}
|
||||||
|
ls.layer = parsenum(layer)
|
||||||
|
ls.start_time = parse_ass_time(start_time)
|
||||||
|
ls.end_time = parse_ass_time(end_time)
|
||||||
|
ls.style = style:trim()
|
||||||
|
ls.actor = actor:trim()
|
||||||
|
ls.effect = effect:trim()
|
||||||
|
ls.rawtext = text
|
||||||
|
ls.kara, ls.cleantext = parse_k_timing(text, ls.start_time)
|
||||||
|
|
||||||
|
table.insert(lines, ls)
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Try style line
|
||||||
|
-- Format: Name, Fontname, Fontsize, PrimaryColour, SecondaryColour, OutlineColour, BackColour, Bold, Italic, Underline, StrikeOut, ScaleX, ScaleY, Spacing, Angle, BorderStyle, Outline, Shadow, Alignment, MarginL, MarginR, MarginV, Encoding
|
||||||
|
local style_line = line:match("^Style:(.*)")
|
||||||
|
if style_line then
|
||||||
|
local name, font, size, c1, c2, c3, c4, bold, italic, underline, overstrike, scalex, scaley, spacing, angle, borderstyle, outline, shadow, alignment, margin_l, margin_r, margin_v, encoding = read_field(style_line, 22)
|
||||||
|
-- Direct data
|
||||||
|
name = name:trim()
|
||||||
|
font_name[name] = font:trim()
|
||||||
|
font_size[name] = parsenum(size)
|
||||||
|
color1[name] = parse_style_color(c1)
|
||||||
|
color2[name] = parse_style_color(c2)
|
||||||
|
color3[name] = parse_style_color(c3)
|
||||||
|
color4[name] = parse_style_color(c4)
|
||||||
|
font_bold[name] = (parsenum(bold) ~= 0) and "bold" or ""
|
||||||
|
font_italic[name] = (parsenum(italic) ~= 0) and "italic" or ""
|
||||||
|
|
||||||
|
-- Derived data
|
||||||
|
if font:match("@") then
|
||||||
|
vertical[name] = true
|
||||||
|
end
|
||||||
|
alignment = parsenum(alignment)
|
||||||
|
if alignment <= 3 then
|
||||||
|
if vertical[name] then
|
||||||
|
pos_v[name] = sres_x - parsenum(margin_v)
|
||||||
|
else
|
||||||
|
pos_v[name] = sres_y - parsenum(margin_v)
|
||||||
|
end
|
||||||
|
elseif alignment <= 6 then
|
||||||
|
if vertical[name] then
|
||||||
|
pos_v[name] = sres_x / 2
|
||||||
|
else
|
||||||
|
pos_v[name] = sres_y / 2
|
||||||
|
end
|
||||||
|
else
|
||||||
|
pos_v[name] = parsenum(margin_v)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
function init(f)
|
||||||
|
if inited then return end
|
||||||
|
inited = true
|
||||||
|
|
||||||
|
vres_x = f.width
|
||||||
|
vres_y = f.height
|
||||||
|
read_input_file(overlua_datastring)
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
-- Mask for noise over background
|
||||||
|
local noisemask, noisemaskctx, noisemaskfilled
|
||||||
|
-- Additional images to overlay the frame
|
||||||
|
local frame_overlays = {}
|
||||||
|
|
||||||
|
|
||||||
|
-- Calculate size and position of a line and its syllables
|
||||||
|
function calc_line_metrics(ctx, line)
|
||||||
|
if line.pos_x then return end
|
||||||
|
|
||||||
|
assert(font_name[line.style], "No font name for style " .. line.style)
|
||||||
|
ctx.select_font_face(font_name[line.style], font_italic[line.style], font_bold[line.style])
|
||||||
|
ctx.set_font_size(font_size[line.style])
|
||||||
|
|
||||||
|
line.te = ctx.text_extents(line.cleantext)
|
||||||
|
line.fe = ctx.font_extents()
|
||||||
|
|
||||||
|
if vertical[line.style] then
|
||||||
|
line.pos_x = pos_v[line.style]
|
||||||
|
line.pos_y = (sres_y - line.te.width) / 2 - line.te.x_bearing
|
||||||
|
else
|
||||||
|
line.pos_x = (sres_x - line.te.width) / 2 - line.te.x_bearing
|
||||||
|
line.pos_y = pos_v[line.style]
|
||||||
|
end
|
||||||
|
|
||||||
|
if #line.kara < 2 then return end
|
||||||
|
|
||||||
|
local curx = line.pos_x
|
||||||
|
local cury = line.pos_y
|
||||||
|
for i, syl in pairs(line.kara) do
|
||||||
|
syl.te = ctx.text_extents(syl.text)
|
||||||
|
if vertical[line.style] then
|
||||||
|
syl.pos_x = line.pos_x
|
||||||
|
syl.pos_y = cury
|
||||||
|
syl.center_x = syl.pos_x + syl.te.x_bearing + syl.te.width/2
|
||||||
|
syl.center_y = cury - line.fe.ascent/2 + line.fe.descent/2
|
||||||
|
else
|
||||||
|
syl.pos_x = curx
|
||||||
|
syl.pos_y = line.pos_y
|
||||||
|
syl.center_x = curx + syl.te.x_bearing + syl.te.width/2
|
||||||
|
syl.center_y = syl.pos_y - line.fe.ascent/2 + line.fe.descent/2
|
||||||
|
end
|
||||||
|
curx = curx + syl.te.x_advance
|
||||||
|
cury = cury + syl.te.x_advance
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
-- Style handling functions
|
||||||
|
local stylefunc = {}
|
||||||
|
|
||||||
|
function stylefunc.generic(t, line)
|
||||||
|
if not line.textsurf then
|
||||||
|
line.textsurf = cairo.image_surface_create(sres_x, sres_y, "argb32")
|
||||||
|
local c = line.textsurf.create_context()
|
||||||
|
|
||||||
|
c.select_font_face(font_name[line.style], font_italic[line.style], font_bold[line.style])
|
||||||
|
c.set_font_size(font_size[line.style])
|
||||||
|
|
||||||
|
if vertical[line.style] then
|
||||||
|
c.translate(line.pos_x, line.pos_y)
|
||||||
|
c.rotate(math.pi/2)
|
||||||
|
c.move_to(0,0)
|
||||||
|
else
|
||||||
|
c.move_to(line.pos_x, line.pos_y)
|
||||||
|
end
|
||||||
|
c.text_path(line.cleantext)
|
||||||
|
|
||||||
|
local c1, c3 = color1[line.style], color3[line.style]
|
||||||
|
c.set_source_rgba(c1.r, c1.g, c1.b, c1.a)
|
||||||
|
c.set_line_join("round")
|
||||||
|
c.set_line_width(4)
|
||||||
|
c.stroke_preserve()
|
||||||
|
c.set_source_rgba(c3.r, c3.g, c3.b, c3.a)
|
||||||
|
c.fill()
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Fade-factor (alpha for line)
|
||||||
|
local fade = 0
|
||||||
|
|
||||||
|
if t < line.start_time and t >= line.start_time - line_fade_duration then
|
||||||
|
fade = 1 - (line.start_time - t) / line_fade_duration
|
||||||
|
elseif t >= line.end_time and t < line.end_time + line_fade_duration then
|
||||||
|
fade = 1 - (t - line.end_time) / line_fade_duration
|
||||||
|
elseif t >= line.start_time and t < line.end_time then
|
||||||
|
fade = 1
|
||||||
|
else
|
||||||
|
fade = 0
|
||||||
|
end
|
||||||
|
|
||||||
|
if fade > 0 then
|
||||||
|
local lo = {} -- line overlay
|
||||||
|
lo.surf = line.textsurf
|
||||||
|
lo.x, lo.y = 0, 0
|
||||||
|
lo.alpha = 0.85 * fade
|
||||||
|
lo.operator = "over"
|
||||||
|
lo.name = "line"
|
||||||
|
table.insert(frame_overlays, lo)
|
||||||
|
|
||||||
|
noisemaskctx.set_source_surface(line.textsurf, 0, 0)
|
||||||
|
noisemaskctx.paint_with_alpha(fade)
|
||||||
|
noisemaskfilled = true
|
||||||
|
end
|
||||||
|
|
||||||
|
for i, syl in pairs(line.kara) do
|
||||||
|
if syl.end_time < syl.start_time + syl_highlight_duration then
|
||||||
|
syl.end_time = syl.start_time + syl_highlight_duration
|
||||||
|
end
|
||||||
|
|
||||||
|
if t >= syl.start_time and t < syl.end_time then
|
||||||
|
local sw, sh = syl.te.width*3, line.fe.height*3
|
||||||
|
if vertical[line.style] then
|
||||||
|
sw, sh = sh, sw
|
||||||
|
end
|
||||||
|
|
||||||
|
local fade = (syl.end_time - t) / (syl.end_time - syl.start_time)
|
||||||
|
|
||||||
|
local surf = cairo.image_surface_create(sw, sh, "argb32")
|
||||||
|
local ctx = surf.create_context()
|
||||||
|
|
||||||
|
ctx.select_font_face(font_name[line.style], font_italic[line.style], font_bold[line.style])
|
||||||
|
ctx.set_font_size(font_size[line.style]*2)
|
||||||
|
|
||||||
|
local te, fe = ctx.text_extents(syl.text), ctx.font_extents()
|
||||||
|
|
||||||
|
local rx, ry = (sw - te.width) / 2 + te.x_bearing, (sh - fe.height) / 2 + fe.ascent
|
||||||
|
assert(not vertical[line.style], "Can't handle vertical kara in syllable highlight code - poke jfs if you need this")
|
||||||
|
|
||||||
|
ctx.move_to(rx, ry)
|
||||||
|
ctx.text_path(syl.text)
|
||||||
|
|
||||||
|
local path = ctx.copy_path()
|
||||||
|
local function modpath(x, y)
|
||||||
|
local cx = math.sin(y/sh*math.pi)
|
||||||
|
local cy = math.sin(x/sw*math.pi)
|
||||||
|
cx = cx * x + (1-cx)/2*sw
|
||||||
|
cy = cy * y + (1-cy)/2*sh
|
||||||
|
return fade*x+(1-fade)*cx, fade*y+(1-fade)*cy
|
||||||
|
end
|
||||||
|
path.map_coords(modpath)
|
||||||
|
ctx.new_path()
|
||||||
|
ctx.append_path(path)
|
||||||
|
|
||||||
|
local c2, c3 = color2[line.style], color3[line.style]
|
||||||
|
|
||||||
|
for b = 8, 1, -3 do
|
||||||
|
local bs = cairo.image_surface_create(sw, sh, "argb32")
|
||||||
|
local bc = bs.create_context()
|
||||||
|
bc.set_source_rgba(c2.r, c2.g, c2.b, c2.a)
|
||||||
|
bc.append_path(path)
|
||||||
|
bc.fill()
|
||||||
|
raster.gaussian_blur(bs, b)
|
||||||
|
local bo = {}
|
||||||
|
bo.surf = bs
|
||||||
|
bo.x = syl.center_x - sw/2
|
||||||
|
bo.y = syl.center_y - sh/2
|
||||||
|
bo.alpha = fade
|
||||||
|
bo.operator = "add"
|
||||||
|
bo.name = "blur " .. b
|
||||||
|
table.insert(frame_overlays, bo)
|
||||||
|
end
|
||||||
|
|
||||||
|
ctx.set_source_rgba(c3.r, c3.g, c3.b, c3.a)
|
||||||
|
ctx.set_line_join("round")
|
||||||
|
ctx.set_operator("over")
|
||||||
|
ctx.set_line_width(3*fade)
|
||||||
|
ctx.stroke_preserve()
|
||||||
|
ctx.set_operator("dest_out")
|
||||||
|
ctx.fill()
|
||||||
|
raster.box_blur(surf, 3, 2)
|
||||||
|
|
||||||
|
local so = {}
|
||||||
|
so.surf = surf
|
||||||
|
so.x = syl.center_x - sw/2
|
||||||
|
so.y = syl.center_y - sh/2
|
||||||
|
so.alpha = 1
|
||||||
|
so.operator = "over"
|
||||||
|
so.name = string.format("bord %s %.1f %.1f (%.1f,%.1f)", syl.text, sw, sh, rx, ry)
|
||||||
|
table.insert(frame_overlays, so)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
stylefunc.Romaji = stylefunc.generic
|
||||||
|
stylefunc.Kanji = stylefunc.generic
|
||||||
|
stylefunc.English = stylefunc.generic
|
||||||
|
|
||||||
|
|
||||||
|
-- Main rendering function
|
||||||
|
function render_frame(f, t)
|
||||||
|
init(f)
|
||||||
|
|
||||||
|
local surf = f.create_cairo_surface()
|
||||||
|
local ctx = surf.create_context()
|
||||||
|
ctx.scale(vres_x/sres_x, vres_y/sres_y)
|
||||||
|
|
||||||
|
-- The line rendering functions add the mask of the line they rendered to
|
||||||
|
-- this image. It will be used to draw the glow around all lines.
|
||||||
|
-- It has to be done in this way to avoid the glows from nearby lines to
|
||||||
|
-- interfere and produce double effect.
|
||||||
|
noisemask = cairo.image_surface_create(sres_x, sres_y, "argb32")
|
||||||
|
noisemaskctx = noisemask.create_context()
|
||||||
|
-- Set to true as soon as anything is put into the noise mask
|
||||||
|
-- This is merely an optimisation to avoid doing anything when there aren't
|
||||||
|
-- any lines on screen.
|
||||||
|
noisemaskfilled = false
|
||||||
|
-- List of images to overlay on the video frame, after the noise mask.
|
||||||
|
frame_overlays = {}
|
||||||
|
|
||||||
|
for i, line in pairs(lines) do
|
||||||
|
if stylefunc[line.style] then
|
||||||
|
calc_line_metrics(ctx, line)
|
||||||
|
stylefunc[line.style](t, line)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
if noisemaskfilled then
|
||||||
|
-- Greenish and jittery version of the frame
|
||||||
|
local noiseimg = f.create_cairo_surface()
|
||||||
|
raster.box_blur(noiseimg, 5, 2)
|
||||||
|
raster.pixel_value_map(noiseimg, "G rand 0.4 * + =G G 1 - 1 G ifgtz =G")
|
||||||
|
-- Blurred version of the noisemask
|
||||||
|
raster.gaussian_blur(noisemask, 8)
|
||||||
|
-- Mask additive paint the noise mask: only show the area near the text
|
||||||
|
-- and have it do interesting things with the video.
|
||||||
|
ctx.set_source_surface(noiseimg, 0, 0)
|
||||||
|
ctx.set_operator("add")
|
||||||
|
ctx.mask_surface(noisemask, 0, 0)
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Paint generated overlays onto the video.
|
||||||
|
for i, o in pairs(frame_overlays) do
|
||||||
|
ctx.set_source_surface(o.surf, o.x, o.y)
|
||||||
|
ctx.set_operator(o.operator)
|
||||||
|
ctx.paint_with_alpha(o.alpha)
|
||||||
|
end
|
||||||
|
|
||||||
|
f.overlay_cairo_surface(surf, 0, 0)
|
||||||
|
end
|
||||||
|
|
||||||
Loading…
Reference in a new issue