:: ==============================================
:: Батник создания Proxy-файлов для VEGAS Pro 21.0 (и других версий)
:: Проверено по данным с камеры DJI Osmo Action 5 Pro и дрона Fimi X8 Mini
:: Для работы нужно установить ютилиту FFmpeg - https://ffmpeg.org/download.html
:: (c) Arigato Software, 2025
:: ==============================================

@echo off
setlocal enabledelayedexpansion

:: ==============================================
:: Конфигурация
:: ==============================================
:: Расширение прокси-файлов
set PROXY_EXT=MP4.sfvp0
:: Битрейт прокси
set BITRATE=12M
:: Ширина прокси
set WIDTH=1280
:: Высота прокси
set HEIGHT=720
:: GPU-ускорение (NVIDIA=cuda, AMD=amf, INTEL=qsv, CPU=пусто)
set GPU_ACCEL=cuda
:: Включение аудио в прокси (1=вкл, 0=выкл, для Vegas выкл!)
set INCLUDE_AUDIO=0

:: ==============================================
:: Обработка файлов *.LRV и *.LRF
:: ==============================================
echo [INFO] Create proxy files

:: Применяем параметры
if not "!GPU_ACCEL!"=="" set "GPU_ACCEL=-hwaccel !GPU_ACCEL!"
if !INCLUDE_AUDIO! equ 1 (
	set "INCLUDE_AUDIO=-c:a aac -b:a 128k"
) else (
	set "INCLUDE_AUDIO=-an"
)

:: Перебор всех .LRV и .LRF-файлов
for %%i in (*.LRV *.LRF) do (
	set "source_filename=%%~ni.MP4"
	set "proxy_filename=%%~ni.%PROXY_EXT%"
	echo !source_filename!
	
	:: Определяем FPS оригинала
	call :get_fps "!source_filename!" source_fps
	echo FPS: !source_fps!
	
	:: Получаем количество кадров
	call :frames "!source_filename!" frames
	echo Frames: !frames!
	
	:: Определяем поворот
	call :rotation "%%i" rotation_degrees
	if !rotation_degrees! neq 0 (
		echo Rotation: !rotation_degrees!
	)
	
	:: Выбираем фильтр поворота
	set "vf_rotate="
	if !rotation_degrees! equ 90 set "vf_rotate=transpose=1,"
	if !rotation_degrees! equ 180 set "vf_rotate=transpose=1,transpose=1,"
	if !rotation_degrees! equ 270 set "vf_rotate=transpose=2,"
	
	:: Запускаем кодирование
	start "!source_filename!" ffmpeg !GPU_ACCEL! -i "%%i" -y -c:v mpeg2video ^
		-b:v %BITRATE% ^
		!INCLUDE_AUDIO! ^
		-vf "!vf_rotate!scale=%WIDTH%:%HEIGHT%:force_original_aspect_ratio=decrease,setsar=1,fps=!source_fps!" ^
		-f mp4 -r !source_fps! ^
		-movflags faststart -timecode "00:00:00:00" ^
		-fps_mode cfr -frames:v !frames! ^
		"!proxy_filename!"
)

:: ==============================================
:: Завершение работы
:: ==============================================
echo [SUCCESS] OK
rem pause
exit /b 0

:: ==============================================
:: Функция определения количества кадров
:: %1 - файл, %2 - выходная переменная
:: ==============================================
:frames
setlocal
set "frames=0"
for /f %%f in (
	'ffprobe -v error -select_streams v:0 -show_entries stream^=nb_frames -of default^=nokey^=1:noprint_wrappers^=1 "%~1" 2^>^&1'
) do set "frames=%%f"
endlocal & set "%~2=%frames%"
exit /b 0

:: ==============================================
:: Функция определения поворота видео
:: %1 - файл, %2 - выходная переменная
:: ==============================================
:rotation
setlocal
set "rot=0"
for /f "tokens=2 delims==" %%r in (
	'ffprobe -v error -select_streams v:0 -show_entries stream_side_data^=rotation -of default^=nw^=1 "%~1"'
) do set "rot=%%r"

:: Нормализация отрицательных значений
if "!rot!"=="-90" set "rot=270"
if "!rot!"=="-180" set "rot=180"
if "!rot!"=="-270" set "rot=90"
endlocal & set "%~2=%rot%"
exit /b 0

:: ==============================================
:: Функция определения частоты кадров видео
:: %1 - файл, %2 - выходная переменная
:: Возвращает fps в формате "60000/1001" (59.94) или "30/1" (30.0)
:: ==============================================
:get_fps
setlocal
set "fps_value=0/0"
for /f "tokens=2 delims==" %%f in (
    'ffprobe -v error -select_streams v:0 -show_entries stream^=r_frame_rate -of default^=nw^=1 "%~1"'
) do (
    set "fps_value=%%f"
    :: Удаляем возможные кавычки
    set "fps_value=!fps_value:"=!"
)
endlocal & set "%~2=%fps_value%"
exit /b 0