1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
script_name = "pos -> an"
script_description = "double click the video then snap to an \\an"
script_author = "garret"
script_version = "1"
local function escape_pattern(txt)
local magic_chars = "%^%$%(%)%%.%[%]%*%+%-%?"
return txt:gsub("(["..magic_chars.."])", "%%%1")
end
local function main(sub, sel)
local vidx, vidy = aegisub.video_size()
local left = vidx * 0.25
local right = vidx - (vidx * 0.25)
local top = vidy * 0.32
local bottom = vidy - (vidx * 0.35)
-- todo: have these customisable in a gui in v2
if not vidx then
aegisub.log("open a video")
aegisub.cancel()
-- todo: might be nice to use script res for this
-- but realistically if youre using this, youve got a video open
end
for _, i in ipairs(sel) do
local line = sub[i]
local x
local y
local tag
local c = 0
line.text = string.gsub(line.text, "\\an%d", "")
line.text = string.gsub(line.text, "{}", "")
for postag, posx, posy in string.gmatch(line.text, "{[^}]*(\\pos%(([^,]+), *([^)]+)%))[^}]*}") do
if c == 0 then
x = tonumber(posx)
y = tonumber(posy)
tag = escape_pattern(postag)
end
c = c + 1
end
if c == 0 then goto continue end
-- aegi is luajit
local s
if y <= top then
s = "t" elseif
y >= bottom then s = "b"
else s = "c" end
if x <= left then
s = s.."l" elseif
x >= right then s = s.."r"
else s = s.."c" end
local AN_MAP = {
tl = 7, tc = 8, tr = 9,
cl = 4, cc = 5, cr = 6,
bl = 1, bc = 2, br = 3,
}
line.text = string.gsub(line.text, tag, "\\an"..AN_MAP[s])
sub[i] = line
::continue::
end
end
aegisub.register_macro(script_name, script_description, main)
|
