mpv LUA Script-Sammlung

--[[
This script has been modified from the original dynamic_crop to include zooming/stretching of actual picture content for scope screens
you can modify the zoom/shift/crop starting line ~426

This script uses the lavfi cropdetect filter to automatically insert a crop filter with appropriate parameters for the
currently playing video, the script run continuously by default.

The workflow is as follows: We observe two main events, vf-metadata and time-pos changes.
    vf-metadata are stored sequentially in buffer with time-pos being updated at every frame,
    then process to check and store trusted values to speed up future change for the current video.
    It will automatically crop the video as soon as a meta change is validated.

Also It registers the key-binding "C" (shift+c) to control the script.
Pressing Shift + C toggles between 5 different cropping modes.

The default options can be overridden by adding script-opts-append=<script_name>-<parameter>=<value> into mpv.conf
    script-opts-append=dynamic_crop-zoom_after_crop=true
    script-opts-append=dynamic_crop-ratios=2.4 2.39 2 4/3 (quotes aren't needed like below)

List of available parameters (For default values, see <options>)：

prevent_change_mode: [0-2] - 0 any, 1 keep-largest, 2 keep-lowest - The prevent_change_timer is trigger after a change,
    to disable this, set prevent_change_timer to 0.

resize_windowed: [true/false] - False, prevents the window from being resized, but always applies cropping,
    this function always avoids the default behavior to resize the window at the source size, in windowed/maximized mode.

segmentation: % [0.0-n] e.g. 0.5 for 50% - Extra time to allow new metadata to be segmented instead of being continuous.
    By default, new_known_ratio_timer is validated with 5 sec accumulated over 7.5 sec elapsed and
    new_fallback_timer with 20 sec accumulated over 30 sec elapsed.
    to disable this, set 0.

correction: % [0.0-1] e.g. 0.6 for 60% - Size minimum of collected meta (in percent based on source), to attempt a correction.
    to disable this, set 1.
]] --
require "mp.msg"
require "mp.options"

local options = {
    -- behavior
    start_delay = 0, -- delay in seconds used to skip intro 
    prevent_change_timer = 0, -- seconds
    prevent_change_mode = 2, -- [0-2], disable with 'prevent_change_timer = 0'
    resize_windowed = true,
    fast_change_timer = 3, -- seconds
    new_known_ratio_timer = 0.5, -- seconds
    new_fallback_timer = 20, -- seconds, >= 'new_known_ratio_timer', disable with 0
    ratios = "2.4 2.39 2.35 2.2 2 1.85 16/9", -- list separated by space
     --ratios = "2.4 2.39 2.35 2.2 2 1.85 16/9 5/3 1.5 4/3 1.25 9/16", -- list separated by space
    ratios_extra_px = 2, -- even number, pixel added to check with the ratios list and offsets
    segmentation = 0.5, -- %, 0 will approved only a continuous metadata (strict)
    correction = 0.6, -- %, -- TODO auto value with trusted meta
    -- filter, see https://ffmpeg.org/ffmpeg-filters.html#cropdetect for details
    detect_limit = 20, -- is the maximum use, increase it slowly if lighter black are present
    detect_round = 2, -- even number
    detect_reset = 1, -- minimum 1
    detect_skip = 1, -- minimum 1, default 2 (new ffmpeg build since 12/2020)
     zoom_after_crop = false, -- zoom/sretch/move in addtion after cropping to fill the full screen (Ratios 1.9 and higher)
     zoom16_9 = false,       -- zoom/sretch/move 16:9 and 1.85:1 to your scope screen when set to true
     scope_ratio = 2.4,  -- your scope screen ratio (required for zoom_after_crop)
     stretch = 0.95, -- minor stretch for all aspect ratios below 2.3
     stretch16_9 = 0.90, -- 16/9 and 1.85:1 stretching
     cropdbg = false, -- show cropping debug outputs
    -- verbose
    debug = false
}
read_options(options)

-- forward declaration
local cleanup, on_toggle
local applied, buffer, collected, last_collected, limit, source, stats
-- label
local label_prefix = mp.get_script_name()
local labels = {
    crop = string.format("%s-crop", label_prefix),
    cropdetect = string.format("%s-cropdetect", label_prefix)
}
-- state (boolean)
local in_progress, seeking, paused, toggled, filter_missing, filter_inserted
-- option
local time_pos = {}
local prevent_change_timer = options.prevent_change_timer * 1000
local fast_change_timer = options.fast_change_timer * 1000
local new_known_ratio_timer = options.new_known_ratio_timer * 1000
local new_fallback_timer = options.new_fallback_timer * 1000
local fallback = new_fallback_timer >= new_known_ratio_timer
local cropdetect_skip = "" --string.format(":skip=%d", options.detect_skip)
local zoomed_177 = false
local zoomed_185 = false
local zoomed_190 = false
local zoomed_200 = false
local zoomed_220 = false
local zoomed_230 = false
local optioncode = 0
local zoom16by9 = false
local command_prefix = "no-osd"


local function resetZoomStatus()
    zoomed_177 = false
    zoomed_185 = false
    zoomed_190 = false
    zoomed_200 = false
    zoomed_220 = false
    zoomed_230 = false
end

-- only relevant for 1.9:1 and higher
local function isZoomed()
    if zoomed_190 == true then return true end
    if zoomed_200 == true then return true end
    if zoomed_220 == true then return true end
    if zoomed_230 == true then return true end
    return false
end

local function is_trusted_offset(offset, axis)
    for _, v in pairs(stats.trusted_offset[axis]) do
        if math.abs(offset - v) <= options.ratios_extra_px then return true end
    end
    return false
end

local function is_filter_present(label)
    local filters = mp.get_property_native("vf")
    for _, filter in pairs(filters) do if filter["label"] == label then return true end end
    return false
end

local function is_cropable()
    for _, track in pairs(mp.get_property_native('track-list')) do
        if track.type == 'video' and track.selected then return not track.albumart end
    end
    return false
end

local function remove_filter(label)
    if is_filter_present(label) then mp.command(string.format("no-osd vf remove @%s", label)) end
end

local function insert_cropdetect_filter()
    if toggled or paused or seeking then return end
    -- "vf pre" cropdetect / "vf append" crop, in a proper order
    local function command()
        return mp.command(string.format("no-osd vf pre @%s:lavfi-cropdetect=limit=%d/255:round=%d:reset=%d%s",
                                        labels.cropdetect, limit.current, options.detect_round, options.detect_reset,
                                        cropdetect_skip))
    end
    if not command() then
        cropdetect_skip = ""
        if not command() then
            mp.msg.error("Does vf=help as #1 line in mvp.conf return libavfilter list with crop/cropdetect in log?")
            filter_missing = true
            cleanup()
            return
        end
    end
    filter_inserted = true
end

local function compute_meta(meta)
    meta.whxy = string.format("w=%s:h=%s:x=%s:y=%s", meta.w, meta.h, meta.x, meta.y)
    meta.offset = {x = meta.x - (source.w - meta.w) / 2, y = meta.y - (source.h - meta.h) / 2}
    meta.mt, meta.mb, meta.ml, meta.mr = meta.y, source.h - meta.h - meta.y, meta.x, source.w - meta.w - meta.x
    meta.is_source = meta.whxy == source.whxy
    meta.is_invalid = meta.h < 0 or meta.w < 0
    meta.is_trusted_offsets = is_trusted_offset(meta.offset.x, "x") and is_trusted_offset(meta.offset.y, "y")
    meta.time = {buffer = 0, overall = 0}
    -- check aspect ratio with the known list
    if not meta.is_invalid and meta.w >= source.w * .9 or meta.h >= source.h * .9 then
        for ratio in string.gmatch(options.ratios, "%S+%s?") do
            for a, b in string.gmatch(ratio, "(%d+)/(%d+)") do ratio = a / b end
            local height = math.floor((meta.w * 1 / ratio) + .5)
            if math.abs(height - meta.h) <= options.ratios_extra_px + 1 then -- ratios_extra_px + 1 for odd meta
                meta.is_known_ratio = true
                break
            end
        end
    end
    return meta
end

local function osd_size_change(orientation)
    local prop_maximized = mp.get_property("window-maximized")
    local prop_fullscreen = mp.get_property("fullscreen")
    local osd = mp.get_property_native("osd-dimensions")
    if prop_fullscreen == "no" then
        -- keep window width or height to avoid reset to source size when cropping
        if prop_maximized == "yes" or not options.resize_windowed then
            mp.set_property("geometry", string.format("%sx%s", osd.w, osd.h))
        else
            if orientation then
                mp.set_property("geometry", string.format("%s", osd.w))
            else
                mp.set_property("geometry", string.format("x%s", osd.h))
            end
        end
    end
end

local function print_debug(meta, type_, label)
    if options.debug then
        if type_ == "detail" then
            print(string.format("%s, %s | Offset X:%s Y:%s | limit:%s", label, meta.whxy, meta.offset.x, meta.offset.y,
                                limit.current))
        end
        if not type_ then print(meta) end
    end

    if type_ == "stats" and stats and stats.trusted then
        mp.msg.info("Meta Stats:")
        local read_maj_offset = {x = "", y = ""}
        for axis, _ in pairs(read_maj_offset) do
            for _, v in pairs(stats.trusted_offset[axis]) do
                read_maj_offset[axis] = read_maj_offset[axis] .. v .. " "
            end
        end
        mp.msg.info(string.format("Trusted Offset - X:%s| Y:%s", read_maj_offset.x, read_maj_offset.y))
        for whxy, table_ in pairs(stats.trusted) do
            if stats.trusted[whxy] then
                mp.msg.info(string.format("%s | offX=%s offY=%s | applied=%s overall=%s last_seen=%s", whxy,
                                          table_.offset.x, table_.offset.y, table_.applied, table_.time.overall / 1000,
                                          table_.time.last_seen / 1000))
            end
        end
        mp.msg.info("Buffer - total: " .. buffer.index_total,
                    buffer.time_total / 1000 .. "sec, unique_meta: " .. buffer.unique_meta .. " | known_ratio:",
                    buffer.index_known_ratio, buffer.time_known / 1000 .. "sec")
        if options.debug and stats.buffer then
            for whxy, table_ in pairs(stats.buffer) do
                mp.msg.info(string.format("- %s | offX=%s offY=%s | time.buffer=%ssec known_ratio=%s", whxy,
                                          table_.offset.x, table_.offset.y, table_.time.buffer / 1000,
                                          table_.is_known_ratio))
            end
            for pos, table_ in pairs(buffer.ordered) do
                mp.msg.info(string.format("-- %s %s", pos, table_[1].whxy))
            end
        end
    end
end

local function is_trusted_margin(whxy)
    local data = {count = 0}
    for _, axis in pairs({"mt", "mb", "ml", "mr"}) do
        data[axis] = math.abs(collected[axis] - stats.trusted[whxy][axis])
        if data[axis] == 0 then data.count = data.count + 1 end
    end
    return data
end

local function adjust_limit(meta)
    local limit_current = limit.current
    if meta.is_source then -- increase limit
        limit.change = 1
        if limit.current + limit.step * limit.up <= options.detect_limit then
            limit.current = limit.current + limit.step * limit.up
        else
            limit.current = options.detect_limit
        end
    elseif not meta.is_invalid and -- stable limit
        (last_collected == collected or last_collected and math.abs(collected.w - last_collected.w) <= 2 and
            math.abs(collected.h - last_collected.h) <= 2) then -- math.abs <= 2 to help stabilize odd metadata
        limit.change = 0
    else -- decrease limit
        limit.change = -1
        if limit.current > 0 then
            if limit.current - limit.step >= 0 then
                limit.current = limit.current - limit.step
            else
                limit.current = 0
            end
        end
    end
    return limit_current ~= limit.current
end

local function check_stability(current_)
    local found
    if not current_.is_source and stats.trusted[current_.whxy] then
        for _, table_ in pairs(stats.trusted) do
            if current_ ~= table_ and
                (not found and table_.time.overall > current_.time.overall * 1.1 or found and table_.time.overall >
                    found.time.overall * 1.1) and math.abs(current_.w - table_.w) <= 4 and
                math.abs(current_.h - table_.h) <= 4 then found = table_ end
        end
    end
    return found
end

local function time_to_cleanup_buffer(time_1, time_2) return time_1 > time_2 * (1 + options.segmentation) end

local function process_metadata(event, time_pos_)
    in_progress = true -- prevent event race    

    local elapsed_time = time_pos_ - time_pos.insert
    print_debug(collected, "detail", "Collected")
    time_pos.insert = time_pos_

    -- init stats.buffer[whxy]
    if not stats.buffer[collected.whxy] then
        stats.buffer[collected.whxy] = collected
        buffer.unique_meta = buffer.unique_meta + 1
    end
    -- add collected meta to the buffer
    if buffer.index_total == 0 or buffer.ordered[buffer.index_total][1] ~= collected then
        table.insert(buffer.ordered, {collected, elapsed_time})
        buffer.index_total = buffer.index_total + 1
        buffer.index_known_ratio = buffer.index_known_ratio + 1
    elseif last_collected == collected then
        buffer.ordered[buffer.index_total][2] = buffer.ordered[buffer.index_total][2] + elapsed_time
    end
    collected.time.overall = collected.time.overall + elapsed_time
    collected.time.buffer = collected.time.buffer + elapsed_time
    buffer.time_total = buffer.time_total + elapsed_time
    if buffer.index_known_ratio > 0 then buffer.time_known = buffer.time_known + elapsed_time end

    -- add new offset to trusted_offset list
    if stats.buffer[collected.whxy] and fallback and collected.time.buffer >= new_fallback_timer then
        local add_new_offset = {}
        for _, axis in pairs({"x", "y"}) do
            add_new_offset[axis] = not collected.is_invalid and not is_trusted_offset(collected.offset[axis], axis)
            if add_new_offset[axis] then table.insert(stats.trusted_offset[axis], collected.offset[axis]) end
        end
    end

    -- reset last_seen before correction
    if stats.trusted[collected.whxy] and collected.time.last_seen < 0 then collected.time.last_seen = 0 end

    -- correction with trusted meta for fast change in dark/ambiguous scene
    local corrected
    if not collected.is_invalid and not stats.trusted[collected.whxy] and
        (collected.w > source.w * options.correction and collected.h > source.h * options.correction) then
        -- find closest meta already applied
        local closest, in_between = {}, false
        for whxy in pairs(stats.trusted) do
            local diff = is_trusted_margin(whxy)
            -- check if we have the same position between two sets of margin
            if closest.whxy and closest.whxy ~= whxy and diff.count == closest.count and math.abs(diff.mt - diff.mb) ==
                math.abs(closest.mt - closest.mb) and math.abs(diff.ml - diff.mr) == math.abs(closest.ml - closest.mr) then
                in_between = true
                break
            end
            if not closest.whxy and diff.count >= 2 or closest.whxy and diff.count >= closest.count and diff.mt +
                diff.mb <= closest.mt + closest.mb and diff.ml + diff.mr <= closest.ml + closest.mr then
                closest.mt, closest.mb, closest.ml, closest.mr = diff.mt, diff.mb, diff.ml, diff.mr
                closest.count, closest.whxy = diff.count, whxy
            end
        end
        -- check if the corrected data is already applied
        if closest.whxy and not in_between and closest.whxy ~= applied.whxy then
            corrected = stats.trusted[closest.whxy]
        end
    end
     
    -- use corrected metadata as main data
    local current = collected
    if corrected then current = corrected end

    -- stabilization of odd/unstable meta
    local stabilized = check_stability(current)
    if stabilized then
        current = stabilized
        print_debug(current, "detail", "\\ Stabilized")
    elseif corrected then
        print_debug(current, "detail", "\\ Corrected")
    end

    -- cycle last_seen
    for whxy, table_ in pairs(stats.trusted) do
        if whxy ~= current.whxy then
            if table_.time.last_seen > 0 then table_.time.last_seen = 0 end
            table_.time.last_seen = table_.time.last_seen - elapsed_time
        else
            if table_.time.last_seen < 0 then table_.time.last_seen = 0 end
            table_.time.last_seen = table_.time.last_seen + elapsed_time
        end
    end

    -- last check before add a new meta as trusted
    local new_ready = stats.buffer[collected.whxy] and
                          (collected.is_known_ratio and collected.time.buffer >= new_known_ratio_timer or fallback and
                              not collected.is_known_ratio and collected.time.buffer >= new_fallback_timer)
    local detect_source = current.is_source and
                              (not corrected and last_collected == collected and limit.change == 1 or
                                  current.time.last_seen >= fast_change_timer)
    local confirmation = not current.is_source and
                             (stats.trusted[current.whxy] and current.time.last_seen >= fast_change_timer or new_ready)
                                 
     local crop_filter = not collected.is_invalid and applied.whxy ~= current.whxy and
                            is_trusted_offset(current.offset.x, "x") and is_trusted_offset(current.offset.y, "y") and
                            (confirmation or detect_source)
                        
     local ratio = current.w / current.h                 
                        
    -- apply crop          
    if crop_filter or optioncode == 2 then               
        local already_stable
        if stats.trusted[current.whxy] then
            current.applied = current.applied + 1
        else
            -- add the metadata to the trusted list
            stats.trusted[current.whxy] = current
            current.applied, current.time.last_seen = 1, current.time.buffer
            current.is_trusted_offsets = true
            --if check_stability(current) then already_stable, current.applied = true, 0 end
                already_stable = true
                current.applied = 0 
        end
        if not already_stable then                            
            if not time_pos.prevent or time_pos_ >= time_pos.prevent then                    
                
                     if crop_filter then
                         osd_size_change(current.w > current.h)
                         mp.command(string.format("no-osd vf append @%s:lavfi-crop=%s", labels.crop, current.whxy))
                         print_debug(string.format("- Apply: %s", current.whxy))
                         if prevent_change_timer > 0 then
                              time_pos.prevent = nil
                              if (options.prevent_change_mode == 1 and (current.w > applied.w or current.h > applied.h) or
                                    options.prevent_change_mode == 2 and (current.w < applied.w or current.h < applied.h) or
                                    options.prevent_change_mode == 0) then
                                    time_pos.prevent = time_pos_ + prevent_change_timer
                              end
                         end    
                    end                         
                                            
                    if options.zoom_after_crop == true or zoom16by9 == true then
                        -- mp.osd_message(ratio ,1)                                 
                        -- 1.9:1
                        if ratio >= 1.89 and ratio <= 1.91 and zoomed_190 == false then                    
                            resetZoomStatus()
                            zoomed_190 = true                        
                            if options.cropdbg == true then mp.osd_message("1.9 crop" ,3) end                    
                            mp.command(string.format("%s set video-scale-x %s",    command_prefix, options.scope_ratio/ratio ))
                            mp.command(string.format("%s set video-scale-y %s",    command_prefix, options.scope_ratio/ratio * options.stretch))    
                            mp.command(string.format("%s set video-align-y 0.51",  command_prefix ))
                         end    
                        
                        -- 2:1
                        if ratio >= 1.99 and ratio <= 2.01 and zoomed_200 == false then
                            resetZoomStatus()
                            zoomed_200 = true    
                            if options.cropdbg == true then mp.osd_message("2 crop" ,3) end                    
                            mp.command(string.format("%s set video-scale-x %s",    command_prefix, options.scope_ratio/ratio ))
                            mp.command(string.format("%s set video-scale-y %s",    command_prefix, options.scope_ratio/ratio * options.stretch))    
                            mp.command(string.format("%s set video-align-y 0.505", command_prefix ))                        
                         end
                         
                        -- 2.2:1
                        if ratio >= 2.19 and ratio <= 2.21 and zoomed_220 == false then
                            resetZoomStatus()
                            zoomed_220 = true    
                            if options.cropdbg == true then mp.osd_message("2.2 crop" ,3) end                    
                            mp.command(string.format("%s set video-scale-x %s",    command_prefix, options.scope_ratio/ratio ))
                            mp.command(string.format("%s set video-scale-y %s",    command_prefix, options.scope_ratio/ratio * options.stretch))    
                            mp.command(string.format("%s set video-align-y 0.5",   command_prefix ))
                         end
                         
                        -- 2.3:1 and higher
                        if ratio >= 2.3 and zoomed_230 == false then    
                            resetZoomStatus()
                            zoomed_230 = true    
                            if options.cropdbg == true then mp.osd_message("2.3 crop" ,3) end                    
                            mp.command(string.format("%s set video-scale-x %s",    command_prefix, options.scope_ratio/ratio ))
                            mp.command(string.format("%s set video-scale-y %s",    command_prefix, options.scope_ratio/ratio ))        
                            mp.command(string.format("%s set video-align-y 0.5",   command_prefix ))
                        end
                         
                        if zoom16by9 == true then    
                            --16/9
                            if ratio > 1.76 and ratio < 1.783 and zoomed_177 == false then
                                resetZoomStatus()
                                zoomed_177 = true            
                                if options.cropdbg == true then mp.osd_message("16/9 crop" ,3) end
                                mp.command(string.format("%s set video-scale-x %s",  command_prefix , options.scope_ratio/ratio ))
                                mp.command(string.format("%s set video-scale-y %s",  command_prefix , options.scope_ratio/ratio * options.stretch16_9))        
                                mp.command(string.format("%s set video-align-y 0.51",command_prefix ))                         
                            end    
                            -- 1.85:1
                            if ratio > 1.845 and ratio < 1.855 and zoomed_185 == false then
                                resetZoomStatus()
                                zoomed_185 = true                
                                if options.cropdbg == true then mp.osd_message("1.85 crop" ,3) end
                                mp.command(string.format("%s set video-scale-x %s",  command_prefix , options.scope_ratio/ratio ))
                                mp.command(string.format("%s set video-scale-y %s",  command_prefix , options.scope_ratio/ratio * options.stretch16_9))        
                                mp.command(string.format("%s set video-align-y 0.51",command_prefix ))                         
                            end    
                            
                            -- ratios to reset video scaling
                            if ratio < 1.76 and isZoomed() then
                                resetZoomStatus()
                                if options.cropdbg == true then mp.osd_message("16/9 uncrop" ,3) end
                                mp.command(string.format("%s set video-scale-x 1",  command_prefix ))
                                mp.command(string.format("%s set video-scale-y 1",  command_prefix ))        
                                mp.command(string.format("%s set video-align-y 0.5",command_prefix ))                         
                            end                        
                        else                    
                            -- ratios to reset video scaling
                            if ratio < 1.89  and isZoomed() then
                                resetZoomStatus()
                                if options.cropdbg == true then mp.osd_message("16/9 uncrop" ,3) end
                                mp.command(string.format("%s set video-scale-x 1",  command_prefix ))
                                mp.command(string.format("%s set video-scale-y 1",  command_prefix ))        
                                mp.command(string.format("%s set video-align-y 0.5",command_prefix ))                         
                            end                                        
                        end    
                   end         
            end
            applied = current
        end
    end

    -- cleanup buffer
    while time_to_cleanup_buffer(buffer.time_known, new_known_ratio_timer) do
        local position = (buffer.index_total + 1) - buffer.index_known_ratio
        buffer.time_known = buffer.time_known - buffer.ordered[position][2]
        buffer.index_known_ratio = buffer.index_known_ratio - 1
    end
    local buffer_timer = new_fallback_timer
    if not fallback then buffer_timer = new_known_ratio_timer end
    local function proactive_cleanup() -- start to cleanup if too much unique meta are present
        return buffer.time_total > buffer.time_known and buffer.unique_meta > buffer.index_total *
                   (buffer_timer * options.segmentation / (buffer_timer * (1 + options.segmentation))) + 1
    end
    while time_to_cleanup_buffer(buffer.time_total, buffer_timer) or proactive_cleanup() do
        local ref = buffer.ordered[1][1]
        ref.time.buffer = ref.time.buffer - buffer.ordered[1][2]
        if stats.buffer[ref.whxy] and ref.time.buffer == 0 then
            stats.buffer[ref.whxy] = nil
            buffer.unique_meta = buffer.unique_meta - 1
        end
        buffer.time_total = buffer.time_total - buffer.ordered[1][2]
        buffer.index_total = buffer.index_total - 1
        table.remove(buffer.ordered, 1)
    end

    -- auto limit
    local b_adjust_limit = adjust_limit(current)
    last_collected = collected
    --if b_adjust_limit then 
       --remove_filter(labels.cropdetect)
        -- insert_cropdetect_filter() 
     --end
end

local function update_time_pos(_, time_pos_)
    -- time_pos_ is %.3f
    if not time_pos_ then return end

    time_pos.prev = time_pos.current
    time_pos.current = math.floor(time_pos_ * 1000)
    if not time_pos.insert then time_pos.insert = time_pos.current end

    if in_progress or not collected.whxy or not time_pos.prev or filter_inserted or seeking or paused or toggled or
        time_pos_ < options.start_delay then return end

    process_metadata("time_pos", time_pos.current)
    collectgarbage("step")
    in_progress = false
end

local function collect_metadata(_, table_)
    -- check the new metadata for availability and change
    if table_ and table_["lavfi.cropdetect.w"] and table_["lavfi.cropdetect.h"] then
        local tmp = {
            w = tonumber(table_["lavfi.cropdetect.w"]),
            h = tonumber(table_["lavfi.cropdetect.h"]),
            x = tonumber(table_["lavfi.cropdetect.x"]),
            y = tonumber(table_["lavfi.cropdetect.y"])
        }
        tmp.whxy = string.format("w=%s:h=%s:x=%s:y=%s", tmp.w, tmp.h, tmp.x, tmp.y)          
        time_pos.insert = time_pos.current
        if tmp.whxy ~= collected.whxy then
            -- use known table if exists or compute meta
            if stats.trusted[tmp.whxy] then
                collected = stats.trusted[tmp.whxy]
            elseif stats.buffer[tmp.whxy] then
                collected = stats.buffer[tmp.whxy]
            else
                collected = compute_meta(tmp)
            end
        end
        filter_inserted = false
    end
end

local function observe_main_events(observe)
    if observe then
        mp.observe_property(string.format("vf-metadata/%s", labels.cropdetect), "native", collect_metadata)
        mp.observe_property("time-pos", "number", update_time_pos)
        insert_cropdetect_filter()
    else
        mp.unobserve_property(update_time_pos)
        mp.unobserve_property(collect_metadata)
        remove_filter(labels.cropdetect)
    end
end

local function seek(name)
    print_debug(string.format("Stop by %s event.", name))
    observe_main_events(false)
    time_pos, collected = {}, {}
end

local function resume(name)
    print_debug(string.format("Resume by %s event.", name))
    observe_main_events(true)
end

local function seek_event(event, id, error)
    seeking = true
    if not paused then
        print_debug(string.format("Stop by %s event.", event["event"]))
        time_pos, collected = {}, {}
    end
end

local function resume_event(event, id, error)
    if not paused then print_debug(string.format("Resume by %s event.", event["event"])) end
    seeking = false
end

function on_toggle(auto)
    if filter_missing then
        mp.osd_message("Libavfilter cropdetect missing", 3)
        return
    end
     
     optioncode = optioncode + 1
     if optioncode == 5 then optioncode = 0 end

     if optioncode == 0 then -- auto crop enabled without 16/9 crop
        toggled = false
        zoom16by9 = false
        resume("toggle")
          if options.zoom_after_crop == true then
              if not auto then mp.osd_message(string.format("enabled cropping without 16/9 zoom"), 3) end    
          else
             if not auto then mp.osd_message(string.format("enabled cropping"), 3) end    
          end
     end
     
     if optioncode == 1 then -- disable dynamic cropping
           if is_filter_present(labels.crop) and not is_filter_present(labels.cropdetect) then
              remove_filter(labels.crop)    
              applied = source              
          end
         seek("toggle")
          resetZoomStatus()
        if not auto then mp.osd_message(string.format("dynamic cropping stopped"), 3) end
        toggled = true
     end     
     
     if optioncode == 2 then -- auto crop enabled with 16/9 crop
        toggled = false
        zoom16by9 = true
          resume("toggle")
        if not auto then mp.osd_message(string.format("enabled cropping with all zoom options"), 3) end    
     end
    
     if optioncode == 3 then -- disable dynamic cropping
           if is_filter_present(labels.crop) and not is_filter_present(labels.cropdetect) then
              remove_filter(labels.crop)    
              applied = source              
          end
          zoom16by9 = false
         seek("toggle")
          resetZoomStatus()      
        if not auto then mp.osd_message(string.format("dynamic cropping stopped"), 3) end
        toggled = true
     end
     
     if optioncode == 4 then -- disable dynamic cropping and show original aspect ratio
          if is_filter_present(labels.crop) and not is_filter_present(labels.cropdetect) then
              remove_filter(labels.crop)        
              applied = source
          end
         resetZoomStatus()
         seek("toggle")
        if not auto then mp.osd_message(string.format("aspect ratio restored"), 3) end
        toggled = true
          mp.command(string.format("%s set video-scale-x 1",  command_prefix ))
          mp.command(string.format("%s set video-scale-y 1",  command_prefix ))        
        mp.command(string.format("%s set video-align-y 0.5",command_prefix )) 
     end
    
end

local function pause(_, bool)
    if bool then
        seek("pause")
        print_debug(nil, "stats")
        paused = true
    else
        paused = false
        if not toggled then resume("unpause") end
    end
end

function cleanup()
    if not paused then print_debug(nil, "stats") end
    mp.msg.info("Cleanup.")
    -- unregister events
    observe_main_events(false)
    mp.unobserve_property(osd_size_change)
    mp.unregister_event(seek_event)
    mp.unregister_event(resume_event)
    mp.unobserve_property(pause)
     
    mp.command(string.format("%s set video-scale-x 1",  command_prefix ))
    mp.command(string.format("%s set video-scale-y 1",  command_prefix ))        
    mp.command(string.format("%s set video-align-y 0.5",command_prefix )) 
     
    -- remove existing filters
    for _, label in pairs(labels) do remove_filter(label) end
end

local function on_start()
     zoom16by9 = options.zoom16_9
     if options.zoom16_9 == true then
         optioncode = 2
    else
          optioncode = 0
     end
     
     --remove_filter(labels.crop)
    mp.msg.info("File loaded.")
    if not is_cropable() then
        mp.msg.warn("Exit, only works for videos.")
        return
    end
    -- init/re-init source, buffer, limit and other data
    local w, h = mp.get_property_number("width"), mp.get_property_number("height")
    buffer = {ordered = {}, time_total = 0, time_known = 0, index_total = 0, index_known_ratio = 0, unique_meta = 0}
    limit = {current = options.detect_limit, step = 1, up = 2}
    collected, stats = {}, {trusted = {}, buffer = {}, trusted_offset = {x = {}, y = {}}}
    source = {
        w = math.floor(w / options.detect_round) * options.detect_round,
        h = math.floor(h / options.detect_round) * options.detect_round
    }
    source.x, source.y = (w - source.w) / 2, (h - source.h) / 2
    source = compute_meta(source)
    stats.trusted_offset = {x = {source.offset.x}, y = {source.offset.y}}
    source.applied, source.time.last_seen = 1, 0
    applied, stats.trusted[source.whxy] = source, source
    time_pos.current = mp.get_property_number("time-pos")
    -- register events
    mp.observe_property("osd-dimensions", "native", osd_size_change)
    mp.register_event("seek", seek_event)
    mp.register_event("playback-restart", resume_event)
    mp.observe_property("pause", "bool", pause)
end

mp.add_key_binding("C", "toggle_crop", on_toggle)
mp.register_event("end-file", cleanup)
mp.register_event("file-loaded", on_start)

--[[
Version: 3

This script has been modified from the original dynamic_crop to include zooming/stretching of actual picture content for scope screens
you can modify the zoom/shift/crop starting line ~484

This script uses the lavfi cropdetect filter to automatically insert a crop filter with appropriate parameters for the
currently playing video, the script run continuously by default.

The workflow is as follows: We observe two main events, vf-metadata and time-pos changes.
    vf-metadata are stored sequentially in buffer with time-pos being updated at every frame,
    then process to check and store trusted values to speed up future change for the current video.
    It will automatically crop the video as soon as a meta change is validated.

Also It registers the key-binding "C" (shift+c) to control the script.
Pressing Shift + C toggles between 5 different cropping modes.

The default options can be overridden by adding script-opts-append=<script_name>-<parameter>=<value> into mpv.conf
    script-opts-append=dynamic_crop-zoom_after_crop=true
    script-opts-append=dynamic_crop-ratios=2.4 2.39 2 4/3 (quotes aren't needed like below)

List of available parameters (For default values, see <options>)：

prevent_change_mode: [0-2] - 0 any, 1 keep-largest, 2 keep-lowest - The prevent_change_timer is trigger after a change,
    to disable this, set prevent_change_timer to 0.

resize_windowed: [true/false] - False, prevents the window from being resized, but always applies cropping,
    this function always avoids the default behavior to resize the window at the source size, in windowed/maximized mode.

segmentation: % [0.0-n] e.g. 0.5 for 50% - Extra time to allow new metadata to be segmented instead of being continuous.
    By default, new_known_ratio_timer is validated with 5 sec accumulated over 7.5 sec elapsed and
    new_fallback_timer with 20 sec accumulated over 30 sec elapsed.
    to disable this, set 0.

correction: % [0.0-1] e.g. 0.6 for 60% - Size minimum of collected meta (in percent based on source), to attempt a correction.
    to disable this, set 1.
]] --
require "mp.msg"
require "mp.options"

local options = {
    -- behavior
    start_delay = 0, -- delay in seconds used to skip intro 
    stop_crop_afterstart = false, --- set to true to disable cropping after the crop after start delay has been achived
    allowed_ratios = 2, -- set to either 2 or 3, to limit the allowed cropped ratios in the video, set to 0 to disable the function
    prevent_change_timer = 0, -- seconds
    prevent_change_mode = 2, -- [0-2], disable with 'prevent_change_timer = 0'
    resize_windowed = true,
    fast_change_timer = 3, -- seconds
    new_known_ratio_timer = 1, -- seconds (auto set to 0 if allowed_ratios is 2 or 3 after all ratios have been detected)
    new_fallback_timer = 20, -- seconds, >= 'new_known_ratio_timer', disable with 0
    ratios = "2.4 2.39 2.35 2.2 2 1.85 16/9", -- list separated by space
    --ratios = "2.4 2.39 2.35 2.2 2 1.85 16/9 5/3 1.5 4/3 1.25 9/16", -- list separated by space
    ratios_extra_px = 2, -- even number, pixel added to check with the ratios list and offsets
    segmentation = 0.5, -- %, 0 will approved only a continuous metadata (strict)
    correction = 0.6, -- %, -- TODO auto value with trusted meta
    -- filter, see https://ffmpeg.org/ffmpeg-filters.html#cropdetect for details
    detect_limit = 20, -- is the maximum use, increase it slowly if lighter black are present
    detect_round = 2, -- even number
    detect_reset = 1, -- minimum 1
    detect_skip = 1, -- minimum 1, default 2 (new ffmpeg build since 12/2020)
    zoom_after_crop = true, -- zoom/stretch/move in addtion after cropping to fill the full screen (Ratios 1.9 and higher)
    zoom16_9 = false,       -- zoom/stretch/move 16:9 and 1.85:1 to your scope screen when set to true
    scope_ratio = 2.4,  -- your scope screen ratio (required for zoom_after_crop)
    stretch = 0.95, -- minor stretch for all aspect ratios below 2.3
    stretch16_9 = 0.90, -- 16/9 and 1.85:1 stretching
    cropdbg = false, -- show cropping debug outputs
    -- verbose
    debug = false
}

read_options(options)

-- forward declaration
local cleanup, on_toggle
local applied, buffer, collected, last_collected, limit, source, stats
-- label
local label_prefix = mp.get_script_name()
local labels = {
    crop = string.format("%s-crop", label_prefix),
    cropdetect = string.format("%s-cropdetect", label_prefix)
}
-- state (boolean)
local in_progress, seeking, paused, toggled, filter_missing, filter_inserted
-- option
local time_pos = {}
local prevent_change_timer = options.prevent_change_timer * 1000
local fast_change_timer = options.fast_change_timer * 1000
local new_known_ratio_timer = options.new_known_ratio_timer * 1000
local new_fallback_timer = options.new_fallback_timer * 1000
local fallback = new_fallback_timer >= new_known_ratio_timer
local cropdetect_skip = "" --string.format(":skip=%d", options.detect_skip)
local zoomed_177 = false
local zoomed_185 = false
local zoomed_190 = false
local zoomed_200 = false
local zoomed_220 = false
local zoomed_230 = false
local optioncode = 0
local zoom16by9 = false
local command_prefix = "no-osd"
local stop_crop_afterstart = false

local allowed_height1 = 0
local allowed_height2 = 0
local allowed_height3 = 0
local allowed_width1 = 0
local allowed_width2 = 0
local allowed_width3 = 0


local function setAllowedAr(h,w)
    if options.allowed_ratios == 0 then return true end    
    if h <= 0 then return false end
    if w <= 0 then return false end
    
    
    if allowed_height1 == 0 then 
        allowed_height1 = h 
        allowed_width1  = w
        if options.cropdbg == true then print(string.format("allowed ar1 set to %sx%s", w,h)) end
        return true
    end
   if allowed_height2 == 0 then 
       allowed_height2 = h 
        allowed_width2  = w
        if options.allowed_ratios == 2 then new_known_ratio_timer = 0 end
        if options.cropdbg == true then print(string.format("allowed ar2 set to %sx%s", w,h)) end
        return true
    end
    if allowed_height3 == 0 and options.allowed_ratios == 3 then 
       allowed_height3 = h 
        allowed_width3  = w
        new_known_ratio_timer = 0 
        if options.cropdbg == true then print(string.format("allowed ar3 set to %sx%s", w,h)) end
        return true
    end
    return false
end


local function isAllowedAR(h,w, strict)
   if options.allowed_ratios == 0 then 
       return true 
    end

    if h <= 0 then return false end
    if w <= 0 then return false end
    
    -- at least one dimension must be as original ?
    if allowed_height1 ~= h and allowed_width1 ~= w then
        return false
    end

    if (allowed_height1 == h and allowed_width1 == w) or (allowed_height1 == 0 and strict == false) then 
        if options.cropdbg == true then print(string.format("allowed1 %sx%s  %s %s", w,h,allowed_height1,allowed_width1)) end
       return true 
    end
   if (allowed_height2 == h and allowed_width2 == w) or (allowed_height2 == 0 and strict == false) then 
       if options.cropdbg == true then print(string.format("allowed2 %sx%s  %s %s", w,h,allowed_height2,allowed_width2)) end
       return true 
    end
    if options.allowed_ratios == 3 then
        if (allowed_height3 == h and allowed_width3 == w) or (allowed_height3 == 0 and strict == false) then 
            if options.cropdbg == true then print(string.format("allowed3 %sx%s", w,h)) end
            return true 
         end
    end
    print(string.format("not allowed %sx%s", w,h))
    return false
end


local function resetZoomStatus()
    zoomed_177 = false
    zoomed_185 = false
    zoomed_190 = false
    zoomed_200 = false
    zoomed_220 = false
    zoomed_230 = false
end

-- only relevant for 1.9:1 and higher
local function isZoomed()
    if zoomed_190 == true then return true end
    if zoomed_200 == true then return true end
    if zoomed_220 == true then return true end
    if zoomed_230 == true then return true end
    return false
end

local function is_trusted_offset(offset, axis)
    for _, v in pairs(stats.trusted_offset[axis]) do
        if math.abs(offset - v) <= options.ratios_extra_px then return true end
    end
    return false
end

local function is_filter_present(label)
    local filters = mp.get_property_native("vf")
    for _, filter in pairs(filters) do if filter["label"] == label then return true end end
    return false
end

local function is_cropable()
    for _, track in pairs(mp.get_property_native('track-list')) do
        if track.type == 'video' and track.selected then return not track.albumart end
    end
    return false
end

local function remove_filter(label)
    if is_filter_present(label) then mp.command(string.format("no-osd vf remove @%s", label)) end
end

local function insert_cropdetect_filter()
    if toggled or paused or seeking then return end
    -- "vf pre" cropdetect / "vf append" crop, in a proper order
    local function command()
        return mp.command(string.format("no-osd vf pre @%s:lavfi-cropdetect=limit=%d/255:round=%d:reset=%d%s",
                                        labels.cropdetect, limit.current, options.detect_round, options.detect_reset,
                                        cropdetect_skip))
    end
    if not command() then
        cropdetect_skip = ""
        if not command() then
            mp.msg.error("Does vf=help as #1 line in mvp.conf return libavfilter list with crop/cropdetect in log?")
            filter_missing = true
            cleanup()
            return
        end
    end
    filter_inserted = true
end

local function compute_meta(meta)
    meta.whxy = string.format("w=%s:h=%s:x=%s:y=%s", meta.w, meta.h, meta.x, meta.y)
    meta.offset = {x = meta.x - (source.w - meta.w) / 2, y = meta.y - (source.h - meta.h) / 2}
    meta.mt, meta.mb, meta.ml, meta.mr = meta.y, source.h - meta.h - meta.y, meta.x, source.w - meta.w - meta.x
    meta.is_source = meta.whxy == source.whxy
    meta.is_invalid = meta.h < 0 or meta.w < 0
    meta.is_trusted_offsets = is_trusted_offset(meta.offset.x, "x") and is_trusted_offset(meta.offset.y, "y")
    meta.time = {buffer = 0, overall = 0}
    -- check aspect ratio with the known list
    if not meta.is_invalid and meta.w >= source.w * .9 or meta.h >= source.h * .9 then
        for ratio in string.gmatch(options.ratios, "%S+%s?") do
            for a, b in string.gmatch(ratio, "(%d+)/(%d+)") do ratio = a / b end
            local height = math.floor((meta.w * 1 / ratio) + .5)
            if math.abs(height - meta.h) <= options.ratios_extra_px + 1 then -- ratios_extra_px + 1 for odd meta
                meta.is_known_ratio = true
                break
            end
        end
    end
    return meta
end

local function osd_size_change(orientation)
    local prop_maximized = mp.get_property("window-maximized")
    local prop_fullscreen = mp.get_property("fullscreen")
    local osd = mp.get_property_native("osd-dimensions")
    if prop_fullscreen == "no" then
        -- keep window width or height to avoid reset to source size when cropping
        if prop_maximized == "yes" or not options.resize_windowed then
            mp.set_property("geometry", string.format("%sx%s", osd.w, osd.h))
        else
            if orientation then
                mp.set_property("geometry", string.format("%s", osd.w))
            else
                mp.set_property("geometry", string.format("x%s", osd.h))
            end
        end
    end
end

local function print_debug(meta, type_, label)
    if options.debug then
        if type_ == "detail" then
            print(string.format("%s, %s | Offset X:%s Y:%s | limit:%s", label, meta.whxy, meta.offset.x, meta.offset.y,
                                limit.current))
        end
        if not type_ then print(meta) end
    end

    if type_ == "stats" and stats and stats.trusted then
        mp.msg.info("Meta Stats:")
        local read_maj_offset = {x = "", y = ""}
        for axis, _ in pairs(read_maj_offset) do
            for _, v in pairs(stats.trusted_offset[axis]) do
                read_maj_offset[axis] = read_maj_offset[axis] .. v .. " "
            end
        end
        mp.msg.info(string.format("Trusted Offset - X:%s| Y:%s", read_maj_offset.x, read_maj_offset.y))
        for whxy, table_ in pairs(stats.trusted) do
            if stats.trusted[whxy] then
                mp.msg.info(string.format("%s | offX=%s offY=%s | applied=%s overall=%s last_seen=%s", whxy,
                                          table_.offset.x, table_.offset.y, table_.applied, table_.time.overall / 1000,
                                          table_.time.last_seen / 1000))
            end
        end
        mp.msg.info("Buffer - total: " .. buffer.index_total,
                    buffer.time_total / 1000 .. "sec, unique_meta: " .. buffer.unique_meta .. " | known_ratio:",
                    buffer.index_known_ratio, buffer.time_known / 1000 .. "sec")
        if options.debug and stats.buffer then
            for whxy, table_ in pairs(stats.buffer) do
                mp.msg.info(string.format("- %s | offX=%s offY=%s | time.buffer=%ssec known_ratio=%s", whxy,
                                          table_.offset.x, table_.offset.y, table_.time.buffer / 1000,
                                          table_.is_known_ratio))
            end
            for pos, table_ in pairs(buffer.ordered) do
                mp.msg.info(string.format("-- %s %s", pos, table_[1].whxy))
            end
        end
    end
end

local function is_trusted_margin(whxy)
    local data = {count = 0}
    for _, axis in pairs({"mt", "mb", "ml", "mr"}) do
        data[axis] = math.abs(collected[axis] - stats.trusted[whxy][axis])
        if data[axis] == 0 then data.count = data.count + 1 end
    end
    return data
end

local function adjust_limit(meta)
    local limit_current = limit.current
    if meta.is_source then -- increase limit
        limit.change = 1
        if limit.current + limit.step * limit.up <= options.detect_limit then
            limit.current = limit.current + limit.step * limit.up
        else
            limit.current = options.detect_limit
        end
    elseif not meta.is_invalid and -- stable limit
        (last_collected == collected or last_collected and collected.w ~= nil and math.abs(collected.w - last_collected.w) <= 2 and
            math.abs(collected.h - last_collected.h) <= 2) then -- math.abs <= 2 to help stabilize odd metadata
        limit.change = 0
     elseif (allowed_height3 ~= 0 and options.allowed_ratios == 3) or (allowed_height2 ~= 0 and options.allowed_ratios ~= 0) then
           limit.change = 0
    else -- decrease limit
        limit.change = -1
        if limit.current > 0 then
            if limit.current - limit.step >= 0 then
                limit.current = limit.current - limit.step
            else
                limit.current = 0
            end
        end
    end
     limit.change = 0
    return limit_current ~= limit.current
end

local function check_stability(current_)
    local found
    if not current_.is_source and stats.trusted[current_.whxy] then
        for _, table_ in pairs(stats.trusted) do
            if current_ ~= table_ and
                (not found and table_.time.overall > current_.time.overall * 1.1 or found and table_.time.overall >
                    found.time.overall * 1.1) and math.abs(current_.w - table_.w) <= 4 and
                math.abs(current_.h - table_.h) <= 4 then found = table_ end
        end
    end
    return found
end

local function time_to_cleanup_buffer(time_1, time_2) return time_1 > time_2 * (1 + options.segmentation) end

local function process_metadata(event, time_pos_)
    in_progress = true -- prevent event race    

    local elapsed_time = time_pos_ - time_pos.insert
    print_debug(collected, "detail", "Collected")
    time_pos.insert = time_pos_

    -- init stats.buffer[whxy]
    if not stats.buffer[collected.whxy] then
        stats.buffer[collected.whxy] = collected
        buffer.unique_meta = buffer.unique_meta + 1
    end
    -- add collected meta to the buffer
    if buffer.index_total == 0 or buffer.ordered[buffer.index_total][1] ~= collected then
        table.insert(buffer.ordered, {collected, elapsed_time})
        buffer.index_total = buffer.index_total + 1
        buffer.index_known_ratio = buffer.index_known_ratio + 1
    elseif last_collected == collected then
        buffer.ordered[buffer.index_total][2] = buffer.ordered[buffer.index_total][2] + elapsed_time
    end
    collected.time.overall = collected.time.overall + elapsed_time
    collected.time.buffer = collected.time.buffer + elapsed_time
    buffer.time_total = buffer.time_total + elapsed_time
    if buffer.index_known_ratio > 0 then buffer.time_known = buffer.time_known + elapsed_time end

    -- add new offset to trusted_offset list
    if stats.buffer[collected.whxy] and fallback and collected.time.buffer >= new_fallback_timer then
        local add_new_offset = {}
        for _, axis in pairs({"x", "y"}) do
            add_new_offset[axis] = not collected.is_invalid and not is_trusted_offset(collected.offset[axis], axis)
            if add_new_offset[axis] then table.insert(stats.trusted_offset[axis], collected.offset[axis]) end
        end
    end

    -- reset last_seen before correction
    if stats.trusted[collected.whxy] and collected.time.last_seen < 0 then collected.time.last_seen = 0 end

    -- correction with trusted meta for fast change in dark/ambiguous scene
    local corrected
    if not collected.is_invalid and not stats.trusted[collected.whxy] and
        (collected.w > source.w * options.correction and collected.h > source.h * options.correction) then
        -- find closest meta already applied
        local closest, in_between = {}, false
        for whxy in pairs(stats.trusted) do
            local diff = is_trusted_margin(whxy)
            -- check if we have the same position between two sets of margin
            if closest.whxy and closest.whxy ~= whxy and diff.count == closest.count and math.abs(diff.mt - diff.mb) ==
                math.abs(closest.mt - closest.mb) and math.abs(diff.ml - diff.mr) == math.abs(closest.ml - closest.mr) then
                in_between = true
                break
            end
            if not closest.whxy and diff.count >= 2 or closest.whxy and diff.count >= closest.count and diff.mt +
                diff.mb <= closest.mt + closest.mb and diff.ml + diff.mr <= closest.ml + closest.mr then
                closest.mt, closest.mb, closest.ml, closest.mr = diff.mt, diff.mb, diff.ml, diff.mr
                closest.count, closest.whxy = diff.count, whxy
            end
        end
        -- check if the corrected data is already applied
        if closest.whxy and not in_between and closest.whxy ~= applied.whxy then
            corrected = stats.trusted[closest.whxy]
        end
    end
     
    -- use corrected metadata as main data
    local current = collected
    if corrected then current = corrected end

    -- stabilization of odd/unstable meta
    local stabilized = check_stability(current)
    if stabilized then
        current = stabilized
        print_debug(current, "detail", "\\ Stabilized")
    elseif corrected then
        print_debug(current, "detail", "\\ Corrected")
    end

    -- cycle last_seen
    for whxy, table_ in pairs(stats.trusted) do
        if whxy ~= current.whxy then
            if table_.time.last_seen > 0 then table_.time.last_seen = 0 end
            table_.time.last_seen = table_.time.last_seen - elapsed_time
        else
            if table_.time.last_seen < 0 then table_.time.last_seen = 0 end
            table_.time.last_seen = table_.time.last_seen + elapsed_time
        end
    end

    -- last check before add a new meta as trusted
    local new_ready = stats.buffer[collected.whxy] and
                          (collected.is_known_ratio and collected.time.buffer >= new_known_ratio_timer or fallback and
                              not collected.is_known_ratio and collected.time.buffer >= new_fallback_timer)
    local detect_source = current.is_source and
                              (not corrected and last_collected == collected and limit.change == 1 or
                                  current.time.last_seen >= fast_change_timer)
    local confirmation = not current.is_source and
                             (stats.trusted[current.whxy] and current.time.last_seen >= fast_change_timer or new_ready)
                                 
     local crop_filter = not collected.is_invalid and applied.whxy ~= current.whxy and
                            is_trusted_offset(current.offset.x, "x") and is_trusted_offset(current.offset.y, "y") and
                            (confirmation or detect_source)
                        
     local ratio = current.w / current.h                 
      
     --mp.osd_message(string.format("%s %sx%s %s %s %s %s %s %s",ratio,current.w,current.h,tostring(crop_filter),tostring(not collected.is_invalid),tostring(applied.whxy ~= current.whxy),tostring(is_trusted_offset(current.offset.x, "x")),tostring(is_trusted_offset(current.offset.y, "y")), tostring(confirmation or detect_source) ) ,15)                            
                        
    -- apply crop          
    if crop_filter or optioncode == 2 or applied.whxy == source.whxy then               
        local already_stable
          
          if crop_filter then
              if stats.trusted[current.whxy] then
                    current.applied = current.applied + 1
              else
                    -- add the metadata to the trusted list
                    stats.trusted[current.whxy] = current
                    current.applied, current.time.last_seen = 1, current.time.buffer
                    current.is_trusted_offsets = true
                    --if check_stability(current) then already_stable, current.applied = true, 0 end
                    already_stable = true
                    current.applied = 0 
              end
          end
          
          
        if not already_stable and isAllowedAR(current.h,current.w, false) then                            
            if not time_pos.prevent or time_pos_ >= time_pos.prevent then                    
                
                     if crop_filter then                     
                         --mp.osd_message(string.format("cropping %r %rx%r", ratio, current.w,current.h), 5)
                         osd_size_change(current.w > current.h)
                         mp.command(string.format("no-osd vf append @%s:lavfi-crop=%s", labels.crop, current.whxy))
                         print_debug(string.format("- Apply: %s", current.whxy))
                         if prevent_change_timer > 0 then
                              time_pos.prevent = nil
                              if (options.prevent_change_mode == 1 and (current.w > applied.w or current.h > applied.h) or
                                    options.prevent_change_mode == 2 and (current.w < applied.w or current.h < applied.h) or
                                    options.prevent_change_mode == 0) then
                                    time_pos.prevent = time_pos_ + prevent_change_timer
                              end
                         end    
                         setAllowedAr(current.h,current.w)
                    end                         
                                            
                    if (options.zoom_after_crop == true or zoom16by9 == true) and isAllowedAR(current.h,current.w, true) then                        
                        -- 1.9:1
                        if ratio >= 1.89 and ratio <= 1.91 and zoomed_190 == false then                    
                            resetZoomStatus()
                            zoomed_190 = true                        
                            if options.cropdbg == true then mp.osd_message("1.9 crop" ,3) end                    
                            mp.command(string.format("%s set video-scale-x %s",    command_prefix, options.scope_ratio/ratio ))
                            mp.command(string.format("%s set video-scale-y %s",    command_prefix, options.scope_ratio/ratio * options.stretch))    
                            mp.command(string.format("%s set video-align-y 0.51",  command_prefix ))
                         end    
                        
                        -- 2:1
                        if ratio >= 1.99 and ratio <= 2.01 and zoomed_200 == false then
                            resetZoomStatus()
                            zoomed_200 = true    
                            if options.cropdbg == true then mp.osd_message("2 crop" ,3) end                    
                            mp.command(string.format("%s set video-scale-x %s",    command_prefix, options.scope_ratio/ratio ))
                            mp.command(string.format("%s set video-scale-y %s",    command_prefix, options.scope_ratio/ratio * options.stretch))    
                            mp.command(string.format("%s set video-align-y 0.505", command_prefix ))                        
                         end
                         
                        -- 2.2:1
                        if ratio >= 2.19 and ratio <= 2.21 and zoomed_220 == false then
                            resetZoomStatus()
                            zoomed_220 = true    
                            if options.cropdbg == true then mp.osd_message("2.2 crop" ,3) end                    
                            mp.command(string.format("%s set video-scale-x %s",    command_prefix, options.scope_ratio/ratio ))
                            mp.command(string.format("%s set video-scale-y %s",    command_prefix, options.scope_ratio/ratio * options.stretch))    
                            mp.command(string.format("%s set video-align-y 0.5",   command_prefix ))
                         end
                         
                        -- 2.3:1 and higher
                        if ratio >= 2.3 and zoomed_230 == false then    
                            resetZoomStatus()
                            zoomed_230 = true    
                            if options.cropdbg == true then mp.osd_message(string.format("%s crop", ratio ) ,3) end                    
                            mp.command(string.format("%s set video-scale-x %s",    command_prefix, options.scope_ratio/ratio ))
                            mp.command(string.format("%s set video-scale-y %s",    command_prefix, options.scope_ratio/ratio ))        
                            mp.command(string.format("%s set video-align-y 0.5",   command_prefix ))
                        end
                         
                        if zoom16by9 == true then    
                            --16/9
                            if ratio > 1.76 and ratio < 1.783 and zoomed_177 == false and zoomed_185 == false then
                                resetZoomStatus()
                                zoomed_177 = true            
                                if options.cropdbg == true then mp.osd_message("16/9 crop" ,3) end
                                mp.command(string.format("%s set video-scale-x %s",  command_prefix , options.scope_ratio/ratio ))
                                mp.command(string.format("%s set video-scale-y %s",  command_prefix , options.scope_ratio/ratio * options.stretch16_9))        
                                mp.command(string.format("%s set video-align-y 0.51",command_prefix ))                         
                            end    
                            -- 1.85:1
                            
                            if ratio > 1.845 and ratio < 1.859 and zoomed_185 == false then
                                resetZoomStatus()
                                zoomed_185 = true                
                                if options.cropdbg == true then mp.osd_message("1.85 crop" ,3) end
                                mp.command(string.format("%s set video-scale-x %s",  command_prefix , options.scope_ratio/ratio ))
                                mp.command(string.format("%s set video-scale-y %s",  command_prefix , options.scope_ratio/ratio * options.stretch16_9))        
                                mp.command(string.format("%s set video-align-y 0.51",command_prefix ))                         
                            end    
                            
                            -- ratios to reset video scaling
                            if ratio < 1.76 and isZoomed() and crop_filter then
                                resetZoomStatus()
                                if options.cropdbg == true then mp.osd_message("16/9 uncrop" ,3) end
                                mp.command(string.format("%s set video-scale-x 1",  command_prefix ))
                                mp.command(string.format("%s set video-scale-y 1",  command_prefix ))        
                                mp.command(string.format("%s set video-align-y 0.5",command_prefix ))                         
                            end                        
                        else                    
                            -- ratios to reset video scaling
                            if ratio < 1.89  and isZoomed() then
                                resetZoomStatus()
                                if options.cropdbg == true then mp.osd_message("16/9 uncrop" ,3) end
                                mp.command(string.format("%s set video-scale-x 1",  command_prefix ))
                                mp.command(string.format("%s set video-scale-y 1",  command_prefix ))        
                                mp.command(string.format("%s set video-align-y 0.5",command_prefix ))                         
                            end                                        
                        end    
                   end
                    if stop_crop_afterstart and crop_filter then
                        on_toggle(true)
                    end                    
            end
                if crop_filter then
                    applied = current
                end
        end
    end

    -- cleanup buffer
    while time_to_cleanup_buffer(buffer.time_known, new_known_ratio_timer) do
        local position = (buffer.index_total + 1) - buffer.index_known_ratio
        buffer.time_known = buffer.time_known - buffer.ordered[position][2]
        buffer.index_known_ratio = buffer.index_known_ratio - 1
    end
    local buffer_timer = new_fallback_timer
    if not fallback then buffer_timer = new_known_ratio_timer end
    local function proactive_cleanup() -- start to cleanup if too much unique meta are present
        return buffer.time_total > buffer.time_known and buffer.unique_meta > buffer.index_total *
                   (buffer_timer * options.segmentation / (buffer_timer * (1 + options.segmentation))) + 1
    end
    while time_to_cleanup_buffer(buffer.time_total, buffer_timer) or proactive_cleanup() do
        local ref = buffer.ordered[1][1]
        ref.time.buffer = ref.time.buffer - buffer.ordered[1][2]
        if stats.buffer[ref.whxy] and ref.time.buffer == 0 then
            stats.buffer[ref.whxy] = nil
            buffer.unique_meta = buffer.unique_meta - 1
        end
        buffer.time_total = buffer.time_total - buffer.ordered[1][2]
        buffer.index_total = buffer.index_total - 1
        table.remove(buffer.ordered, 1)
    end

    -- auto limit
    local b_adjust_limit = adjust_limit(current)
    last_collected = collected
    if b_adjust_limit then 
       remove_filter(labels.cropdetect)
        insert_cropdetect_filter() 
     end
end

local function update_time_pos(_, time_pos_)
    -- time_pos_ is %.3f
    if not time_pos_ then return end

    time_pos.prev = time_pos.current
    time_pos.current = math.floor(time_pos_ * 1000)
    if not time_pos.insert then time_pos.insert = time_pos.current end

    if in_progress or not collected.whxy or not time_pos.prev or filter_inserted or seeking or paused or toggled or
        time_pos_ < options.start_delay then return end

    process_metadata("time_pos", time_pos.current)
    collectgarbage("step")
    in_progress = false
end

local function collect_metadata(_, table_)
    -- check the new metadata for availability and change
    if table_ and table_["lavfi.cropdetect.w"] and table_["lavfi.cropdetect.h"] then
        local tmp = {
            w = tonumber(table_["lavfi.cropdetect.w"]),
            h = tonumber(table_["lavfi.cropdetect.h"]),
            x = tonumber(table_["lavfi.cropdetect.x"]),
            y = tonumber(table_["lavfi.cropdetect.y"])
        }
        tmp.whxy = string.format("w=%s:h=%s:x=%s:y=%s", tmp.w, tmp.h, tmp.x, tmp.y)          
        time_pos.insert = time_pos.current
        if tmp.whxy ~= collected.whxy then
            -- use known table if exists or compute meta
            if stats.trusted[tmp.whxy] then
                collected = stats.trusted[tmp.whxy]
            elseif stats.buffer[tmp.whxy] then
                collected = stats.buffer[tmp.whxy]
            else
                collected = compute_meta(tmp)
            end
        end
        filter_inserted = false
    end
end

local function observe_main_events(observe)
    if observe then
        mp.observe_property(string.format("vf-metadata/%s", labels.cropdetect), "native", collect_metadata)
        mp.observe_property("time-pos", "number", update_time_pos)
        insert_cropdetect_filter()
    else
        mp.unobserve_property(update_time_pos)
        mp.unobserve_property(collect_metadata)
        remove_filter(labels.cropdetect)
    end
end

local function seek(name)
    print_debug(string.format("Stop by %s event.", name))
    observe_main_events(false)
    time_pos, collected = {}, {}
end

local function resume(name)
    print_debug(string.format("Resume by %s event.", name))
    observe_main_events(true)
end

local function seek_event(event, id, error)
    seeking = true
    if not paused then
        print_debug(string.format("Stop by %s event.", event["event"]))
        time_pos, collected = {}, {}
    end
end

local function resume_event(event, id, error)
    if not paused then print_debug(string.format("Resume by %s event.", event["event"])) end
    seeking = false
end

function on_toggle(auto)
    if filter_missing then
        mp.osd_message("Libavfilter cropdetect missing", 3)
        return
    end
     
     optioncode = optioncode + 1
     if optioncode == 5 then optioncode = 0 end
     
     if auto then     
         if options.zoom16_9 == true then
             optioncode = 1
         else
             optioncode = -1
         end
         -- mp.osd_message(string.format("auto stop"), 3)
         stop_crop_afterstart = false -- set this because of manual enable
     end
     
     if optioncode == 0 then -- auto crop enabled without 16/9 crop
        toggled = false
        zoom16by9 = false
        resume("toggle")
          if options.zoom_after_crop == true then
              if not auto then mp.osd_message(string.format("enabled cropping without 16/9 zoom"), 3) end    
          else
             if not auto then mp.osd_message(string.format("enabled cropping"), 3) end    
          end
     end
     
     if optioncode == 1 or optioncode == -1 then -- disable dynamic cropping
          applied = source
         seek("toggle")
          resetZoomStatus()
        if not auto then mp.osd_message(string.format("dynamic cropping stopped"), 3) end
        toggled = true
     end     
     
     if optioncode == 2 then -- auto crop enabled with 16/9 crop
        toggled = false
        zoom16by9 = true
          resume("toggle")
        if not auto then mp.osd_message(string.format("enabled cropping with all zoom options"), 3) end    
     end
    
     if optioncode == 3 then -- disable dynamic cropping
         applied = source
          zoom16by9 = false
         seek("toggle")
          resetZoomStatus()      
        if not auto then mp.osd_message(string.format("dynamic cropping stopped"), 3) end
        toggled = true
     end
     
     if optioncode == 4 then -- disable dynamic cropping and show original aspect ratio
          if is_filter_present(labels.crop) then
              remove_filter(labels.crop)        
              applied = source
          end          
         resetZoomStatus()
         seek("toggle")
        if not auto then mp.osd_message(string.format("aspect ratio restored"), 3) end
        toggled = true
          mp.command(string.format("%s set video-scale-x 1",  command_prefix ))
          mp.command(string.format("%s set video-scale-y 1",  command_prefix ))        
        mp.command(string.format("%s set video-align-y 0.5",command_prefix )) 
     end
    
end

local function pause(_, bool)
    if bool then
        seek("pause")
        print_debug(nil, "stats")
        paused = true
    else
        paused = false
        if not toggled then resume("unpause") end
    end
end

function cleanup()
    if not paused then print_debug(nil, "stats") end
    mp.msg.info("Cleanup.")
    -- unregister events
    observe_main_events(false)
    mp.unobserve_property(osd_size_change)
    mp.unregister_event(seek_event)
    mp.unregister_event(resume_event)
    mp.unobserve_property(pause)
     
    mp.command(string.format("%s set video-scale-x 1",  command_prefix ))
    mp.command(string.format("%s set video-scale-y 1",  command_prefix ))        
    mp.command(string.format("%s set video-align-y 0.5",command_prefix )) 
     
    -- remove existing filters
    for _, label in pairs(labels) do remove_filter(label) end
end

local function on_start()
     zoom16by9 = options.zoom16_9
     if options.zoom16_9 == true then
         optioncode = 2
    else
          optioncode = 0
     end
     
     stop_crop_afterstart = options.stop_crop_afterstart
     
     --remove_filter(labels.crop)
    mp.msg.info("File loaded.")
    if not is_cropable() then
        mp.msg.warn("Exit, only works for videos.")
        return
    end
    -- init/re-init source, buffer, limit and other data
    local w, h = mp.get_property_number("width"), mp.get_property_number("height")
    buffer = {ordered = {}, time_total = 0, time_known = 0, index_total = 0, index_known_ratio = 0, unique_meta = 0}
    limit = {current = options.detect_limit, step = 1, up = 2}
    collected, stats = {}, {trusted = {}, buffer = {}, trusted_offset = {x = {}, y = {}}}
    source = {
        w = math.floor(w / options.detect_round) * options.detect_round,
        h = math.floor(h / options.detect_round) * options.detect_round
    }
    source.x, source.y = (w - source.w) / 2, (h - source.h) / 2
    source = compute_meta(source)
    stats.trusted_offset = {x = {source.offset.x}, y = {source.offset.y}}
    source.applied, source.time.last_seen = 1, 0
    applied, stats.trusted[source.whxy] = source, source
    time_pos.current = mp.get_property_number("time-pos")
    -- register events
    mp.observe_property("osd-dimensions", "native", osd_size_change)
    mp.register_event("seek", seek_event)
    mp.register_event("playback-restart", resume_event)
    mp.observe_property("pause", "bool", pause)
     setAllowedAr(h,w)
end

mp.add_key_binding("C", "toggle_crop", on_toggle)
mp.register_event("end-file", cleanup)
mp.register_event("file-loaded", on_start)

require "mp.msg"
require "mp.options"

local options = {
    -- behavior
    enable = true,          -- enable or disable the functionality
    langs = "en eng de",    -- priority list to find a forced sub
}

read_options(options)

function trim(s)
   return (s:gsub("^%s*(.-)%s*$", "%1"))
end

-- just load forced subs
function control_subs()
    if options.enable == false then
        return false
    end

    for _, track in ipairs(mp.get_property_native('track-list')) do
        if track['type'] == 'sub' then            
            if track["forced"] == true or (track['title'] ~= nil and string.find(string.lower(track['title']), "forced")) then            
                for lang in string.gmatch(options.langs, "%S+%s?") do
                    if string.find(string.lower(trim(track['lang'])), trim(lang)) then
                        mp.set_property('sid', track["id"])
                        return true
                    end
                end
            end
        end
    end
     
end

mp.register_event('file-loaded', control_subs)