iqbalrifai
/
Aegisub
mirror of https://github.com/odrling/Aegisub
1
0
Fork 0
Code Issues Releases Wiki Activity
Aegisub/automation/autoload/ua.HYDRA.lua

2064 lines
86 KiB
Lua
Raw Permalink Blame History

-- Manual: http://unanimated.hostfree.pw/ts/scripts-manuals.htm#hydra
script_name="HYDRA"
script_description="A multi-headed typesetting beast. Scary as Hell."
script_author="unanimated"
script_url1="http://unanimated.hostfree.pw/ts/hydra.lua"
script_url2="https://raw.githubusercontent.com/unanimated/luaegisub/master/hydra.lua"
script_version="6.1"
script_namespace="ua.HYDRA"
local haveDepCtrl,DependencyControl,depRec=pcall(require,"l0.DependencyControl")
if haveDepCtrl then
script_version="6.1.0"
depRec=DependencyControl{feed="https://raw.githubusercontent.com/unanimated/luaegisub/master/DependencyControl.json"}
end
re=require'aegisub.re'
clipboard=require'aegisub.clipboard'
order="\\r\\fad\\fade\\an\\q\\blur\\be\\bord\\xbord\\ybord\\shad\\xshad\\yshad\\fn\\fs\\fsp\\fscx\\fscy\\frx\\fry\\frz\\fax\\fay\\c\\2c\\3c\\4c\\alpha\\1a\\2a\\3a\\4a\\pos\\move\\org\\clip\\iclip\\b\\i\\u\\s\\p"
noneg2="|bord|shad|xbord|ybord|fs|blur|be|fscx|fscy|"
-- HYDRA HEAD 9 --
function hh9(subs,sel)
-- get colours + tags from input
getcolours()
if res.italix or res.bolt or res.under or res.strike then styleget(subs) end
local shft=res.int or 0
tags=""
tags=gettags(tags)
transform=tags
ortags=tags
ortrans=transform
retags=tags:gsub("\\","\\\\")
z0=-1
-- tag position
pl1,pl2,pl3=nil,nil,nil
place=res.linetext or ""
if place=="*" then t_error("You cannot have only \"*\" in Tag position.",1) end
if place:match("*") then pl1,pl2,pl3=place:match("(.*)(%*)(.*)") pla=1 else pla=0 end
if res.tagpres~="--- presets ---" and res.tagpres~=nil then pla=1 end
for z,i in ipairs(sel) do
progress("Hydralizing line: "..z.."/"..#sel)
prog=math.floor((z+0.5)/#sel*100) aegisub.progress.set(prog)
line=subs[i]
text=line.text
visible=nobrea(text)
linecheck()
if not text:match("^{\\") then text="{\\HYDRA}"..text end
if visible:match("*") and res.tagpres=="--- presets ---" then pla=0 end
-- transforms
if trans==1 and GO then z0=z0+1
tin=res.trin or 0
tout=res.trout or 0
if res.tend then
tin=line.end_time-line.start_time-res.trin
tout=line.end_time-line.start_time-res.trout
end
if tmode==1 then
if res.int~=0 then TF=shft*z0 else TF=0 end
tnorm="\\t("..tin+TF..","..tout+TF..","..res.accel..",\\alltagsgohere)}"
if place:match("*") and pla==1 then
initags=text:match("^{\\[^}]-}") or ""
orig=text
replace=place:gsub("%*","{"..tnorm)
v1=nobra(text)
v2=nobra(replace)
if v1==v2 then text=initags..textmod(orig,replace) end
else
text=text:gsub("^({\\[^}]*)}","%1"..tnorm)
end
end
if tmode==2 then text=text:gsub("^(.-\\t%b())",function(t) return t:gsub("%)$","\\alltagsgohere)") end) end
if tmode==3 then text=text:gsub("(\\t%b())",function(t) return t:gsub("%)$","\\alltagsgohere)") end) end
if tmode==4 then
if res.int~=0 then
tagtab={}
for tt in text:gmatch(".-{\\[^}]*}") do table.insert(tagtab,tt) end
END=text:match("^.*{\\[^}]*}(.-)$")
for t=1,#tagtab do sf=t-1
tagtab[t]=tagtab[t]:gsub("({\\[^}]*)}","%1\\t("..tin+shft*sf..","..tout+shft*sf..","..res.accel..",\\alltagsgohere)}")
end
nt=END
for a=#tagtab,1,-1 do nt=tagtab[a]..nt end
text=nt
else text=text:gsub("({\\[^}]*)}","%1\\t("..tin..","..tout..","..res.accel..",\\alltagsgohere)}")
end
end
if res.add and res.add~=0 then transform=addbyline(transform,ortrans) end
if tmode<4 and res.relative then
stags=text:match(STAG) or ""
for tag,val in transform:gmatch("(\\%a+)([%d%.%-]+)") do
if stags:match(tag) then oldval=stags:match(tag.."([%d%.%-]+)")
transform=transform:gsub(tag..esc(val),tag..oldval+val)
end
end
end
text=text:gsub("\\alltagsgohere",transform)
if tmode==4 and res.relative then
text=text:gsub(ATAG,function(tg)
for tag,val in transform:gmatch("(\\%a+)([%d%.%-]+)") do
if tg:match(tag) then oldval=tg:match(tag.."([%d%.%-]+)")
transform2=transform:gsub(tag..esc(val),tag..oldval+val)
tg=tg:gsub("(.*\\t.-)"..transform,"%1"..transform2)
end
end
return tg end)
end
text=text:gsub("\\t%(0,0,1,","\\t(")
:gsub("\\t(%b())",function(tr) return "\\t"..duplikill(tr) end)
:gsub(ATAG,function(tg) return cleantr(tg) end)
-- non transform, ie. the regular stuff
elseif GO then z0=z0+1
-- temporarily block transforms
text=text:gsub(ATAG,function(tg) return duplikill(tg) end)
:gsub("\\t(%b())",function(t) return "\\tra"..t:gsub("\\","/") end)
if res.add and res.add~=0 then tags=addbyline(tags,ortags) end
if pla==1 and z==1 then
if res.strike then tags=tags.."\\s1" end
if res.under then tags=tags.."\\u1" end
if res.bolt then tags=tags.."\\b1" end
if res.italix then tags=tags.."\\i1" end
end
if tags~="" then
drawing=text:match("\\p1")
if drawing then fail("Some lines contain drawings.") end
if visible=="" then fail("No visible text.") end
if pla==1 and not drawing and visible~="" then
initags=text:match(STAG) or ""
text=text:gsub("(\\[Nh])","{%1}")
orig=text
v1=nobra(orig)
-- BEFORE LAST CHARACTER
if res.tagpres=="before last char." then
com_dump=''
repeat
end_com=text:match("(%b{})$")
if end_com then
com_dump=end_com..com_dump
text=text:gsub("%b{}$","")
else break end
until not end_com
text=re.sub(text,"(.)$","{§}\\1")
text=text:gsub("{§}",wrap(tags))..com_dump
-- SOMEWHERE IN THE MIDDLE
elseif res.tagpres=="in the middle" or res.tagpres:match("of text") then
clean=nobrea1(text)
char=re.find(clean,'.')
lngth=math.floor(#char*fak)
text="{·}"..text
text=text:gsub("{·}({\\[^}]-})","%1{·}")
m=0
if lngth>0 then
repeat text=text:gsub("{·}(%b{})","%1{·}") text=re.sub(text,"{·}([^{])","\\1{·}") m=m+1 until m==lngth
end
text=text:gsub("{(·)}",wrap(tags)) :gsub("({"..esc(tags).."})(%b{})","%2%1")
-- PATTERN
elseif res.tagpres=="custom pattern" then
if place=="" then t_error("Custom pattern preset: No text given in Tag position.",1) end
if not pl1 then t_error("Asterisk missing in Tag position. ("..place..")",1) end
pl1=esc(pl1) pl3=esc(pl3)
text=nobrea(text):gsub(pl1..pl3,pl1.."{"..tags.."}"..pl3)
text=initags..retextmod(orig,text)
if text==orig then fail("Pattern '"..place.."' not found.") end
-- SECTION
elseif res.tagpres=="section" then
if place=="" then t_error("Section preset: No text given in Tag position.",1) end
tgs2=""
for tg in tags:gmatch("\\%d?%a+") do
txt1=text:match("^%b{}.-"..esc(place)) or text:match("^.-"..esc(place)) or ""
local tg2=txt1:match("^.*("..tg.."[^\\}]+).-$") or tg
if tg=='\\fs' then tg2=txt1:match("^.*(\\fs%d+).-$") or tg end
tg2=tg2:gsub("(\\[ibus])%d","%10")
tgs2=tgs2..tg2
end
text=nobrea(text):gsub("^(.-)("..esc(place).."%s*)(.*)$","%1{"..tags.."}%2{"..tgs2.."}%3")
text=initags..retextmod(orig,text)
if text==orig then fail("Pattern '"..place.."' not found.") end
-- CHARACTER
elseif res.tagpres=="every char." then
replace=re.sub(nobra(text),"(.)","{"..retags.."}\\1")
v2=nobra(replace)
if visible=="" then fail("No visible text.")
elseif v1==v2 then text=initags..retextmod(orig,replace) end
text=text:gsub("({\\HYDRA})%1","%1")
-- WORD
elseif res.tagpres=="every word" then
replace=nobra(text):gsub("%S+","{"..tags.."}%1"):gsub("(%b{})\\N","\\N%1")
v2=nobra(replace)
if v1==v2 then text=initags..retextmod(orig,replace) end
text=text:gsub("({\\HYDRA})%1","%1")
-- TEXT POSITION
elseif res.tagpres=="text position" then
v2=nobra(text)
pmax=re.find(v2,".") or {}
krktrz=#pmax
pos=tonumber(place:match("^%-?%d+")) or 0
addpos=tonumber(place:match(".([%+%-]%d+)")) or 0
if pos<0 then pos=krktrz+pos end
split=pos+addpos*z0
if split<0 then split=0 end
if split<krktrz then
be4=re.sub(v2,"^(.{"..split.."}).*","\\1")
aft=re.sub(v2,"^.{"..split.."}","")
text=be4..wrap(tags)..aft
if v1==v2 then text=initags..retextmod(orig,text) end
end
if text==orig then fail("Line has fewer than "..place.." visible characters.") end
-- REPLACE BELL
elseif res.tagpres=="replace {•}" then
repeat text,r=text:gsub("{•}({[^}]*})","%1{•}") until r==0
text,r=text:gsub("{•}",wrap(tags))
if r==0 then fail("No {•} in text.") end
-- REPLACE WAVE
elseif res.tagpres=="replace {~}" then
repeat text,r=text:gsub("{~}({[^}]*})","%1{~}") until r==0
text,r=text:gsub("{~}",wrap(tags))
if r==0 then fail("No {~} in text.") end
-- REPLACE LINE BREAK
elseif res.tagpres=="replace \\N" then
text,r=text:gsub("\\N",tags)
if r==0 then fail("No \\N in text.") end
-- AT ASTERISK POINT
else
replace=place:gsub("%*",wrap(tags)):gsub("\\N","")
v2=nobra(replace)
if v1==v2 then text=initags..retextmod(orig,replace) else fail("Different text.") end
end
text=text:gsub("{(\\[Nh])}","%1")
text=tagmerge(text)
elseif pla==0 then
-- REGULAR START TAGS
for t in tags:gmatch("\\%d?%a[^\\]*") do text=addtag3(t,text) end
text=text:gsub(STAG,function(a) repeat a,r=a:gsub("(\\[1234]a%b&&)(.-)(\\alpha%b&&)","%2%3%1") until r==0 return a end)
end
text=text:gsub(ATAG,function(tg) return duplikill(tg) end)
repeat text,r=text:gsub("{([^}]-)(\\[Nh])([^}]-)}","%2{%1%3}") until r==0
text=text:gsub("{}","")
end
-- non-transformable tags
if pla==0 then
-- strikeout/underline/bold/italics
if res.strike then text=bolts(text,"\\s","strikeout") end
if res.under then text=bolts(text,"\\u","underline") end
if res.bolt then text=bolts(text,"\\b","bold") end
if res.italix then text=bolts(text,"\\i","italic") end
-- \fad
if res.fade then
IN=res.fadin OUT=res.fadout fGO=1
if res.glo then
if z<#sel then OUT=0 end
if z>1 then IN=0 end
if IN==0 and OUT==0 then fGO=0 end
end
text=text:gsub("\\fad%([%d%.%,]-%)","")
if fGO==1 then text=text:gsub("^{\\","{\\fad("..IN..","..OUT..")\\") end
end
-- \q2
if res.q2 then
if text:match("\\q2") then text=text:gsub("\\q2","") else text=text:gsub("^{\\","{\\q2\\") end
end
-- \an
if res.an1 then
if text:match("\\an%d") then text=text:gsub("\\an(%d)","\\an"..res.an2) else text=text:gsub("^{\\","{\\an"..res.an2.."\\") end
end
if text==line.text then fail("Most likely tags already present.") end
end
-- unblock transforms
text=text:gsub("\\tra(%b())",function(t) return "\\t"..t:gsub("/","\\") end)
end
-- the end
text=text:gsub("\\HYDRA","") :gsub("\\t%([^\\%)]-%)","") :gsub("{}","")
if line.text~=text then success=success+1 end
line.text=text
subs[i]=line
end
summary()
end
function bolts(text,ttype,srtype)
if text:match("^{[^}]-"..ttype.."[01]") then text=text:gsub(ttype.."([01])",function(a) return ttype..(1-a) end)
else
local t_val=text:match(ttype.."([01])")
if not t_val then
if stylechk(sty)[srtype] then t_val="0" else t_val="1" end
end
text=text:gsub(ttype.."([01])",function(a) return ttype..(1-a) end) :gsub("^({\\[^}]*)}","%1"..ttype..t_val.."}")
end
return text
end
function vis_replace(t,r1,r2)
local nt=''
repeat
seg,t2=t:match("^(%b{})(.*)") --tags/comms
if not seg then seg,t2=t:match("^([^{]+)(.*)") --text
if not seg then break end
seg=seg:gsub(r1,r2)
end
nt=nt..seg
t=t2
until t==''
return nt
end
function getcolours()
col={} alfalfa={}
for c=1,4 do
local colur=res["c"..c]:gsub("#(%x%x)(%x%x)(%x%x).*","&H%3%2%1&")
table.insert(col,colur)
if res.alfas then
local alpa=res["c"..c]:match("#%x%x%x%x%x%x(%x%x)")
if alpa then
table.insert(alfalfa,alpa)
if res["k"..c] then res["arf"..c]=true res["alph"..c]=alfalfa[c] end
end
end
if res.aonly then res["k"..c]=false end
end
end
function gettags(tags)
if res.reuse then
if lastags then
if res.show then showtags(lastags) end
return lastags
else t_error("No tags to reuse",1) end
end
if res.fsc1 then res.fscx1=true res.fscy1=true res.fscx2=res.fsc2 res.fscy2=res.fsc2 end
if res["blur1"] then tags=tags.."\\blur"..res["blur2"] end
if res["be1"] then tags=tags.."\\be"..res["be2"] end
if res["bord1"] then tags=tags.."\\bord"..res["bord2"] end
if res["shad1"] then tags=tags.."\\shad"..res["shad2"] end
if res["fs1"] then tags=tags.."\\fs"..res["fs2"] end
if res["spac1"] then tags=tags.."\\fsp"..res["spac2"] end
if res["fscx1"] then tags=tags.."\\fscx"..res["fscx2"] end
if res["fscy1"] then tags=tags.."\\fscy"..res["fscy2"] end
if res["xbord1"] then tags=tags.."\\xbord"..res["xbord2"] end
if res["ybord1"] then tags=tags.."\\ybord"..res["ybord2"] end
if res["xshad1"] then tags=tags.."\\xshad"..res["xshad2"] end
if res["yshad1"] then tags=tags.."\\yshad"..res["yshad2"] end
if res["frz1"] then tags=tags.."\\frz"..res["frz2"] end
if res["frx1"] then tags=tags.."\\frx"..res["frx2"] end
if res["fry1"] then tags=tags.."\\fry"..res["fry2"] end
if res["fax1"] then tags=tags.."\\fax"..res["fax2"] end
if res["fay1"] then tags=tags.."\\fay"..res["fay2"] end
if res["k1"] then tags=tags.."\\c"..col[1] end
if res["k2"] then tags=tags.."\\2c"..col[2] end
if res["k3"] then tags=tags.."\\3c"..col[3] end
if res["k4"] then tags=tags.."\\4c"..col[4] end
if res["arfa"] then tags=tags.."\\alpha&H"..res["alpha"].."&" end
if res["arf1"] then tags=tags.."\\1a&H"..res["alph1"].."&" end
if res["arf2"] then tags=tags.."\\2a&H"..res["alph2"].."&" end
if res["arf3"] then tags=tags.."\\3a&H"..res["alph3"].."&" end
if res["arf4"] then tags=tags.."\\4a&H"..res["alph4"].."&" end
lastags=tags
if res.show then showtags(tags) end
if res["moretags"] and res["moretags"]~="\\" then tags=tags..res["moretags"] end
return tags
end
function addbyline(tags,ortags)
tags=ortags:gsub("\\(%a%a+)([%d%.%-]+)",function(t,v)
if t~="an" and t~="fn" then
local nv=round(v+res.add*z0,2)
if nv<0 and noneg2:match("|"..t.."|") then nv=0 end
return "\\"..t..nv
else return "\\"..t..v end
end)
return tags
end
function linecheck()
lay=line.layer sty=line.style act=line.actor eff=line.effect
if not res.appltx then res.appltx="" end
GO=nil local lGO,sGO,aGO,eGO,tGO
if res.applay=="All Layers" or not res.exc and tonumber(res.applay)==lay or res.exc and tonumber(res.applay)~=lay then lGO=true end
if res.applst=="All Styles" or not res.exc and res.applst==sty or res.exc and res.applst~=sty then sGO=true end
if res.applac=="All Actors" or not res.exc and res.applac==act or res.exc and res.applac~=act then aGO=true end
if res.applef=="All Effects" or not res.exc and res.applef==eff or res.exc and res.applef~=eff then eGO=true end
if res.appltx=="Text..." or res.appltx=="" or line.text:match(esc(res.appltx)) then tGO=true end
if lGO and sGO and aGO and eGO and tGO then GO=true end
if loaded<3 then GO=true end
if not GO then fail("Some 'Apply to' restrictions set.") end
end
-- GRADIENTS --
function hydradient(subs,sel)
local GT=res.gtype:match("^....")
local strip=res.stripe
local acc=res.accel
styleget(subs)
getcolours()
tags=""
tags=gettags(tags)
if tags=="" then ak() end
ortags=tags
local gcpos=res.linetext gcl=nil
if res.middle and gcpos:match("*") then gc1,gc2=gcpos:match("^(.-)%*(.-)$") gcl=gc1:len() end
local GBCn=tonumber(gcpos:match("^%d$")) or 1
text1=subs[sel[1]].text
tags_1=text1:match(STAG) or ""
tags_1=detra(tags_1)
if GT=="by l" then GBL=0 z1=0
for z,i in ipairs(sel) do line=subs[i] linecheck() if GO then GBL=GBL+1 end end
-- GBL: values from last line
if res.last then
local l=subs[sel[#sel]]
local st=l.text:match(STAG) or ""
for tg in tags:gmatch("\\[^\\]+") do
local tag=tg:match '\\%d?%a+'
local tv=st:match(tag.."([^\\})]+)")
if tv then tg2=tag..tv tags=tags:gsub(esc(tg),tg2) end
end
end
table.sort(sel,function(a,b) return a>b end)
end
local bra={}
for z=#sel,1,-1 do
i=sel[z]
progress("Gradienting line #"..i-line0.." ["..#sel+1-z.."/"..#sel.."]")
line=subs[i]
text=line.text
orig=text
visible=nobrea(text)
text=text:gsub("\\t(%b())",function(t) return "\\tra"..t:gsub("\\","/") end) :gsub("\\1c","\\c")
initags=text:match(STAG) or ""
sr=stylechk(line.style)
linecheck()
-- hori/vert
if GO and GT:match("r") then
x1,y1,x2,y2=initags:match("clip%(([%d%.%-]+),([%d%.%-]+),([%d%.%-]+),([%d%.%-]+)")
if not x1 then
local note=''
if #sel>1 then note='\n(Note: Lines are processed from last to first.)' end
t_error(res.gtype.." gradient:\nMissing rectangular clip on line #"..i-line0..note.."\nAborting.",1)
end
x1=math.floor(x1) y1=math.floor(y1) x2=math.ceil(x2) y2=math.ceil(y2) local c_s
if GT=="vert" then total=math.ceil((y2-y1)/strip) c_s=y2-y1 else total=math.ceil((x2-x1)/strip) c_s=x2-x1 end
if total<2 then t_error("Error on line #"..i-line0..".\nThis won't create any gradient.\nDecrease the pxl/stripe setting.\nStripe: "..strip.."; Clip size: "..c_s.."\nAborting.",1) end
if not initags:match("\\pos") and not initags:match("\\move") then initags=getpos(subs,initags) end
for l=1,total do
LN=l count=total
half=math.ceil(total/2)
if res.middle then count=half
if LN>half then LN=total-LN+1 end
end
stags=initags
text2=text
for tg,V2 in tags:gmatch("(\\%d?%a+)([^\\]+)") do
if tg:match("fr") and res.short then V2=shortrot(V2) end
V1=initags:match("^{[^}]-"..tg.."([%d%-&][^\\}]*)") or tag2style(tg,sr)
if tg:match("fr") and res.short then V1=shortrot(V1) end
if tg:match("\\[fbsxy]") then VC=numgrad(V1,V2,count,LN,acc) end
if tg:match("\\%d?a") then VC=agrad(V1,V2,count,LN,acc) end
if tg:match("\\%d?c") then
if res.hsl then VC=acgradhsl(V1,V2,count,LN,acc) else VC=acgrad(V1,V2,count,LN,acc) end
end
stags=addtag3(tg..VC,stags)
stags=stags:gsub("clip%(([%d%.%-]+),([%d%.%-]+),([%d%.%-]+),([%d%.%-]+)",function(a,b,c,d)
if GT=="vert" then b=y1+(l-1)*strip d=b+strip a=x1 c=x2 end
if GT=="hori" then a=x1+(l-1)*strip c=a+strip b=y1 d=y2 end
return "clip("..a..","..b..","..c..","..d end)
text2=text2:gsub("(.)("..ATAG..")",function(a,tblok)
V1i=tblok:match("^{[^}]-"..tg.."([%d%-&][^\\}]*)")
if V1i and tg:match("\\[fbsxy]") then VC=numgrad(V1i,V2,count,LN,acc) end
if V1i and tg:match("\\%d?a") then VC=agrad(V1i,V2,count,LN,acc) end
if V1i and tg:match("\\%d?c") then
if res.hsl then VC=acgradhsl(V1i,V2,count,LN,acc) else VC=acgrad(V1i,V2,count,LN,acc) end
end
tblok=addtag3(tg..VC,tblok)
return a..tblok end)
end
l2=line
l2.text=text2:gsub(STAG,stags) :gsub("\\tra(%b())",function(t) return "\\t"..t:gsub("/","\\") end)
if l==1 then text=l2.text
else subs.insert(i+l-1,l2) end
end
if z<#sel then for s=z+1,#sel do sel[s]=sel[s]+total-1 end end
for s=1,total-1 do table.insert(sel,i+s) end
end
-- by character
letrz0=re.find(visible,".") or {}
if GT=="by c" and text:match '\\p1' then GO=nil fail("Some lines contain drawings.") end
if GT=="by c" and GBCn>#letrz0 then GO=nil end
if GO and GT=="by c" and #letrz0>1 then
orig=orig:gsub("(\\[Nh])","{%1}")
if text:match "{[^}]*{" or text:match "}[^{]*}" or text:match "^[^{]*}" or text:match "{[^}]*$" then brackets=true table.insert(bra,1,i-line0) end
re_check=0
repeat
LTR={}
TAG={}
letrz=re.find(visible,".{"..GBCn.."}")
rest=re.sub(visible,".{"..GBCn.."}","")
for l=1,#letrz do
table.insert(LTR,letrz[l].str)
table.insert(TAG,"")
end
if rest~="" then table.insert(LTR,rest) table.insert(TAG,"") end
for tg,V2 in tags:gmatch("(\\%d?%a+)([^\\]+)") do
if tg:match("fr") and res.short then V2=shortrot(V2) end
V1=text:match("^{[^}]-"..tg.."([%d%-&][^\\}]*)") or tag2style(tg,sr)
if tg:match("fr") and res.short then V1=shortrot(V1) end
initags=addtag3(tg..V1,initags)
for l=2,#LTR do
LN=l count=#LTR
half=math.ceil(#LTR/2)
if gcl and gc1..gc2==visible then
if l<=gcl then count=gcl else count=#LTR-gcl LN=#LTR-l+1 end
elseif res.middle then count=half
if LN>half then LN=#LTR-LN+1 end
end
if tg:match("\\[fbsxy]") then VC=numgrad(V1,V2,count,LN,acc) end
if tg:match("\\%d?a") then VC=agrad(V1,V2,count,LN,acc) end
if tg:match("\\%d?c") then
if res.hsl then VC=acgradhsl(V1,V2,count,LN,acc) else VC=acgrad(V1,V2,count,LN,acc) end
end
TAG[l]=TAG[l]..tg..VC
end
end
nt=LTR[1]
for l=2,#LTR do nt=nt.."{"..TAG[l].."}"..LTR[l] end
text=initags..textmod(orig,nt)
text=text:gsub(ATAG,function(tg) return duplikill(tg) end)
repeat text,r=text:gsub("{([^}]-)(\\[Nh])([^}]-)}","%2{%1%3}") until r==0
text=text:gsub("{}","")
visible2=nobrea(text)
if visible~=visible2 then re_check=re_check+1 end
until visible==visible2 or re_check>=100
end
-- by line
if GO and GT=="by l" then z1=z1+1
LN=z1 total=GBL count=GBL
half=math.ceil(total/2)
if res.middle then count=half
if LN>half then LN=total-LN+1 end
end
stags=initags
for tg,V2 in tags:gmatch("(\\%d?%a+)([^\\]+)") do
if tg:match("fr") and res.short then V2=shortrot(V2) end
V1=tags_1:match("^{[^}]-"..tg.."([%d%-&][^\\}]*)") or tag2style(tg,sr)
if tg:match("fr") and res.short then V1=shortrot(V1) end
if tg:match("\\[fbsxy]") then VC=numgrad(V1,V2,count,LN,acc) end
if tg:match("\\%d?a") then VC=agrad(V1,V2,count,LN,acc) end
if tg:match("\\%d?c") then
if res.hsl then VC=acgradhsl(V1,V2,count,LN,acc) else VC=acgrad(V1,V2,count,LN,acc) end
end
stags=addtag3(tg..VC,stags)
end
text=text:gsub(STAG,stags) :gsub("\\tra(%b())",function(t) return "\\t"..t:gsub("/","\\") end)
if line.text==text then fail("Target values probably already present.") end
end
text=text:gsub("\\tra(%b())",function(t) return "\\t"..t:gsub("/","\\") end)
visible2=nobrea(text)
txt_check(visible,visible2,i)
if line.text~=text and visible==visible2 then success=success+1 end
line.text=text
subs[i]=line
end
if brackets then
local l=''
for k,v in ipairs(bra) do l=l..v..', ' end
l=l:gsub(', $','')
t_error("Some lines contain wrong sets of curly brackets. \nThis probably won't go well with gradients. \nLines # "..l)
brackets=nil
end
summary()
return sel
end
-- SPECIAL FUNCTIONS --
function special(subs,sel)
SF=res.spec
if res.spec=="back and forth transform" and res.int==0 then
BAFT={{class="label",label="Interval for back and forth transform missing.\nGive milliseconds."},
{y=1,name="int2",class="intedit",min=0}}
pres,rez=ADD(BAFT,{"OK","Cancel"},{ok='OK',close='Cancel'})
if pres=="Cancel" or rez.int2==0 then ak() end
res.int=rez.int2
end
if res.spec:match"transform" or res.spec:match"strikeout" then
getcolours()
transphorm=""
transphorm=gettags(transphorm)
end
if res.spec=="split line in 3 parts" then
if res.trin==0 and res.trout==0 then t_error("No times given to split lines by.\nUse Transform t1 && t2 fields.",1) end
nsel={} for z,i in ipairs(sel) do table.insert(nsel,i) end
end
styleget(subs)
if res.spec=="select overlaps" then sel=selover(subs)
else
for z=#sel,1,-1 do
i=sel[z]
progress(res.spec..": "..#sel-z.."/"..#sel)
prog=math.floor((#sel-z+0.5)/#sel*100)
aegisub.progress.set(prog)
line=subs[i]
text=line.text
layer=line.layer
linecheck()
if GO then res.spec=SF else res.spec="nope" end
text=text:gsub("\\1c","\\c")
if res.spec=="fscx -> fscy" then text=text:gsub("\\fscy[%d%.]+",""):gsub("\\fscx([%d%.]+)","\\fscx%1\\fscy%1") end
if res.spec=="fscy -> fscx" then text=text:gsub("\\fscx[%d%.]+",""):gsub("\\fscy([%d%.]+)","\\fscx%1\\fscy%1") end
if res.spec=="shad -> xshad+yshad" then
text=text:gsub("\\shad([%d%.]+)","\\xshad%1\\yshad%1"):gsub(ATAG,function(tg) return duplikill(tg) end)
if text==line.text then fail("No \\shad tag.") end
end
if res.spec=="move colour tag to first block" then
tags=text:match(STAG) or ""
text=text:gsub(STAG,"")
klrs=""
for klr in text:gmatch("\\[1234]?c&H%x+&") do klrs=klrs..klr end
text=text:gsub("(\\[1234]?c&H%x+&)","") :gsub("{}","")
text=tags.."{"..klrs.."}"..text
text=tagmerge(text):gsub("{}","")
:gsub(ATAG,function(tg) return duplikill(tg) end)
end
if res.spec=="convert clip <-> iclip" then
text=text:gsub("\\(i?)clip",function(k) if k=="" then return "\\iclip" else return "\\clip" end end)
if text==line.text then fail("No (i)clip found.") end
end
-- CLEAN UP TAGS
if res.spec=="clean up tags" then
text=text:gsub("{\\\\k0}",""):gsub(">\\","\\"):gsub("{(\\[^}]-)} *\\N *{(\\[^}]-)}","\\N{%1%2}")
text=tagmerge(text)
text=text:gsub("({\\[^}]-){(\\[^}]-})","%1%2"):gsub("{.-\\r","{\\r"):gsub("^{\\r([\\}])","{%1")
text=text:gsub("\\fad%(0,0%)",""):gsub(ATAG.."$",""):gsub("^({\\[^}]-)\\frx0\\fry0","%1")
text=text:gsub(ATAG,function(tgs)
tgs2=tgs
:gsub("\\+([\\}])","%1")
:gsub("(\\[^\\})]+)",function(a) if not a:match'clip' and not a:match'\\fn' and not a:match'\\r' then a=a:gsub(' ','') end return a end)
:gsub("(\\%a+)([%d%-]+%.%d+)",function(a,b) if not a:match("\\fn") then b=round(b,2) end return a..b end)
:gsub("(\\%a+)%(([%d%.%-]+),([%d%.%-]+)%)",function(a,b,c) b=round(b,2) c=round(c,2) return a.."("..b..","..c..")" end)
:gsub("(\\%a+)%(([%d%.%-]+),([%d%.%-]+),([%d%.%-]+),([%d%.%-]+)",function(a,b,c,d,e)
b=round(b,2) c=round(c,2) d=round(d,2) e=round(e,2) return a.."("..b..","..c..","..d..","..e end)
tgs2=duplikill(tgs2)
tgs2=extrakill(tgs2)
tgs2=cleantr(tgs2)
return tgs2
end)
end
-- SORT TAGS
if res.spec=="sort tags in set order" then
text=text:gsub("\\a6","\\an8") :gsub("\\1c","\\c")
-- run for each set of tags
for tags in text:gmatch(ATAG) do
orig=tags
tags=tags:gsub("{.-\\r","{\\r")
-- save & nuke transforms
trnsfrm=""
for t in tags:gmatch("\\t%b()") do trnsfrm=trnsfrm..t end
tags=tags:gsub("\\t%b()","")
ord=""
-- go through tags, save them in order, and delete from tags
for tg in order:gmatch("\\[%a%d]+") do
tag=tags:match("("..tg.."[^\\}]-)[\\}]")
if tg=="\\fs" then tag=tags:match("(\\fs%d[^\\}]-)[\\}]") end
if tg=="\\fad" then tag=tags:match("(\\fad%([^\\}]-)[\\}]") end
if tg=="\\c" then tag=tags:match("(\\c&[^\\}]-)[\\}]") end
if tg=="\\i" then tag=tags:match("(\\i[^%a\\}]-)[\\}]") end
if tg=="\\s" then tag=tags:match("(\\s[^%a\\}]-)[\\}]") end
if tg=="\\p" then tag=tags:match("(\\p[^%a\\}]-)[\\}]") end
if tag then ord=ord..tag etag=esc(tag) tags=tags:gsub(etag,"") end
end
-- attach whatever got left
if tags~="{}" then ord=ord..tags:match("{(.-)}") end
ordered="{"..ord..trnsfrm.."}"
text=text:gsub(esc(orig),ordered)
end
end
-- CLIP TO DRAWING
if res.spec=="convert clip to drawing" and text:match("\\i?clip%(m [%d%a%s%-]+") then
text=text:gsub("\\(i?)clip%(([%d%.%-]+),([%d%.%-]+),([%d%.%-]+),([%d%.%-]+)%)",function(ii,a,b,c,d)
return string.format("\\"..ii.."clip(m %d %d l %d %d %d %d %d %d)",round(a),round(b),round(c),round(b),round(c),round(d),round(a),round(d)) end) -- rect.2vector
text=text:gsub("^({\\[^}]-}).*","%1")
text=text:gsub("^({[^}]*)\\i?clip%(m(.-)%)([^}]*)}","%1%3\\p1}m%2")
if text:match("\\pos") or text:match("\\move") then
ctext=text:match("}m ([%d%a%s%-]+)")
local xx,yy=text:match("\\pos%(([%d%.%-]+),([%d%.%-]+)")
if not xx then xx,yy=text:match("\\move%(([%d%.%-]+),([%d%.%-]+)") end
xx=round(xx) yy=round(yy)
ctext2=ctext:gsub("([%d%-]+)%s([%d%-]+)",function(a,b) return a-xx.." "..b-yy end)
ctext=ctext:gsub("%-","%%-")
text=text:gsub(ctext,ctext2)
end
if not text:match("\\pos") and not text:match("\\move") then text=text:gsub("^{","{\\pos(0,0)") end
text=text:gsub("\\fsc[xy][%d%.]+",""):gsub("\\f[ar][xyz][^\\}]*",""):gsub("\\p1","\\fscx100\\fscy100%1"):gsub("\\an%d",""):gsub("^{","{\\an7")
end
-- DRAWING TO CLIP
if res.spec=="convert drawing to clip" and text:match("\\p1") then
draw=text:match("}m ([^{]+)")
rota=text:match("^{[^}]-\\frz([-%d.]+)")
if rota then sr=stylechk(line.style) text=frz_redraw(text,rota,draw,sr) end
text=text:gsub("^({[^}]*)\\p1([^}]-})(m [^{]*)","%1\\clip(%3)%2")
scx=text:match("\\fscx([%d%.]+)") or 100
scy=text:match("\\fscy([%d%.]+)") or 100
if text:match("\\pos") or text:match("\\move") then
local xx,yy=text:match("\\pos%(([%d%.%-]+),([%d%.%-]+)")
if not xx then xx,yy=text:match("\\move%(([%d%.%-]+),([%d%.%-]+)") end
xx=round(xx) yy=round(yy)
ctext=text:match("\\clip%(m ([^%)]+)%)")
ctext2=ctext:gsub("([%d%-]+) ([%d%-]+)",function(a,b) return round(a*scx/100+xx).." "..round(b*scy/100+yy) end)
text=text:gsub(esc(ctext),ctext2)
end
if not text:match("\\pos") and not text:match("\\move") then text=text:gsub("^{","{\\pos(0,0)") end
end
-- STRIKEOUT TO SELECTED
if res.spec=="convert strikeout to selected" then
selcheck()
ST1=transphorm ST2=transphorm:gsub("(\\%d?%a+)[^\\]+","%1")
text=text:gsub("\\s1",ST1):gsub("\\s0",ST2)
if text==line.text then fail("No \\s1 tag.") end
text=text:gsub(ATAG,function(tg) return duplikill(tg) end)
end
-- CREATE SHADOW FROM CLIP
if res.spec=="create shadow from clip" then
local KX1,KY1,KX2,KY2=text:match("\\i?clip%(m (%-?[%d%.]+) (%-?[%d%.]+) l (%-?[%d%.]+) (%-?[%d%.]+)")
if not KX1 then t_error("Line #"..i-line0..": Vectorial clip not detected.\nUse two points of a clip to set shadow direction.)",1) end
sr=stylechk(line.style)
stag=text:match(STAG) or "{}"
sha=stag:match("\\shad([%d%.]+)")
if not sha then
sx=stag:match("\\xshad%-?([%d%.]+)")
sy=stag:match("\\yshad%-?([%d%.]+)")
if sx and sy then sha=math.sqrt((sx^2+sy^2)/2) end
if not sha then sha=sr.shadow end
end
if tonumber(sha)==0 then t_error("Line #"..i-line0..": Shadow seems to be 0. Setting to 4.\n(It is preferable to set a \\shad value first.)") sha=4 end
eks=KX2-KX1
wai=KY2-KY1
pyth=math.sqrt(eks^2+wai^2)
shratio=pyth/math.sqrt(2*sha^2)
shX=round(eks/shratio,1)
shY=round(wai/shratio,1)
stag=stag:gsub("\\.?shad([%d%.]+)",""):gsub("\\i?clip%b()",""):gsub("}","\\xshad"..shX.."\\yshad"..shY.."}")
text=stag..text:gsub(STAG,"")
end
-- 3D SHADOW
if res.spec=="create 3D effect from shadow" then
if not text:match("\\[xy]shad") then
text,c=text:gsub("\\shad([%d.]+)","\\xshad%1\\yshad%1")
if c==0 then
sr=stylechk(line.style)
text="{\\xshad"..sr.shadow.."\\yshad"..sr.shadow.."}"..text
text=text:gsub("^({.*)}{","%1")
end
end
xshad=tonumber(text:match("^{[^}]-\\xshad([%d%.%-]+)")) or 0 ax=math.abs(xshad)
yshad=tonumber(text:match("^{[^}]-\\yshad([%d%.%-]+)")) or 0 ay=math.abs(yshad)
if ax>ay then lay=math.floor(ax) else lay=math.floor(ay) end
text2=text:gsub("^({\\[^}]-)}","%1\\3a&HFF&}") :gsub("\\3a&H%x%x&([^}]-)(\\3a&H%x%x&)","%1%2")
for l=lay,1,-1 do
line2=line f=l/lay
text2=addtag3('\\1a&HFE&',text2)
txt=text2 if l==1 then txt=text end
line2.text=txt
:gsub("\\xshad([%d%.%-]+)",function(a) xx=tostring(f*a) xx=xx:gsub("([%d%-]+%.%d%d)%d+","%1") return "\\xshad"..xx end)
:gsub("\\yshad([%d%.%-]+)",function(a) yy=tostring(f*a) yy=yy:gsub("([%d%-]+%.%d%d)%d+","%1") return "\\yshad"..yy end)
line2.layer=layer+(lay-l)
subs.insert(i+1,line2)
end
if math.abs(xshad)>=1 or math.abs(yshad)>=1 then
subs.delete(i)
for s=z+1,#sel do
sel[s]=sel[s]+lay-1
end
success=success+1
else fail("No shadow to work with.")
end
end
-- CLIP GRID
if res.spec=="chequerboard clip" then
cbklip="\\clip(m 100 100 l 140 100 l 140 180 l 180 180 l 180 140 l 100 140 m 180 100 l 220 100 l 220 180 l 260 180 l 260 140 l 180 140 m 260 100 l 300 100 l 300 180 l 340 180 l 340 140 l 260 140 m 340 100 l 380 100 l 380 180 l 420 180 l 420 140 l 340 140 m 420 100 l 460 100 l 460 180 l 500 180 l 500 140 l 420 140 m 500 100 l 540 100 l 540 180 l 580 180 l 580 140 l 500 140 m 580 100 l 620 100 l 620 180 l 660 180 l 660 140 l 580 140 m 660 100 l 700 100 l 700 180 l 740 180 l 740 140 l 660 140 m 740 100 l 780 100 l 780 180 l 820 180 l 820 140 l 740 140 m 820 100 l 860 100 l 860 180 l 900 180 l 900 140 l 820 140 m 900 100 l 940 100 l 940 180 l 980 180 l 980 140 l 900 140 m 980 100 l 1020 100 l 1020 180 l 1060 180 l 1060 140 l 980 140 m 100 180 l 140 180 l 140 260 l 180 260 l 180 220 l 100 220 m 180 180 l 220 180 l 220 260 l 260 260 l 260 220 l 180 220 m 260 180 l 300 180 l 300 260 l 340 260 l 340 220 l 260 220 m 340 180 l 380 180 l 380 260 l 420 260 l 420 220 l 340 220 m 420 180 l 460 180 l 460 260 l 500 260 l 500 220 l 420 220 m 500 180 l 540 180 l 540 260 l 580 260 l 580 220 l 500 220 m 580 180 l 620 180 l 620 260 l 660 260 l 660 220 l 580 220 m 660 180 l 700 180 l 700 260 l 740 260 l 740 220 l 660 220 m 740 180 l 780 180 l 780 260 l 820 260 l 820 220 l 740 220 m 820 180 l 860 180 l 860 260 l 900 260 l 900 220 l 820 220 m 900 180 l 940 180 l 940 260 l 980 260 l 980 220 l 900 220 m 980 180 l 1020 180 l 1020 260 l 1060 260 l 1060 220 l 980 220 m 100 260 l 140 260 l 140 340 l 180 340 l 180 300 l 100 300 m 180 260 l 220 260 l 220 340 l 260 340 l 260 300 l 180 300 m 260 260 l 300 260 l 300 340 l 340 340 l 340 300 l 260 300 m 340 260 l 380 260 l 380 340 l 420 340 l 420 300 l 340 300 m 420 260 l 460 260 l 460 340 l 500 340 l 500 300 l 420 300 m 500 260 l 540 260 l 540 340 l 580 340 l 580 300 l 500 300 m 580 260 l 620 260 l 620 340 l 660 340 l 660 300 l 580 300 m 660 260 l 700 260 l 700 340 l 740 340 l 740 300 l 660 300 m 740 260 l 780 260 l 780 340 l 820 340 l 820 300 l 740 300 m 820 260 l 860 260 l 860 340 l 900 340 l 900 300 l 820 300 m 900 260 l 940 260 l 940 340 l 980 340 l 980 300 l 900 300 m 980 260 l 1020 260 l 1020 340 l 1060 340 l 1060 300 l 980 300 m 100 340 l 140 340 l 140 420 l 180 420 l 180 380 l 100 380 m 180 340 l 220 340 l 220 420 l 260 420 l 260 380 l 180 380 m 260 340 l 300 340 l 300 420 l 340 420 l 340 380 l 260 380 m 340 340 l 380 340 l 380 420 l 420 420 l 420 380 l 340 380 m 420 340 l 460 340 l 460 420 l 500 420 l 500 380 l 420 380 m 500 340 l 540 340 l 540 420 l 580 420 l 580 380 l 500 380 m 580 340 l 620 340 l 620 420 l 660 420 l 660 380 l 580 380 m 660 340 l 700 340 l 700 420 l 740 420 l 740 380 l 660 380 m 740 340 l 780 340 l 780 420 l 820 420 l 820 380 l 740 380 m 820 340 l 860 340 l 860 420 l 900 420 l 900 380 l 820 380 m 900 340 l 940 340 l 940 420 l 980 420 l 980 380 l 900 380 m 980 340 l 1020 340 l 1020 420 l 1060 420 l 1060 380 l 980 380 m 100 420 l 140 420 l 140 500 l 180 500 l 180 460 l 100 460 m 180 420 l 220 420 l 220 500 l 260 500 l 260 460 l 180 460 m 260 420 l 300 420 l 300 500 l 340 500 l 340 460 l 260 460 m 340 420 l 380 420 l 380 500 l 420 500 l 420 460 l 340 460 m 420 420 l 460 420 l 460 500 l 500 500 l 500 460 l 420 460 m 500 420 l 540 420 l 540 500 l 580 500 l 580 460 l 500 460 m 580 420 l 620 420 l 620 500 l 660 500 l 660 460 l 580 460 m 660 420 l 700 420 l 700 500 l 740 500 l 740 460 l 660 460 m 740 420 l 780 420 l 780 500 l 820 500 l 820 460 l 740 460 m 820 420 l 860 420 l 860 500 l 900 500 l 900 460 l 820 460 m 900 420 l 940 420 l 940 500 l 980 500 l 980 460 l 900 460 m 980 420 l 1020 420 l 1020 500 l 1060 500 l 1060 460 l 980 460 m 100 500 l 140 500 l 140 580 l 180 580 l 180 540 l 100 540 m 180 500 l 220 500 l 220 580 l 260 580 l 260 540 l 180 540 m 260 500 l 300 500 l 300 580 l 340 580 l 340 540 l 260 540 m 340 500 l 380 500 l 380 580 l 420 580 l 420 540 l 340 540 m 420 500 l 460 500 l 460 580 l 500 580 l 500 540 l 420 540 m 500 500 l 540 500 l 540 580 l 580 580 l 580 540 l 500 540 m 580 500 l 620 500 l 620 580 l 660 580 l 660 540 l 580 540 m 660 500 l 700 500 l 700 580 l 740 580 l 740 540 l 660 540 m 740 500 l 780 500 l 780 580 l 820 580 l 820 540 l 740 540 m 820 500 l 860 500 l 860 580 l 900 580 l 900 540 l 820 540 m 900 500 l 940 500 l 940 580 l 980 580 l 980 540 l 900 540 m 980 500 l 1020 500 l 1020 580 l 1060 580 l 1060 540 l 980 540)"
text=text:gsub("^({[^}]-)\\i?clip%([^%)]+%)","%1")
:gsub("^({\\[^}]-)}","%1"..cbklip.."}")
if not text:match("^{") then text=wrap(cbklip)..text end
end
-- size transform from clip
if res.spec=="size transform from clip" then
local klip=text:match("\\i?clip%(m %-?[%d%.]+ %-?[%d%.]+ l %-?[%d%.]+ %-?[%d%.]+ %-?[%d%.]+ %-?[%d%.]+ %-?[%d%.]+ %-?[%d%.]+")
if not klip then t_error("Line #"..i-line0..": Vectorial clip with 4 points required.",1) end
local K1x,K1y,K2x,K2y,K3x,K3y,K4x,K4y=klip:match("m (%-?[%d%.]+) (%-?[%d%.]+) l (%-?[%d%.]+) (%-?[%d%.]+) (%-?[%d%.]+) (%-?[%d%.]+) (%-?[%d%.]+) (%-?[%d%.]+)")
if defaref and line.style=="Default" then sr=defaref
else sr=stylechk(line.style) end
-- clean up existing transforms
if text:match("^{[^}]*\\t") then text=text:gsub(STAG,function(tg) return cleantr(tg) end) end
startags=text:match(STAG) or ""
scx=startags:match("\\fscx([%d%.]+)") or sr.scale_x
scy=startags:match("\\fscy([%d%.]+)") or sr.scale_y
xdist1=math.abs(K1x-K2x)
xdist2=math.abs(K3x-K4x)
ydist1=math.abs(K1y-K2y)
ydist2=math.abs(K3y-K4y)
dist1=math.sqrt(xdist1^2+ydist1^2)
dist2=math.sqrt(xdist2^2+ydist2^2)
size_ratio=dist2/dist1
rescx=round(scx*size_ratio,2)
rescy=round(scy*size_ratio,2)
local trans="\\t(\\fscx"..rescx.."\\fscy"..rescy..")"
startags=startags:gsub("}",trans.."}")
startags=cleantr(startags)
text=text:gsub(STAG,startags):gsub("\\i?clip%b()","")
end
-- BACK AND FORTH TRANSFORM
if res.spec=="back and forth transform" and res.int>0 then
selcheck()
if defaref and line.style=="Default" then sr=defaref
else sr=stylechk(line.style) end
-- clean up existing transforms
if text:match("^{[^}]*\\t") then text=text:gsub(STAG,function(tg) return cleantr(tg) end) end
startags=text:match(STAG) or ""
tags_1=""
for tg in transphorm:gmatch("\\[1234]?%a+") do
val1=nil
if not startags:match(tg.."[%d%-&%(]") then
if tg=="\\clip" then val1="(0,0,1280,720)" else val1=tag2style(tg,sr) end
if val1 then tags_1=tags_1..tg..val1 text=text:gsub("^({\\[^}]-)}","%1"..tg..val1.."}") end
else
val1=startags:match(tg.."([^\\}]+)")
tags_1=tags_1..tg..val1
end
end
int=res.int
tgs2=transphorm
dur=line.end_time-line.start_time
count=math.ceil(dur/int)
t=1 tin=0 tout=tin+int
if not text:match("^{\\") then text="{\\}"..text end
-- main function
while t<=math.ceil(count/2) do
text=text:gsub("^({\\[^}]*)}","%1\\t("..tin..","..tout..","..tgs2..")}")
if tin+int<dur then text=text:gsub("^({\\[^}]*)}","%1\\t("..tin+int..","..tout+int..","..tags_1..")}") end
tin=tin+int+int
tout=tin+int
t=t+1
end
text=text:gsub("\\([\\}])","%1")
end
-- SPLIT LINE IN 3 PARTS
if res.spec=="split line in 3 parts" then
start=line.start_time
endt=line.end_time
dur=line.end_time-line.start_time
-- Split Times
ST1=res.trin
ST2=res.trout
if ST1+ST2>=dur then fail("Split times for some lines are longer than duration of line.")
else
effect=line.effect
-- line 3
if ST2>0 then
line3=line
line3.start_time=endt-ST2
line3.effect=effect.." pt.3"
subs.insert(i+1,line3)
nsel=shiftsel2(nsel,i,1)
end
-- line 2
line2=line
line2.start_time=start+ST1
line2.end_time=endt-ST2
line2.effect=effect.." pt.2"
subs.insert(i+1,line2)
nsel=shiftsel2(nsel,i,1)
-- line 1
if ST1>0 then
line.start_time=start
line.end_time=start+ST1
line.effect=effect.." pt.1"
else
subs.delete(i)
for s=#nsel,z,-1 do
if nsel[s]==i then table.remove(nsel,s) end
if nsel[s]>i then nsel[s]=nsel[s]-1 end
end
end
success=success+1
end
end
if res.spec~="create 3D effect from shadow" then
if line.text~=text then
success=success+1
line.text=text
subs[i]=line
end
end
end
end
if res.spec=="split line in 3 parts" then sel=nsel end
summary()
return sel
end
function frz_redraw(t,rota,draw,sr)
local X,Y,x,y,width,height
local ox,oy,xmx,xmn,ymx,ymn,addx,addy=0,0,0,999999,0,999999,0,0
draw1=draw
-- deal with align other than 7
if align~=7 then
for px,py in draw:gmatch("([-%d.]+) ([-%d.]+)") do
px=tonumber(px)
py=tonumber(py)
if px>xmx then xmx=px end
if px<xmn then xmn=px end
if py>ymx then ymx=py end
if py<ymn then ymn=py end
end
width=xmx-xmn
height=ymx-ymn
align=tonumber(t:match'\\an(%d)') or sr.align
hal=align%3
val=math.ceil(align/3)
if hal==2 then addx=width/2 elseif hal==0 then addx=width end
if val==2 then addy=height/2 elseif val==1 then addy=height end
-- change to an7 + adjust coordinates
draw1=draw1:gsub("([-%d.]+) ([-%d.]+)",function(px,py)
return px-addx..' '..py-addy
end)
t,c=t:gsub("\\an%d","\\an7")
if c==0 then t=t:gsub("^{","{\\an7") end
end
-- recalculate coordinates without frz
draw2=draw1:gsub("([-%d.]+) ([-%d.]+)",function(px,py)
h=math.sqrt((ox-px)^2+(oy-py)^2)
pox=ox-px
poy=oy-py
tang=poy/pox
ang1=math.deg(math.atan(tang))
ang=ang1-rota
X=math.cos(math.rad(ang))*h
Y=math.sin(math.rad(ang))*h
if pox<0 then X=0-X Y=0-Y end
x=round(ox-X)
y=round(oy-Y)
return x..' '..y
end)
-- replace drawing
t=t:gsub(esc(draw),draw2):gsub("\\frz[-%d.]+","")
return t
end
function selover(subs,sel)
local dialogue={}
for i,line in ipairs(subs) do
if line.class=="dialogue" then line.i=i table.insert(dialogue,line) end
end
table.sort(dialogue,function(a,b) return a.start_time<b.start_time or (a.start_time==b.start_time and a.i<b.i) end)
local end_time=0
local overlaps={}
for i=1,#dialogue do
local line=dialogue[i]
if line.start_time>=end_time then
end_time=line.end_time
else
table.insert(overlaps,line.i)
end
end
sel=overlaps
return sel
end
-- reanimatools -----------------------------------------------------------------------
function addtag3(tg,txt)
no_tf=txt:gsub("\\t%b()","")
tgt=tg:match("(\\%d?%a+)[%d%-&]") val="[%d%-&]"
if not tgt then tgt=tg:match("(\\%d?%a+)%b()") val="%b()" end
if not tgt then tgt=tg:match("\\fn") val="" end
if not tgt then t_error("adding tag '"..tg.."' failed.") end
if tgt:match("clip") then txt,r=txt:gsub("^({[^}]-)\\i?clip%b()","%1"..tg)
if r==0 then txt=txt:gsub("^({\\[^}]-)}","%1"..tg.."}") end
elseif no_tf:match("^({[^}]-)"..tgt..val) then txt=txt:gsub("^({[^}]-)"..tgt..val.."[^\\}]*","%1"..tg)
elseif not txt:match("^{\\") then txt="{"..tg.."}"..txt
elseif txt:match("^{[^}]-\\t") then txt=txt:gsub("^({[^}]-)\\t","%1"..tg.."\\t")
else txt=txt:gsub("^({\\[^}]-)}","%1"..tg.."}") end
return txt
end
function esc(str) str=str:gsub("[%%%(%)%[%]%.%-%+%*%?%^%$]","%%%1") return str end
function round(n,dec) dec=dec or 0 n=math.floor(n*10^dec+0.5)/10^dec return n end
function wrap(str) return "{"..str.."}" end
function logg(m) m=tf(m) or "nil" aegisub.log("\n "..m) end
function loggtab(m) m=tf(m) or "nil" aegisub.log("\n {"..table.concat(m,', ').."}") end
function tagmerge(t) repeat t,r=t:gsub("({\\[^}]-)}{(\\[^}]-})","%1%2") until r==0 return t end
function detra(t) return t:gsub("\\t%b()","") end
function nobra(t) return t:gsub("%b{}","") end
function nobrea(t) return t:gsub("%b{}",""):gsub("\\[Nh]","") end
function nobrea1(t) return t:gsub("%b{}",""):gsub(" *\\[Nh] *"," ") end
function progress(msg) if aegisub.progress.is_cancelled() then ak() end aegisub.progress.title(msg) end
function t_error(message,cancel) ADD({{class="label",label=message}},{"OK"},{close='OK'}) if cancel then ak() end end
function tag2style(tg,sr)
noneg="\\bord\\shad\\xbord\\ybord\\fs\\blur\\be\\fscx\\fscy"
val=0
if tg=="\\fs" then val=sr.fontsize end
if tg=="\\fsp" then val=sr.spacing end
if tg=="\\fscx" then val=sr.scale_x end
if tg=="\\fscy" then val=sr.scale_y end
if tg:match"\\[xy]?bord" then val=sr.outline end
if tg:match"\\[xy]?shad" then val=sr.shadow end
if tg=="\\frz" then val=sr.angle end
if val<0 and noneg:match(tg) then val=0 end
if tg=="\\c" then val=sr.color1:gsub("H%x%x","H") end
if tg=="\\2c" then val=sr.color2:gsub("H%x%x","H") end
if tg=="\\3c" then val=sr.color3:gsub("H%x%x","H") end
if tg=="\\4c" then val=sr.color4:gsub("H%x%x","H") end
if tg=="\\1a" then val=sr.color1:match("H%x%x") end
if tg=="\\2a" then val=sr.color2:match("H%x%x") end
if tg=="\\3a" then val=sr.color3:match("H%x%x") end
if tg=="\\4a" then val=sr.color4:match("H%x%x") end
if tg=="\\alpha" then val="&H00&" end
return val
end
function numgrad(V1,V2,total,l,acc)
acc=acc or 1
acc_fac=(l-1)^acc/(total-1)^acc
VC=round(acc_fac*(V2-V1)+V1,2)
return VC
end
function agrad(C1,C2,total,l,acc)
acc=acc or 1
acc_fac=(l-1)^acc/(total-1)^acc
A1=C1:match("(%x%x)")
A2=C2:match("(%x%x)")
nA1=(tonumber(A1,16)) nA2=(tonumber(A2,16))
A=acc_fac*(nA2-nA1)+nA1
A=tohex(round(A))
CC="&H"..A.."&"
return CC
end
function acgrad(C1,C2,total,l,acc)
acc=acc or 1
acc_fac=(l-1)^acc/(total-1)^acc
B1,G1,R1=C1:match("(%x%x)(%x%x)(%x%x)")
B2,G2,R2=C2:match("(%x%x)(%x%x)(%x%x)")
A1=C1:match("(%x%x)") R1=R1 or A1
A2=C2:match("(%x%x)") R2=R2 or A2
nR1=(tonumber(R1,16)) nR2=(tonumber(R2,16))
R=acc_fac*(nR2-nR1)+nR1
R=tohex(round(R))
CC="&H"..R.."&"
if B1 then
nG1=(tonumber(G1,16)) nG2=(tonumber(G2,16))
nB1=(tonumber(B1,16)) nB2=(tonumber(B2,16))
G=acc_fac*(nG2-nG1)+nG1
B=acc_fac*(nB2-nB1)+nB1
G=tohex(round(G))
B=tohex(round(B))
CC="&H"..B..G..R.."&"
end
return CC
end
function acgradhsl(C1,C2,total,l,acc)
acc=acc or 1
acc_fac=(l-1)^acc/(total-1)^acc
B1,G1,R1=C1:match("(%x%x)(%x%x)(%x%x)")
B2,G2,R2=C2:match("(%x%x)(%x%x)(%x%x)")
H1,S1,L1=RGB_to_HSL(R1,G1,B1)
H2,S2,L2=RGB_to_HSL(R2,G2,B2)
if res.short then
if H2>H1 and H2-H1>0.5 then H1=H1+1 end
if H2<H1 and H1-H2>0.5 then H2=H2+1 end
end
Hdiff=(H2-H1)/(total-1) H=H1+Hdiff*(l-1)
Sdiff=(S2-S1)/(total-1) S=S1+Sdiff*(l-1)
Ldiff=(L2-L1)/(total-1) L=L1+Ldiff*(l-1)
R,G,B=HSL_to_RGB(H,S,L)
R=tohex(round(R))
G=tohex(round(G))
B=tohex(round(B))
NC="&H"..B..G..R.."&"
return NC
end
function RGB_to_HSL(Red,Green,Blue)
R=(tonumber(Red,16)/255)
G=(tonumber(Green,16)/255)
B=(tonumber(Blue,16)/255)
Min=math.min(R,G,B)
Max=math.max(R,G,B)
del_Max=Max-Min
L=(Max+Min)/2
if del_Max==0 then H=0 S=0
else
if L<0.5 then S=del_Max/(Max+Min)
else S=del_Max/(2-Max-Min)
end
del_R=(((Max-R)/6)+(del_Max/2))/del_Max
del_G=(((Max-G)/6)+(del_Max/2))/del_Max
del_B=(((Max-B)/6)+(del_Max/2))/del_Max
if R==Max then H=del_B-del_G
elseif G==Max then H=(1/3)+del_R-del_B
elseif B==Max then H=(2/3)+del_G-del_R
end
if H<0 then H=H+1 end
if H>1 then H=H-1 end
end
return H,S,L
end
function HSL_to_RGB(H,S,L)
if S==0 then
R=L*255
G=L*255
B=L*255
else
if L<0.5 then var_2=L*(1+S)
else var_2=(L+S)-(S*L)
end
var_1=2*L-var_2
R=255*Hue_to_RGB(var_1,var_2,H+(1/3))
G=255*Hue_to_RGB(var_1,var_2,H)
B=255*Hue_to_RGB(var_1,var_2,H-(1/3))
end
return R,G,B
end
function Hue_to_RGB(v1,v2,vH)
if vH<0 then vH=vH+1 end
if vH>1 then vH=vH-1 end
if (6*vH)<1 then return(v1+(v2-v1)*6*vH) end
if (2*vH)<1 then return(v2) end
if (3*vH)<2 then return(v1+(v2-v1)*((2/3)-vH)*6) end
return(v1)
end
function tohex(num)
n1=math.floor(num/16)
n2=math.floor(num%16)
num=tohex1(n1)..tohex1(n2)
return num
end
function tohex1(num)
HEX={"1","2","3","4","5","6","7","8","9","A","B","C","D","E"}
if num<1 then num="0" elseif num>14 then num="F" else num=HEX[num] end
return num
end
function shortrot(v)
if tonumber(v)>180 then v=v-360 end
return v
end
function trem(tags)
trnsfrm=""
for t in tags:gmatch("\\t%b()") do trnsfrm=trnsfrm..t end
tags=tags:gsub("\\t%b()","")
return tags
end
function cleantr(tags)
trnsfrm=""
zerotf=""
for t in tags:gmatch("\\t%b()") do
if t:match("\\t%(\\") then
zerotf=zerotf..t:match("\\t%((.*)%)$")
else
trnsfrm=trnsfrm..t
end
end
zerotf="\\t("..zerotf..")"
tags=tags:gsub("\\t%b()",""):gsub("^({[^}]*)}","%1"..zerotf..trnsfrm.."}"):gsub("\\t%(%)","")
return tags
end
function duplikill(tagz)
local tags1={"blur","be","bord","shad","xbord","xshad","ybord","yshad","fs","fsp","fscx","fscy","frz","frx","fry","fax","fay"}
local tags2={"c","2c","3c","4c","1a","2a","3a","4a","alpha"}
tagz=tagz:gsub("\\t%b()",function(t) return t:gsub("\\","|") end)
for i=1,#tags1 do
tag=tags1[i]
repeat tagz,c=tagz:gsub("|"..tag.."[%d%.%-]+([^}]-)(\\"..tag.."[%d%.%-]+)","%1%2") until c==0
repeat tagz,c=tagz:gsub("\\"..tag.."[%d%.%-]+([^}]-)(\\"..tag.."[%d%.%-]+)","%2%1") until c==0
end
tagz=tagz:gsub("\\1c&","\\c&")
for i=1,#tags2 do
tag=tags2[i]
repeat tagz,c=tagz:gsub("|"..tag.."&H%x+&([^}]-)(\\"..tag.."&H%x+&)","%1%2") until c==0
repeat tagz,c=tagz:gsub("\\"..tag.."&H%x+&([^}]-)(\\"..tag.."&H%x+&)","%2%1") until c==0
end
repeat tagz,c=tagz:gsub("\\fn[^\\}]+([^}]-)(\\fn[^\\}]+)","%2%1") until c==0
repeat tagz,c=tagz:gsub("(\\[ibusq])%d(.-)(%1%d)","%2%3") until c==0
repeat tagz,c=tagz:gsub("(\\an)%d(.-)(%1%d)","%3%2") until c==0
tagz=tagz:gsub("(|i?clip%(%A-%))(.-)(\\i?clip%(%A-%))","%2%3")
:gsub("(\\i?clip%b())(.-)(\\i?clip%b())",function(a,b,c)
if a:match("m") and c:match("m") or not a:match("m") and not c:match("m") then return b..c else return a..b..c end end)
tagz=tagz:gsub("|","\\"):gsub("\\t%([^\\%)]-%)","")
return tagz
end
function extrakill(text,o)
local tags3={"pos","move","org","fad"}
for i=1,#tags3 do
tag=tags3[i]
if o==2 then
repeat text,c=text:gsub("(\\"..tag.."[^\\}]+)([^}]-)(\\"..tag.."[^\\}]+)","%3%2") until c==0
else
repeat text,c=text:gsub("(\\"..tag.."[^\\}]+)([^}]-)(\\"..tag.."[^\\}]+)","%1%2") until c==0
end
end
repeat text,c=text:gsub("(\\pos[^\\}]+)([^}]-)(\\move[^\\}]+)","%1%2") until c==0
repeat text,c=text:gsub("(\\move[^\\}]+)([^}]-)(\\pos[^\\}]+)","%1%2") until c==0
return text
end
function retextmod(orig,text)
local v1,v2,c,t2
v1=nobrea(orig)
c=0
repeat
t2=textmod(orig,text)
v2=nobrea(text)
c=c+1
until v1==v2 or c==666
if v1~=v2 then logg("Something went wrong with the text...") logg(v1) logg(v2) end
return t2
end
function textmod(orig,text)
if text=="" then return orig end
tk={}
tg={}
text=text:gsub("{\\\\k0}","")
text=tagmerge(text)
vis=nobra(text)
ltrmatches=re.find(vis,".")
if not ltrmatches then logg("text: "..text..'\nvisible: '..vis)
logg("If you're seeing this, something really weird is happening with the re module.\nTry this again or rescan Autoload.")
end
for l=1,#ltrmatches do
table.insert(tk,ltrmatches[l].str)
end
stags=text:match(STAG) or ""
text=text:gsub(STAG,"") :gsub("{[^\\}]-}","")
orig=orig:gsub("{([^\\}]+)}",function(c) return wrap("\\\\"..c.."|||") end)
count=0
for seq in orig:gmatch("[^{]-{%*?\\[^}]-}") do
chars,as,tak=seq:match("([^{]-){(%*?)(\\[^}]-)}")
pos=re.find(chars,".")
if pos==nil then ps=0+count else ps=#pos+count end
tgl={p=ps,t=tak,a=as}
table.insert(tg,tgl)
count=ps
end
count=0
for seq in text:gmatch("[^{]-{%*?\\[^}]-}") do
chars,as,tak=seq:match("([^{]-){(%*?)(\\[^}]-)}")
pos=re.find(chars,".")
if pos==nil then ps=0+count else ps=#pos+count end
tgl={p=ps,t=tak,a=as}
table.insert(tg,tgl)
count=ps
end
newline=""
for i=1,#tk do
newline=newline..tk[i]
newt=""
for n,t in ipairs(tg) do
if t.p==i then newt=newt..t.a..t.t end
end
if newt~="" then newline=newline.."{"..as..newt.."}" end
end
newtext=stags..newline:gsub("(|||)(\\\\)","%1}{%2"):gsub("({[^}]-)\\\\([^\\}]-)|||","{%2}%1")
text=newtext:gsub("{}","")
return text
end
function fail(msg)
local q=1
for i=1,#failures do
if msg==failures[i] then q=0 end
end
if q==1 then table.insert(failures,msg) end
end
function summary()
if res.show then
local MSG='No problems encountered.'
if success<seln then
MSG=seln-success.." out of "..seln.." lines not modified.\n\n"
if #failures>0 then MSG=MSG.."Probable causes:" end
for i=1,#failures do
MSG=MSG.."\n> "..failures[i]
end
MSG=MSG.."\n\nPressed: "..P
if P=="Apply" and res.tagpres~="--- presets ---" then MSG=MSG.." (Preset: \""..res.tagpres.."\")" end
MSG=MSG:gsub("\n\n+","\n\n")
end
msgbox(tags_used,MSG)
end
end
function showtags(tagc) tags_used=tagc end
function msgbox(msg1,msg2,h,w)
pres,rez=ADD({
{width=w or 24,height=1,name='msg',class="edit",value=msg1},
{y=1,width=w or 24,height=h or 8,class="textbox",value=msg2},
},{"OK","clip bored","~"},{ok='OK',close='~'})
if pres=="clip bored" then clipboard.set(rez.msg) end
end
function styleget(subs)
styles={}
for i=1,#subs do
if subs[i].class=="style" then
table.insert(styles,subs[i])
end
if subs[i].class=="dialogue" then break end
end
end
function stylechk(sn)
for i=1,#styles do
if sn==styles[i].name then
sr=styles[i]
if sr.name=="Default" then defaref=styles[i] end
break
end
end
if sr==nil then t_error("Style '"..sn.."' doesn't exist.",1) end
return sr
end
function tf(val)
if val==true then ret="true"
elseif val==false then ret="false"
else ret=val end
return ret
end
function detf(txt)
if txt=="true" then ret=true
elseif txt=="false" then ret=false
else ret=txt end
return ret
end
function selcheck()
SC=0
for k,v in ipairs(hh_gui) do
if v.class=="checkbox" and v.y<10 and res[v.name] then SC=1 end
if v.name=="reuse" and res.reuse then SC=1 end
if v.name=="moretags" and res.moretags:len()>1 then SC=1 end
end
if SC==0 then t_error("No tags selected",1) end
end
function shiftsel2(sel,i,mode)
if i<sel[#sel] then
for s=1,#sel do
if sel[s]>i then sel[s]=sel[s]+1 end
end
end
if mode==1 then table.insert(sel,i+1) end
table.sort(sel)
return sel
end
function txt_check(t1,t2,i)
if t1~=t2 then
fail("Some letters seem to have been lost or added.\n Check the log for more details.")
logg("Line #"..i-line0..": It appears that characters have been lost or added. \n If the problem isn't obvious from the two lines below, it's probably a failure of the re module.\n Undo (Ctrl+Z) and try again (Repeat Last might work). If the problem persists, rescan Autoload Dir.\n>> "..t1.."\n--> "..t2.."\n")
end
end
function getpos(subs,text)
st=nil defst=nil
for g=1,#subs do
if subs[g].class=="info" then
local k=subs[g].key
local v=subs[g].value
if k=="PlayResX" then resx=v end
if k=="PlayResY" then resy=v end
end
if resx==nil then resx=0 end
if resy==nil then resy=0 end
if subs[g].class=="style" then
local s=subs[g]
if s.name==line.style then st=s break end
if s.name=="Default" then defst=s end
end
if subs[g].class=="dialogue" then
if defst then st=defst else t_error("Style '"..line.style.."' not found.\nStyle 'Default' not found. ",1) end
break
end
end
if st then
acleft=st.margin_l if line.margin_l>0 then acleft=line.margin_l end
acright=st.margin_r if line.margin_r>0 then acright=line.margin_r end
acvert=st.margin_t if line.margin_t>0 then acvert=line.margin_t end
acalign=st.align if text:match("\\an%d") then acalign=text:match("\\an(%d)") end
aligntop="789" alignbot="123" aligncent="456"
alignleft="147" alignright="369" alignmid="258"
if alignleft:match(acalign) then horz=acleft
elseif alignright:match(acalign) then horz=resx-acright
elseif alignmid:match(acalign) then horz=resx/2 end
if aligntop:match(acalign) then vert=acvert
elseif alignbot:match(acalign) then vert=resy-acvert
elseif aligncent:match(acalign) then vert=resy/2 end
end
if horz>0 and vert>0 then
if not text:match("^{\\") then text="{\\rel}"..text end
text=text:gsub("^({\\[^}]-)}","%1\\pos("..horz..","..vert..")}") :gsub("\\rel","")
end
return text
end
-- Config Stuff --
function saveconfig()
hydraconf="Hydra 4+ Config\n\n"
for key,v in ipairs(hh_gui) do
if v.class:match"edit" or v.class=="dropdown" or v.class=="coloralpha" then
if v.name~="linetext" and v.name~="herp" and v.name~="lastags" and v.name~="exc" and not v.name:match"app" then
hydraconf=hydraconf..v.name..":"..res[v.name].."\n"
end
end
if v.class=="checkbox" and v.name~="save" then
hydraconf=hydraconf..v.name..":"..tf(res[v.name]).."\n"
end
end
file=io.open(hydrakonfig,"w")
file:write(hydraconf)
file:close()
ADD({{class="label",label="Config saved to:\n"..hydrakonfig}},{"OK"},{close='OK'})
end
function loadconfig()
file=io.open(hydrakonfig)
if file~=nil then
konf=file:read("*all")
sm=tonumber(konf:match("smode:(.-)\n"))
io.close(file)
for k,v in ipairs(hh1) do
if v.class:match"edit" or v.class=="checkbox" or v.class=="coloralpha" then
if konf:match(v.name) then v.value=detf(konf:match(v.name..":(.-)\n")) end
if hydralast and res.rem then v.value=hydralast[v.name] end
if v.name=="lastags" then v.value=ortags end
end
end
for k,v in ipairs(hh2) do
if v.class:match"edit" or v.class=="checkbox" or v.class=="dropdown" then
if konf:match(v.name) then v.value=detf(konf:match(v.name..":(.-)\n")) end
if hydralast and res.rem and tf(hydralast[v.name]) then v.value=hydralast[v.name] end
end
end
for k,v in ipairs(hh3) do
if v.class:match"edit" or v.class=="checkbox" or v.class=="dropdown" then
if konf:match(v.name) then v.value=detf(konf:match(v.name..":(.-)\n")) end
if hydralast then
if v.name=="gtype" and res.gtype then v.value=hydralast.gtype end
if v.name=="accel" and res.accel then v.value=hydralast.accel end
if v.name=="stripe" and res.stripe then v.value=hydralast.stripe end
if v.name=="spec" and res.spec then v.value=hydralast.spec end
if v.name=="middle" and tf(res.middle) then v.value=hydralast.middle end
if v.name=="short" and tf(res.short) then v.value=hydralast.short end
if v.name=="hsl" and tf(res.hsl) then v.value=hydralast.hsl end
if res.rem and tf(hydralast[v.name]) then v.value=hydralast[v.name] end
end
end
end
else sm=1
end
end
hydraulics={"A multi-headed typesetting tool","Nine heads typeset better than one.","Eliminating the typing part of typesetting","Mass-production of typesetting tags","Hydraulic typesetting machinery","Making sure your subtitles aren't dehydrated","Making typesetting so easy that even you can do it!","A monstrous typesetting tool","A deadly typesetting beast","Building monstrous scripts with ease","For irrational typesetting wizardry","Building a Wall of Tags","The Checkbox Onslaught","HYperactively DRAstic","HYperdimensional DRAma","I can has moar tagz?","Transforming the subtitle landscape"}
function hydrahelp()
H_H=[[
For more detailed info, check http://unanimated.hostfree.pw/ts/scripts-manuals.htm#hydra
Standard mode: check tags, set values, click on 'Apply'.
Transform mode 'normal': check tags, set values, set t1/t2/accel if needed, click on 'Transform'.
Transform mode 'add2first': the transforms will be added to the first existing transform in the line.
Transform mode 'add2all': the transforms will be added to all existing transforms in the line.
Transform mode 'all tag blocks': the transforms will be added to all tag blocks, whether they have transforms or not.
Count times from end: This will count transform times from the end of the line,
so "500,200" will mean that the transform will start 500ms and end 200ms before the end of the line.
Shift times/interval: 'normal' tf - shift \t times each line; 'all tag blocks' - shift \t times each tag block.
Relative transform: If you have frz30 and set transform to frz60, you get \t(\frz90), or transform BY 60.
This allows you to keep layers with different frz in sync. (No effect on alpha/colours.)
Alphas for colours can be done in two ways. One is on the right where it's pretty obvious. The other is using the colour pickers.
These have both the colour and its alpha value, and you can apply either the colour, or the alpha, or both.
By default it uses only the colour. If you want the alpha too, you check Include alphas.
If you want only the alpha and not the colour, you check the only checkbox next to it.
Additional tags: you can type any extra tags you want to add.
Tag position: This shows the text of your first line. Type * where you want your tags to go.
Tag position presets: This places tags in specified positions, proportionally for each selected line.
Custom pattern: This uses an asterisk like the basic mode, but it can use shorter patterns, as opposed to the whole text of the line.
For example you can use the pattern "*and", and tags will be placed before the "and" in any line that contains that pattern,
no matter what the rest of the text is and however many times that word is in the line.
Section: This lets you put tags before a given pattern and then changes the tags back after it. Type only a pattern like "and".
You'll get something like {\bord5}and{\bord}, or back to the value in start tags. Only the first pattern in line is matched.
Custom pattern and Section may not work 100% correctly with inline tags.
Text position: With this option, you type a number in the Tag position field, and tags will be set at that position.
0 is the start of the line, and it counts visible characters including punctuation and spaces. ("\N" is 2 characters.)
So if you type 12, the tags will go after first 12 characters in all selected lines, whatever the text.
If the line has 12 or fewer characters, nothing happens to it.
To make it more fun, you can enter negative numbers and count from the end, so "-1" will go before last character.
Check the online manual for some more info.
Add with each line: '2' means that for each line, the value of all checked applicable tags is increased by an extra 2.
Gradient: Current state is the start. Given tags are the end. Accel works with this. Vertical/horizontal need a clip.
Centred gradient: 'There and back.' Given state will be in the middle. Last line/character will be the same as the first.
For more on gradients, check the online manual.
Last: end values for Gradient by Line will be taken from the start tags of the last selected line if available
Special functions: select a function, click on 'Special'.
fscx -> fscy: Applies the value of fscx to fscy, making them the same.
fscy -> fscx: Same but the other way round.
move colour tag to first block: If you use hotkeys for colour pickers, the colour gets sometimes applied somewhere in the middle of the line or at the end because that's where the cursor is in the textbox area. This moves a colour tag that isn't at the start of the line to the start. If it finds more, it deletes them all and uses the last one in the line.
This is a lot more useful if hotkeyed, which can now be done.
convert clip <-> iclip: Changes clips to iclips and vice versa. (Can be hotkeyed.)
clean up tags: Same as in Script Cleanup.
sort tags in set order: This sorts tags in each tag block based on a set order.
back and forth transform: This will transform back and forth
between the current state of the line and tags you select.
So for example, you select \bord 10 and \frz 20 and run the script. It will read the current bord and frz from the line or from style and create transforms based on given interval (Shift times/interval field). A value of 500 means that it will take 500ms to transform to \bord10\frz20, then 500ms to transform back, another 500 forward again, etc. for the whole duration of the line. This way you can create wobbling effects and such.
select overlaps: This used to be shipped with Aegisub. I don't know if it still is, but somebody wanted that included in HYDRA, so here it is. It selects lines that overlap with other lines.
convert clip to drawing: Uses coordinates from a clip to create a drawing.
convert drawing to clip: Same but the other way round.
size transform from clip: Creates \t(\fscx\fscy) based on a vectorial clip. The distance between the first 2 points of the clip mark the original size; distance between points 3 and 4 mark the final size. This way you can theoretically match linear zoom in the video without Mocha. It may be useful to duplicate the line if you need to see the text while drawing. Pick something in the video, match the size of it with 2 clip points on the first frame and with another 2 points on the last frame.
convert strikeout to selected: Converts \s1 to the tags you select, and \s0 back to the original state. This allows you to use a quick on/off trigger for multiple tags at the same time. You apply \s to a word or section of text in the Edit Box, and then you can convert it to whatever tags you want.
chequerboard clip: This creates a checkerboard clip. Not too useful, but you can convert it with the above tool to drawing. This also allows you to resize it with the scaling tool and convert back, so you can get various sizes.
shad -> xshad+yshad: Changes \shadX to \xshadX\yshadX. (Can be hotkeyed.)
create shadow from clip: To get correct shadow orientation, make 2 points with a vectorial clip in the direction of the shadow. Distance will be used from current shadow. Shadow is creaqted with \xshad\yshad. (Can be hotkeyed.)
create 3D effect from shadow: This is one of the more useful things in this menu. The space between the letters and a shadow gets "filled" with the shadow colour.
split line in 3 parts: Use the fields for 'Transform times' to set duration of line 1 and 3. If you set for example 200 and 300, your line will be triplicated, with the first one being 200ms long, the last one 300ms, and the middle one whatever is left of the original duration.
If you set either of the two to 0, you'll only have 2 lines.
This can be useful for song styling when you want to apply some transforms to the first or last 500ms, for example, because applying the transforms to the lines with the whole duration can be much more laggy, and lines with too many transforms can look too chaotic to work with them.
reuse: Unlike Repeat Last, this remembers the (transformable) tags but lets you use a different function and restrictions.
If you simply applied tags before, you can now reuse the tags for other lines, to make transforms or gradients,
or to apply to different layers, etc. For example, you may have 5 layers and want to apply things to layers 3 and 4.
If you don't remember what tags you used last time and whether they're the ones you'd like to reuse,
checking show at the same time will tell you.
"reuse" can be very useful if you do transforms or gradients, you get the tags right, but you mess up the other settings.
You can fix the settings and reuse the tags.
Apply to:
You can choose to which of the selected lines you want to apply the changes based on the 4 restrictions.
When dealing with multi-layered signs, you may need different tags for different layers, so this can make it easy, without having to change the selection.
The last one with "Text..." in it restricts by any text pattern you type. This is literal and can include tags and comments, so for example you can apply tags only to lines with \frz in them. (The "Text..." one doesn't work.)
"rem" = remember last settings.
Repeat Last will run the last used function with the last used settings.
Save Config saves the current configuration to a file named "hydra4.conf" in your APPDATA folder.
]]
Pr=aegisub.dialog.display({{width=55,height=20,class="textbox",value=H_H}},{"Hai"},{close='Hai'})
end
function cuts()
ADD=aegisub.dialog.display
ADP=aegisub.decode_path
ak=aegisub.cancel
ATAG="{[*>]?\\[^}]-}"
STAG="^{>?\\[^}]-}"
COMM="{[^\\}]-}"
end
function hydra(subs,sel)
if #sel==0 then t_error("No selection",1) end
cuts()
hydrakonfig=ADP("?user").."\\hydra4.conf"
failures={}
success=0
seln=#sel
app_lay={}
app_sty={"All Styles"}
app_act={"All Actors"}
app_eff={"All Effects"}
for i=1,#subs do
if subs[i].class=="dialogue" then line0=i-1 break end
end
for z,i in ipairs(sel) do
L=subs[i]
layr=L.layer
stl=L.style
akt=L.actor
eph=L.effect
local asdf=0
for a=1,#app_lay do if layr==app_lay[a] then asdf=1 end end
if asdf==0 then table.insert(app_lay,layr) end
asdf=0
for a=1,#app_sty do if stl==app_sty[a] then asdf=1 end end
if asdf==0 then table.insert(app_sty,stl) end
asdf=0
for a=1,#app_act do if akt==app_act[a] then asdf=1 end end
if asdf==0 then table.insert(app_act,akt) end
asdf=0
for a=1,#app_eff do if eph==app_eff[a] then asdf=1 end end
if asdf==0 then table.insert(app_eff,eph) end
table.sort(app_lay,function(a,b) return a<b end)
end
table.insert(app_lay,1,"All Layers")
hr=math.random(1,#hydraulics)
oneline=subs[sel[1]]
local linetext=nobrea(oneline.text)
local alfas={"00","10","20","30","40","50","60","70","80","90","A0","B0","C0","D0","E0","F0","F8","FF"}
local preset_list={"replace \\N","replace {~}","replace {•}","--- presets ---","before last char.","custom pattern","section","every char.","every word","text position","in the middle","1/4 of text","3/4 of text","1/8 of text","3/8 of text","5/8 of text","7/8 of text"}
local spec_list={"clean up tags","sort tags in set order","fscx -> fscy","fscy -> fscx","convert clip <-> iclip","convert clip to drawing","convert drawing to clip","size transform from clip","create shadow from clip","shad -> xshad+yshad","create 3D effect from shadow","convert strikeout to selected","move colour tag to first block","back and forth transform","chequerboard clip","select overlaps","split line in 3 parts"}
hh1={
{x=0,y=0,class="label",label=" HYDRA "..script_version},
{x=0,y=1,class="checkbox",name="k1",label="Primary:"},
{x=1,y=1,class="coloralpha",name="c1"},
{x=0,y=2,class="checkbox",name="k3",label="Bor&der:"},
{x=1,y=2,class="coloralpha",name="c3"},
{x=0,y=3,class="checkbox",name="k4",label="Shado&w:"},
{x=1,y=3,class="coloralpha",name="c4"},
{x=0,y=4,class="checkbox",name="k2",label="useless... (2c):"},
{x=1,y=4,class="coloralpha",name="c2"},
{x=0,y=5,class="checkbox",name="alfas",label="Include alphas",
hint="Include alphas from colours pickers.\nRequires Aegisub r7993 or higher."},
{x=1,y=5,class="checkbox",name="aonly",label="only",hint="Use only alphas, not colours"},
{x=0,y=6,class="checkbox",name="italix",label="Italics"},
{x=1,y=6,class="checkbox",name="bolt",label="Bold"},
{x=0,y=7,class="checkbox",name="under",label="Underline"},
{x=1,y=7,class="checkbox",name="strike",label="Strike"},
{x=2,y=0,class="checkbox",name="bord1",label="\\bord"},
{x=3,y=0,width=2,class="floatedit",name="bord2",value=0},
{x=2,y=1,class="checkbox",name="shad1",label="\\shad"},
{x=3,y=1,width=2,class="floatedit",name="shad2",value=0},
{x=2,y=2,class="checkbox",name="fs1",label="\\fs"},
{x=3,y=2,width=2,class="floatedit",name="fs2",value=50},
{x=2,y=3,class="checkbox",name="spac1",label="\\f&sp"},
{x=3,y=3,width=2,class="floatedit",name="spac2",value=1},
{x=2,y=4,class="checkbox",name="blur1",label="\\&blur"},
{x=3,y=4,width=2,class="floatedit",name="blur2",value=0.5},
{x=2,y=5,class="checkbox",name="be1",label="\\be"},
{x=3,y=5,width=2,class="floatedit",name="be2",value=1},
{x=2,y=6,class="checkbox",name="fscx1",label="\\fscx"},
{x=3,y=6,width=2,class="floatedit",name="fscx2",value=100},
{x=2,y=7,class="checkbox",name="fscy1",label="\\fscy"},
{x=3,y=7,width=2,class="floatedit",name="fscy2",value=100},
{x=2,y=8,class="checkbox",name="fsc1",label="\\&fsc",hint="both fscx and fscy"},
{x=3,y=8,width=2,class="floatedit",name="fsc2",value=100},
{x=5,y=0,class="checkbox",name="xbord1",label="\\xbord"},
{x=6,y=0,width=2,class="floatedit",name="xbord2"},
{x=5,y=1,class="checkbox",name="ybord1",label="\\ybord"},
{x=6,y=1,width=2,class="floatedit",name="ybord2"},
{x=5,y=2,class="checkbox",name="xshad1",label="\\&xshad"},
{x=6,y=2,width=2,class="floatedit",name="xshad2"},
{x=5,y=3,class="checkbox",name="yshad1",label="\\&yshad"},
{x=6,y=3,width=2,class="floatedit",name="yshad2"},
{x=5,y=4,class="checkbox",name="fax1",label="\\fax"},
{x=6,y=4,width=2,class="floatedit",name="fax2",value=0.05},
{x=5,y=5,class="checkbox",name="fay1",label="\\fay"},
{x=6,y=5,width=2,class="floatedit",name="fay2",value=0.05},
{x=5,y=6,class="checkbox",name="frx1",label="\\frx"},
{x=6,y=6,width=2,class="floatedit",name="frx2"},
{x=5,y=7,class="checkbox",name="fry1",label="\\fry"},
{x=6,y=7,width=2,class="floatedit",name="fry2"},
{x=5,y=8,class="checkbox",name="frz1",label="\\fr&z"},
{x=6,y=8,width=2,class="floatedit",name="frz2"},
{x=1,y=8,class="checkbox",name="q2",label="\\&q2"},
{x=0,y=8,class="checkbox",name="glo",label="Global fade",hint="global fade - IN on first line, OUT on last line"},
{x=0,y=9,class="checkbox",name="fade",label="\\fad (in,out)"},
{x=1,y=9,width=2,class="floatedit",name="fadin",min=0,hint="fade in"},
{x=3,y=9,width=2,class="floatedit",name="fadout",min=0,hint="fade out"},
{x=0,y=10,class="label",label="Additional tags:"},
{x=1,y=10,width=5,class="edit",name="moretags",value="\\"},
{x=6,y=10,class="checkbox",name="show",label="show ",hint="Show the tags being applied.\nNote: only transformable tags."},
{x=7,y=10,class="checkbox",name="reuse",label="&reuse ",hint="Reuse the (transformable) tags from last run.\nCan be used with a different button\nor 'apply to' restriction."},
{x=1,y=0,class="checkbox",name="rem",label="rem",hint="Remember last"},
{x=5,y=9,width=3,class="edit",name="lastags",value=ortags or "",hint="last used tags will appear here"},
}
hh2={
{x=8,y=0,class="label",name="startmode",label="Start mode"},
{x=9,y=0,class="dropdown",name="smode",items={"1","2","3"},value="1"},
{x=8,y=1,class="checkbox",name="arfa",label="\\&alpha"},
{x=9,y=1,class="dropdown",name="alpha",items=alfas,value="00"},
{x=8,y=2,class="checkbox",name="arf1",label="\\1a"},
{x=9,y=2,class="dropdown",name="alph1",items=alfas,value="00"},
{x=8,y=3,class="checkbox",name="arf2",label="\\2a"},
{x=9,y=3,class="dropdown",name="alph2",items=alfas,value="00"},
{x=8,y=4,class="checkbox",name="arf3",label="\\3a"},
{x=9,y=4,class="dropdown",name="alph3",items=alfas,value="00"},
{x=8,y=5,class="checkbox",name="arf4",label="\\4a"},
{x=9,y=5,class="dropdown",name="alph4",items=alfas,value="00"},
{x=8,y=6,class="checkbox",name="an1",label="\\an"},
{x=9,y=6,class="dropdown",name="an2",items={"1","2","3","4","5","6","7","8","9"},value="5"},
{x=8,y=7,width=2,class="label",label="Add with each line:"},
{x=8,y=8,width=2,class="floatedit",name="add",hint="add with each line\nworks with regular tags,\ni.e. the middle two columns"},
}
hh2b={
{x=8,y=0,class="label",name="startmode",label="Start mode"},
{x=9,y=0,class="dropdown",name="smode",items={"1","2","3"},value="1"},
{x=8,y=1,class="checkbox",name="arfa",label="\\&alpha"},
{x=9,y=1,class="dropdown",name="alpha",items=alfas,value="00"},
{x=8,y=7,width=2,class="label",label="Add with each line:"},
{x=8,y=8,width=2,class="floatedit",name="add",hint="add with each line\nworks with regular tags,\ni.e. the middle two columns"},
}
hh3={
{x=0,y=11,class="label",label="Tag position*:"},
{x=1,y=11,width=5,class="edit",name="linetext",value=linetext,hint="Place an asterisk where you want the tags."},
{x=6,y=11,width=2,class="dropdown",name="tagpres",items=preset_list,value="--- presets ---",hint="presets/options for tag position"},
{x=0,y=12,class="label",label="Transform t1,t2:"},
{x=1,y=12,width=2,class="floatedit",name="trin"},
{x=3,y=12,width=2,class="floatedit",name="trout"},
{x=5,y=12,width=3,class="checkbox",name="tend",label="Count times from end"},
{x=0,y=13,class="label",label="Transform mode:"},
{x=1,y=13,width=2,class="dropdown",name="tmode",items={"normal","add2first","add2all","all tag blocks"},value="normal",hint="new \\t | add to first \\t | add to all \\t | add to all {\\tag blocks}"},
{x=3,y=13,width=2,class="checkbox",name="relative",label="Relative transform",
hint="Example:\ntag: \\frz30\ninput: 60\nresult: \\t(\\frz90)"},
{x=5,y=13,class="label",label=" Accel:"},
{x=0,y=14,class="label",label="Shift times/interval:"},
{x=1,y=14,width=2,class="floatedit",name="int",value=0,hint="'normal' transform: shift \\t times each line\n'all tag blocks': shift \\t times each block\n'back and forth transform': interval"},
{x=6,y=13,width=2,class="floatedit",name="accel",value=1,min=0,hint="<1 starts fast, >1 starts slow"},
{x=3,y=14,class="label",label="Special functions:"},
{x=4,y=14,width=4,class="dropdown",name="spec",items=spec_list,value="convert clip <-> iclip"},
{x=0,y=15,class="label",label="Gradient:"},
{x=1,y=15,width=2,class="dropdown",name="gtype",items={"vertical","horizontal","by character","by line"},value="by character",
hint="gradient from current values to selected values\nvertical/horizontal requires clip\nworks with accel"},
{x=3,y=15,width=2,class="floatedit",name="stripe",value=2,min=0,hint="width of clip stripes for vertical/horizontal gradient"},
{x=5,y=15,class="label",label="pxl/stripe"},
{x=6,y=15,class="checkbox",name="short",label="Shorter",hint="rotate in shorter direction;\ngradient hue in shorter direction"},
{x=7,y=15,class="checkbox",name="last",label="Last",hint="take end values for gradient by line from last line if possible"},
{x=8,y=15,class="checkbox",name="middle",label="Centred",hint="selected tags will be in the middle;\nend will be same as beginning"},
{x=9,y=15,class="checkbox",name="hsl",label="HSL"},
{x=8,y=9,class="label",label="Apply to:"},
{x=9,y=9,class="checkbox",name="exc",label="excpt",hint="all except selected\n\n('All' still applies to all)"},
{x=8,y=10,width=2,class="dropdown",name="applay",items=app_lay,value="All Layers"},
{x=8,y=11,width=2,class="dropdown",name="applst",items=app_sty,value="All Styles"},
{x=8,y=12,width=2,class="dropdown",name="applac",items=app_act,value="All Actors"},
{x=8,y=13,width=2,class="dropdown",name="applef",items=app_eff,value="All Effects"},
{x=8,y=14,width=2,class="edit",name="appltx",value="Text..."},
}
B3={"Apply","Transform","Gradient","Repeat Last","Special","Save Config","Help","Cancel"}
B4={"Apply","Transform","Gradient","Repeat Last","Special","Save Config","Switch","Cancel"}
B5={"Apply","Transform","Gradient","clip2size","shad2xyshad","clip2shad","strike2tags","Cancel"}
buttons={{"Apply","Transform","Repeat Last","Load Medium","Load Full","Cancel"},
{"Apply","Transform","Repeat Last","Load Full","Cancel"},B3,B4}
loadconfig()
local heads=sm*2+1
hh_gui=hh1 loaded=sm
progress(string.format("Loading Hydra Heads 1-"..heads))
if sm==2 then for i=1,#hh2 do l=hh2[i] table.insert(hh_gui,l) end loaded=2 end
if sm==3 then for i=1,#hh2 do l=hh2[i] table.insert(hh_gui,l) end for i=1,#hh3 do l=hh3[i] table.insert(hh_gui,l) end end
if sm==4 then for i=1,#hh2b do l=hh2b[i] table.insert(hh_gui,l) end for i=1,#hh3 do l=hh3[i] table.insert(hh_gui,l) end end
hh_buttons=buttons[sm]
P,res=ADD(hh_gui,hh_buttons,{ok='Apply',cancel='Cancel'})
if P=="Load Medium" then progress("Loading Heads 4-5")
for key,val in ipairs(hh_gui) do val.value=res[val.name] end
for i=1,#hh2 do l=hh2[i] table.insert(hh_gui,l) end loaded=2
P,res=ADD(hh_gui,buttons[2],{ok='Apply',cancel='Cancel'})
end
if P=="Load Full" then progress("Loading Heads "..(loaded+1)*2 .."-7")
for key,val in ipairs(hh_gui) do val.value=res[val.name] end
if loaded<2 then for i=1,#hh2 do l=hh2[i] table.insert(hh_gui,l) end end
for i=1,#hh3 do l=hh3[i] table.insert(hh_gui,l) end loaded=3
P,res=ADD(hh_gui,buttons[3],{ok='Apply',cancel='Cancel'})
end
if P=="Help" then progress("Loading Head 8")
for key,val in ipairs(hh_gui) do val.value=res[val.name] end
hhh={x=0,y=16,width=10,class="dropdown",name="herp",items={"HELP (scroll/click to read)",
"Standard mode: check tags, set values, click on 'Apply'.",
"Transform mode normal: check tags, set values, set t1/t2/accel if needed, click on 'Transform'.",
"Transform mode add2first: the transforms will be added to the first existing transform in the line.",
"Transform mode add2all: the transforms will be added to all existing transforms in the line.",
"Transform mode 'all tag blocks': the transforms will be added to all tag blocks, whether they have transforms or not.",
"Shift times/interval: 'normal' tf - shift \\t times each line; 'all tag blocks' - shift \\t times each tag block.",
"Relative transform: If you have frz30 and set transform to frz60, you get \\t(\\frz90), or transform BY 60.",
"Relative transform: This allows you to keep layers with different frz in sync. (No effect on alpha/colours.)",
"Additional tags: type any extra tags you want to add.",
"Add with each line: '2' means that for each line, the value of all checked applicable tags is increased by an extra 2.",
"Tag position: This shows the text of your first line. Type * where you want your tags to go.",
"Tag position presets: This places tags in specified positions, proportionally for each selected line.",
"Gradient: Current state is the start. Given tags are the end. Accel works with this. Vertical/horizontal need a clip.",
"Centred gradient: 'There and back.' Given state will be in the middle. Last line/character will be the same as the first.",
"Special functions: select a function, click on 'Special'.",
"Special functions - back and forth transform: select tags, set 'interval'. Missing initial tags are taken from style.",
"Special functions - create 3D effect from shadow: creates a 3D effect using layers. Requires xshad/yshad.",
"Special functions - split line in 3 parts: uses t1 and t2 as time markers.",
},value="HELP (scroll/click to read)"}
table.insert(hh_gui,hhh)
P,res=ADD(hh_gui,{"Apply","Transform","Gradient","Repeat Last","Special","Save Config","More Help","Cancel"},{ok='Apply',cancel='Cancel'})
end
if P=="Switch" then
for key,val in ipairs(hh_gui) do val.value=res[val.name] end
P,res=ADD(hh_gui,B5,{ok='Apply',cancel='Cancel'})
if P=="clip2size" then res.spec="size transform from clip" P="Special" end
if P=="shad2xyshad" then res.spec="shad -> xshad+yshad" P="Special" end
if P=="clip2shad" then res.spec="create shadow from clip" P="Special" end
if P=="strike2tags" then res.spec="convert strikeout to selected" P="Special" end
end
if res.tmode=="normal" then tmode=1 end
if res.tmode=="add2first" then tmode=2 end
if res.tmode=="add2all" then tmode=3 end
if res.tmode=="all tag blocks" then tmode=4 end
if not tmode then tmode=1 end
res.accel=res.accel or 1
if res.tagpres=="in the middle" then fak=0.5 end
if loaded>2 and res.tagpres:match("of text") then fa,fb=res.tagpres:match("(%d)/(%d)") fak=fa/fb end
if res.aonly then res.alfas=true end
if P~="Repeat Last" then hydralast=res Plast=P end
if P=="More Help" then hydrahelp() end
if P=="Apply" then selcheck() trans=0 hh9(subs,sel) end
if P=="Transform" then selcheck() trans=1 hh9(subs,sel) end
if P=="Gradient" then selcheck() hydradient(subs,sel) end
if P=="Special" then sel=special(subs,sel) end
if P=="Save Config" then saveconfig() end
if P=="Repeat Last" then res=hydralast
if not res then t_error("Nothing to repeat",1) end
if Plast=="Gradient" then hydradient(subs,sel)
elseif Plast=="Special" then sel=special(subs,sel)
else hh9(subs,sel) end
end
return sel
end
function col2first(subs,sel)
res=res or {}
res.spec="move colour tag to first block"
spec_macros(subs,sel)
end
function sortags(subs,sel)
res=res or {}
res.spec="sort tags in set order"
spec_macros(subs,sel)
end
function i_clip(subs,sel)
res=res or {}
res.spec="convert clip <-> iclip"
spec_macros(subs,sel)
end
function shad2xy(subs,sel)
res=res or {}
res.spec="shad -> xshad+yshad"
spec_macros(subs,sel)
end
function clip2shad(subs,sel)
res=res or {}
res.spec="create shadow from clip"
spec_macros(subs,sel)
end
function clip2mask(subs,sel)
res=res or {}
res.spec="convert clip to drawing"
spec_macros(subs,sel)
end
function mask2clip(subs,sel)
res=res or {}
res.spec="convert drawing to clip"
spec_macros(subs,sel)
end
function spec_macros(subs,sel)
cuts()
loaded=1
failures={}
success=0
special(subs,sel)
return sel
end
function arrowshift(subs,sel)
for x,i in ipairs(sel) do
local l=subs[i]
local t=l.text
local back
if t:match'{switch}$' then back=true else back=false end
t=t:gsub("(\\t)(%b())",function(a,b) return a..b:gsub("\\","/") end):gsub("\\([Nnh])","/%1")
if t:match('>\\') then
if back then t=t:gsub("^([^\\]*)>","%1"):gsub("(\\[^\\]*)>",">%1")
else t=t:gsub(">(\\[^\\]*)","%1>"):gsub(">$","") end
else
if back then t=t:gsub("(\\[^\\]+)$",">%1"):gsub("^>","")
else t=t:gsub("^([^\\]*)","%1>"):gsub(">$","") end
end
t=t:gsub("(\\t)(%b())",function(a,b) return a..b:gsub("/","\\") end):gsub("/([Nnh])","\\%1")
if t~=l.text then
l.text=t
subs[i]=l
end
end
end
function shapeshifter(subs,sel,sh)
Sh="{"..sh.."}"
for x,i in ipairs(sel) do
local l=subs[i]
local t=l.text
local mark="( *%S+ *)"
if l.effect:match(sh) or l.comment or t:match'{switch}$' then mark="(.)" end
if not t:match '\\p1' then
t=t:gsub("%b{}",function(b) return b:gsub(" ","_SP_") end)
if t:match(Sh) then
t=t:gsub(Sh.."(%b{})","%1"..Sh):gsub(Sh..mark,"%1"..Sh):gsub(Sh.."$","")
else
t,c=t:gsub("^(%b{}"..mark..")","%1"..Sh)
if c==0 then t=t:gsub(mark,"%1"..Sh,1) end
t=t:gsub(Sh.."$","")
end
t=t:gsub("%b{}",function(b) return b:gsub("_SP_"," ") end)
end
if t~=l.text then
l.text=t
subs[i]=l
end
end
end
function bellshift(subs,sel)
shapeshifter(subs,sel,"•")
return sel
end
function waveshift(subs,sel)
shapeshifter(subs,sel,"~")
return sel
end
function comment(subs,sel)
for x,i in ipairs(sel) do
line=subs[i]
line.comment=not line.comment
subs[i]=line
end
return sel
end
if haveDepCtrl then
depRec:registerMacros({
{script_name,script_description,hydra},
{": HELP : / HYDRA","HYDRA",hydrahelp},
{": Non-GUI macros :/HYDRA: Sort tags in set order","Sort tags in set order",sortags},
{": Non-GUI macros :/HYDRA: Move colour tag to 1st block","Move colour tag to 1st block",col2first},
{": Non-GUI macros :/HYDRA: Convert clip <-> iclip","Convert clip <-> iclip",i_clip},
{": Non-GUI macros :/HYDRA: shad -> xshad+yshad","shad -> xshad+yshad",shad2xy},
{": Non-GUI macros :/HYDRA: Create shadow from clip","Create shadow from clip",clip2shad},
{": Non-GUI macros :/HYDRA: Convert clip to drawing","Convert clip to drawing",clip2mask},
{": Non-GUI macros :/HYDRA: Convert drawing to clip","Convert drawing to clip",mask2clip},
{": Non-GUI macros :/HYDRA: Bell Shifter","Shifts Bell",bellshift},
{": Non-GUI macros :/HYDRA: Wave Shifter","Shifts Tilde",waveshift},
{": Non-GUI macros :/HYDRA: Arrow Shifter","Shifts '>'",arrowshift},
{": Non-GUI macros :/HYDRA: Comment on-off","Comments/uncomments lines",comment},
},false)
else
aegisub.register_macro(script_name,script_description,hydra)
aegisub.register_macro(": HELP : / HYDRA","HYDRA",hydrahelp)
aegisub.register_macro(": Non-GUI macros :/HYDRA: Sort tags in set order","Sort tags in set order",sortags)
aegisub.register_macro(": Non-GUI macros :/HYDRA: Move colour tag to 1st block","Move colour tag to 1st block",col2first)
aegisub.register_macro(": Non-GUI macros :/HYDRA: Convert clip <-> iclip","Convert clip <-> iclip",i_clip)
aegisub.register_macro(": Non-GUI macros :/HYDRA: shad -> xshad+yshad","shad -> xshad+yshad",shad2xy)
aegisub.register_macro(": Non-GUI macros :/HYDRA: Create shadow from clip","Create shadow from clip",clip2shad)
aegisub.register_macro(": Non-GUI macros :/HYDRA: Convert clip to drawing","Convert clip to drawing",clip2mask)
aegisub.register_macro(": Non-GUI macros :/HYDRA: Convert drawing to clip","Convert drawing to clip",mask2clip)
aegisub.register_macro(": Non-GUI macros :/HYDRA: Bell Shifter","Shifts Bell",bellshift)
aegisub.register_macro(": Non-GUI macros :/HYDRA: Wave Shifter","Shifts Tilde",waveshift)
aegisub.register_macro(": Non-GUI macros :/HYDRA: Arrow Shifter","Shifts '>'",arrowshift)
aegisub.register_macro(": Non-GUI macros :/HYDRA: Comment on-off","Comments/uncomments lines",comment)
end
Reference in New Issue View Git Blame Copy Permalink