Субтитры *.srt - выравнивание

@for %%x in (*.srt) do type "%%x" | lua resample.lua > "./fixed/%%x"

        local HOURPERDAY  = 24
        local MINPERHOUR  = 60
        local MINPERDAY   = 1440  -- 24*60
        local SECPERMIN   = 60
        local SECPERHOUR  = 3600  -- 60*60
        local SECPERDAY   = 86400 -- 24*60*60
        local TICKSPERSEC = 1000
        local TICKSPERDAY = 86400000
        local TICKSPERHOUR = 3600000
        local TICKSPERMIN = 60000
local function to_ts(hh, mm, ss, ms)
        return
                tonumber(hh) * TICKSPERHOUR +
                tonumber(mm) * TICKSPERMIN +
                tonumber(ss) * TICKSPERSEC +
                math.floor(tonumber(ms) / (10 ^ #ms) * TICKSPERSEC)
end
local function from_ts(t)
        return
                math.mod(math.floor(t/TICKSPERHOUR),HOURPERDAY),
                math.mod(math.floor(t/TICKSPERMIN ),MINPERHOUR),
                math.mod(math.floor(t/TICKSPERSEC ),SECPERMIN),
                math.mod(math.floor(t),TICKSPERSEC)
end
local function str_to_ts(s)
        return to_ts(string.match(tostring(s),"(%d+):(%d+):(%d+).(%d+)"))
end
local function ts_to_str(t)
        local hh, mm, ss, ms = from_ts(t)
        return tostring(hh)..":"..tostring(mm)..":"..tostring(ss)..","..tostring(ms)
end
local RESAMPLE = 25025 / (24000/1001*1000)
local text = io.stdin:read("*a")
for n1, t1, t2, text in string.gmatch(text, "(%d+)\n([:,.%d]+)[^:,.%d]*([:,.%d]+)\n(.-)\n\n") do
        print(tostring(n1))
        print(ts_to_str(str_to_ts(t1) * RESAMPLE).." --> "..ts_to_str(str_to_ts(t2) * RESAMPLE))
        -- fixes phase
        local s = tostring(text)
        s = string.gsub(s, "<<", string.char(0xab))
        s = string.gsub(s, ">>", string.char(0xbb))
        print(s)
        print("")
end