settings/Batch/vid2ani.cmd

@ECHO OFF
:: Description: Video to GIF/APNG/WEBP converter
:: By: MDHEXT, Nabi KaramAliZadeh, Pathduck
:: Version: 6.1
:: Url: https://github.com/Pathduck/vid2ani/
:: License: GNU General Public License v3.0 (GPLv3)
 
:: Enable delayed variable expension
SETLOCAL ENABLEDELAYEDEXPANSION
 
:: Define ANSI Colors
SET "OFF="
SET "RED="
SET "GREEN="
SET "YELLOW="
SET "BLUE="
SET "CYAN="
 
:: Check for blank input or help commands
IF "%~1"=="" GOTO :help_message
IF "%~1"=="-?" GOTO :help_message
IF "%~1"=="/?" GOTO :help_message
IF "%~1"=="--help" GOTO :help_message
 
:: Check if FFmpeg exists on PATH, if not exit
WHERE /q ffmpeg.exe || ( ECHO %RED%FFmpeg not found in PATH, please install it first%OFF% & GOTO :EOF )
 
:: Assign input and output
SET "input=%~1"
SET "output=%~n1"
 
:: Validate input file
IF NOT EXIST "%input%" (
ECHO %RED%Input file not found: !input! %OFF%
GOTO :EOF
)
 
:: Clearing input vars and setting defaults
SET "fps=15"
SET "mode=1"
SET "dither=0"
SET "scale=-1"
SET "filetype=gif"
SET "webp_lossy="
SET "webp_lossy_q=75"
SET "loglevel=error"
SET "bayerscale="
SET "colormax="
SET "start_time="
SET "end_time="
SET "crop="
SET "errorswitch="
SET "picswitch="
SET "playswitch="
 
:varin
:: Parse Arguments, first shift input one left
SHIFT
:parse_loop
IF NOT "%~1"=="" (
IF "%~1"=="-o" SET "output=%~dpn2" & SHIFT
IF "%~1"=="-t" SET "filetype=%~2" & SHIFT
IF "%~1"=="-r" SET "scale=%~2" & SHIFT
IF "%~1"=="-l" ( IF 1%2 NEQ +1%2 ( SET "webp_lossy=1"
) ELSE IF "%~2"=="" ( SET "webp_lossy=1"
) ELSE ( SET "webp_lossy=1" & SET "webp_lossy_q=%~2" & SHIFT )
)
IF "%~1"=="-f" SET "fps=%~2" & SHIFT
IF "%~1"=="-s" SET "start_time=%~2" & SHIFT
IF "%~1"=="-e" SET "end_time=%~2" & SHIFT
IF "%~1"=="-d" SET "dither=%~2" & SHIFT
IF "%~1"=="-b" SET "bayerscale=%~2" & SHIFT
IF "%~1"=="-m" SET "mode=%~2" & SHIFT
IF "%~1"=="-c" SET "colormax=%~2" & SHIFT
IF "%~1"=="-v" SET "loglevel=%~2" & SHIFT
IF "%~1"=="-x" SET "crop=%~2" & SHIFT
IF "%~1"=="-k" SET "errorswitch=1"
IF "%~1"=="-p" SET "picswitch=1"
IF "%~1"=="-y" SET "playswitch=1"
SHIFT & GOTO :parse_loop
)
 
:safchek
:: Validate if output file is set
FOR %%f IN ("%output%") DO SET "out_base=%%~nf"
IF "%output%"=="" ( ECHO %RED%Missing value for -o%OFF% & GOTO :EOF )
IF DEFINED out_base (
IF "!out_base:~0,1!"=="-" ( ECHO %RED%Missing value for -o%OFF% & GOTO :EOF )
)
 
:: Validate if output is a directory; strip trailing slash and use input filename
IF EXIST "%output%\*" (
IF "%output:~-1%"=="\" SET "output=%output:~0,-1%"
FOR %%f IN ("!input!") DO SET "filename=%%~nf"
SET "output=!output!\!filename!"
)
 
:: Validate output file extension
ECHO %filetype% | FINDSTR /R "\<gif\> \<png\> \<apng\> \<webp\>" >nul
IF ERRORLEVEL 1 (
ECHO %RED%Not a valid file type: !filetype!%OFF%
GOTO :EOF
)
IF "%filetype%"=="gif" SET "output=%output%.gif"
IF "%filetype%"=="webp" SET "output=%output%.webp"
IF "%filetype%"=="png" SET "filetype=apng"
IF "%filetype%"=="apng" SET "output=%output%.png"
 
:: Validate Palettegen
IF !mode! GTR 3 (
ECHO %RED%Not a valid palettegen ^(-m^) mode.%OFF%
GOTO :EOF
) ELSE IF !mode! LSS 1 (
ECHO %RED%Not a valid palettegen ^(-m^) mode.%OFF%
GOTO :EOF
)
 
:: Validate Dithering
IF !dither! GTR 8 (
ECHO %RED%Not a valid dither ^(-d^) algorithm.%OFF%
GOTO :EOF
) ELSE IF !dither! LSS 0 (
ECHO %RED%Not a valid dither ^(-d^) algorithm.%OFF%
GOTO :EOF
)
 
:: Validate Bayerscale
IF DEFINED bayerscale (
IF !bayerscale! GTR 5 (
ECHO %RED%Not a valid bayerscale ^(-b^) value.%OFF%
GOTO :EOF
) ELSE IF !bayerscale! LSS 0 (
ECHO %RED%Not a valid bayerscale ^(-b^) value.%OFF%
GOTO :EOF
)
IF !dither! NEQ 1 (
IF !bayerscale! LEQ 5 (
ECHO %RED%Bayerscale ^(-b^) only works with Bayer dithering.%OFF%
GOTO :EOF
)
)
)
 
:: Validate Lossy WEBP
IF DEFINED webp_lossy (
IF NOT "!filetype!"=="webp" (
ECHO %RED%Lossy ^(-l^) is only valid for filetype webp.%OFF%
GOTO :EOF
) ELSE IF !webp_lossy_q! GTR 100 (
ECHO %RED%Not a valid lossy ^(-l^) quality value.%OFF%
GOTO :EOF
) ELSE IF !webp_lossy_q! LSS 0 (
ECHO %RED%Not a valid lossy ^(-l^) quality value.%OFF%
GOTO :EOF
)
)
 
:: Validate Clipping
IF DEFINED start_time (
IF DEFINED end_time SET "trim=-ss !start_time! -to !end_time!"
IF NOT DEFINED end_time (
ECHO %RED%End time ^(-e^) is required when Start time ^(-s^) is specified.%OFF%
GOTO :EOF
)
)
IF DEFINED end_time (
IF NOT DEFINED start_time (
ECHO %RED%Start time ^(-s^) is required when End time ^(-e^) is specified.%OFF%
GOTO :EOF
)
)
 
:: Validate Framerate
IF DEFINED fps (
IF !fps! LSS 0 (
ECHO %RED%Framerate ^(-f^) must be greater than 0.%OFF%
GOTO :EOF
)
)
 
:: Validate Max Colors
IF DEFINED colormax (
IF !colormax! GTR 256 (
ECHO %RED%Max colors ^(-c^) must be between 3 and 256.%OFF%
GOTO :EOF
)
IF !colormax! LSS 3 (
ECHO %RED%Max colors ^(-c^) must be between 3 and 256.%OFF%
GOTO :EOF
)
)
 
:script_start
:: Setting the path to working directory and creating it
SET WD=%TEMP%\vid2ani-%random%
MD "%WD%"
 
:palettegen
:: Putting together command to generate palette
SET palette=%WD%\palette_%%05d.png
SET "filters=fps=%fps%"
IF DEFINED crop ( SET "filters=%filters%,crop=%crop%" )
SET "filters=%filters%,scale=%scale%:-1:flags=lanczos"
 
:: FFplay preview
IF DEFINED playswitch (
:: Check if ffplay exists on PATH, if not exit
WHERE /q ffplay.exe || ( ECHO %RED%FFplay not found in PATH, please install it first%OFF% & GOTO :EOF )
 
FOR /F "delims=" %%a in ('ffplay -version') DO (
IF NOT DEFINED ffplay_version ( SET "ffplay_version=%%a"
) ELSE IF NOT DEFINED ffplay_build ( SET "ffplay_build=%%a" )
)
ECHO %YELLOW%!ffplay_version!%OFF%
ECHO %YELLOW%!ffplay_build!%OFF%
 
IF NOT DEFINED start_time SET "start_time=0"
IF NOT DEFINED end_time SET "end_time=3"
ffplay -v %loglevel% -i "%input%" -vf "%filters%" -an -loop 0 -ss !start_time! -t !end_time!
GOTO :EOF
)
 
:: APNG muxer does not support multiple palettes, fallback to palettegen diff mode
IF "%filetype%"=="apng" (
IF !mode! EQU 2 (
ECHO %YELLOW%APNG does not support multiple palettes, falling back to Palettegen mode 1 ^(diff^).%OFF%
SET mode=1
)
)
 
:: Palettegen encode mode
IF !mode! EQU 1 SET "encode=palettegen=stats_mode=diff"
IF !mode! EQU 2 SET "encode=palettegen=stats_mode=single"
IF !mode! EQU 3 SET "encode=palettegen"
 
:: Max colors
IF DEFINED colormax (
IF !mode! LEQ 2 SET "mcol=:max_colors=!colormax!"
IF !mode! EQU 3 SET "mcol==max_colors=!colormax!"
)
 
:: Storing FFmpeg version string
FOR /F "delims=" %%a in ('ffmpeg -version') DO (
IF NOT DEFINED ffmpeg_version ( SET "ffmpeg_version=%%a"
) ELSE IF NOT DEFINED ffmpeg_build ( SET "ffmpeg_build=%%a" )
)
 
:: Displaying FFmpeg version string and output file
ECHO %YELLOW%!ffmpeg_version!%OFF%
ECHO %YELLOW%!ffmpeg_build!%OFF%
ECHO %GREEN%Output file:%OFF% !output!
 
:: Executing command to generate palette
ECHO %GREEN%Generating palette...%OFF%
ffmpeg -v %loglevel% %trim% -i "%input%" -vf "%filters%,%encode%%mcol%" -y "%palette%"
 
:: Checking if the palette file is in the Working Directory, if not cleaning up
IF NOT EXIST "%WD%\palette_00001.png" (
ECHO %RED%Palette generation failed: !palette! not found.%OFF%
GOTO :cleanup
)
 
:: Setting variables to put the encode command together
 
:: Palettegen decode mode
IF !mode! EQU 1 SET "decode=paletteuse"
IF !mode! EQU 2 SET "decode=paletteuse=new=1"
IF !mode! EQU 3 SET "decode=paletteuse"
 
:: Error diffusion
IF DEFINED errorswitch (
IF !mode! EQU 1 SET "errordiff==diff_mode=rectangle"
IF !mode! EQU 2 SET "errordiff=:diff_mode=rectangle"
IF !mode! EQU 3 SET "errordiff==diff_mode=rectangle"
)
 
:: Prepare dithering and encoding options
IF !dither! EQU 0 SET "ditheralg=none"
IF !dither! EQU 1 SET "ditheralg=bayer"
IF !dither! EQU 2 SET "ditheralg=heckbert"
IF !dither! EQU 3 SET "ditheralg=floyd_steinberg"
IF !dither! EQU 4 SET "ditheralg=sierra2"
IF !dither! EQU 5 SET "ditheralg=sierra2_4a"
IF !dither! EQU 6 SET "ditheralg=sierra3"
IF !dither! EQU 7 SET "ditheralg=burkes"
IF !dither! EQU 8 SET "ditheralg=atkinson"
 
:: Paletteuse error diffusion
IF NOT !mode! EQU 2 (
IF DEFINED errorswitch SET "ditherenc=:dither=!ditheralg!"
IF NOT DEFINED errorswitch SET "ditherenc==dither=!ditheralg!"
) ELSE SET "ditherenc=:dither=!ditheralg!"
 
:: Checking for Bayer Scale and adjusting command
IF NOT DEFINED bayerscale SET "bayer="
IF DEFINED bayerscale SET "bayer=:bayer_scale=%bayerscale%"
 
:: WEBP pixel format and lossy quality
IF "%filetype%"=="webp" (
IF DEFINED webp_lossy (
SET "type_opts=-lossless 0 -pix_fmt yuva420p -quality !webp_lossy_q!"
) ELSE SET "type_opts=-lossless 1"
)
 
:: Executing the encoding command
ECHO %GREEN%Encoding animation...%OFF%
ffmpeg -v %loglevel% %trim% -i "%input%" -thread_queue_size 512 -i "%palette%" ^
-lavfi "%filters% [x]; [x][1:v] %decode%%errordiff%%ditherenc%%bayer%" ^
-f %filetype% %type_opts% -loop 0 -plays 0 -y "%output%"
 
:: Checking if file was created and cleaning up if not
IF NOT EXIST "%output%" (
ECHO %RED%Failed to generate animation: !output! not found.%OFF%
GOTO :cleanup
)
 
:: Open output file if picswitch is set
IF DEFINED picswitch START "" "%output%"
 
:cleanup
:: Cleaning up
RMDIR /S /Q "%WD%"
ECHO %GREEN%Done.%OFF%
ENDLOCAL
GOTO :EOF
 
:help_message
:: Print usage message
ECHO %GREEN%Video to GIF/APNG/WEBP converter v6.1%OFF%
ECHO %BLUE%By MDHEXT, Nabi KaramAliZadeh, Pathduck%OFF%
ECHO:
ECHO %GREEN%Usage:%OFF%
ECHO %~n0 [input_file] [arguments]
ECHO:
ECHO %GREEN%Arguments:%OFF%
ECHO -o Output file. Default is the same as input file, sans extension
ECHO -t Output file type: 'gif' (default), 'apng', 'png', 'webp'
ECHO -r Resize output width in pixels. Default is original input size
ECHO -l Enable lossy WebP compression and quality, range 0-100 (default 75)
ECHO -f Framerate in frames per seconds (default 15)
ECHO -c Maximum colors usable per palette, range 3-256 (default 256)
ECHO -s Start time of the animation (HH:MM:SS.MS)
ECHO -e End time of the animation (HH:MM:SS.MS)
ECHO -x Crop the input video (out_w:out_h:x:y)
ECHO Note that cropping occurs before output is scaled
ECHO -d Dithering algorithm to be used (default 0)
ECHO -b Bayer Scale setting, range 0-5 (default 2)
ECHO -m Palettegen mode: 1 (diff, default), 2 (single), 3 (full)
ECHO -k Enables paletteuse error diffusion
ECHO -y Preview animation using FFplay (part of FFmpeg)
ECHO Useful for testing cropping, but will not use exact start/end time
ECHO -p Opens the resulting animation in the default image viewer
ECHO -v Set FFmpeg log level (default: error)
ECHO:
ECHO %GREEN%Dithering Algorithms:%OFF%
ECHO 0: None
ECHO 1: Bayer
ECHO 2: Heckbert
ECHO 3: Floyd Steinberg
ECHO 4: Sierra2
ECHO 5: Sierra2_4a
ECHO 6: Sierra3
ECHO 7: Burkes
ECHO 8: Atkinson
ECHO:
ECHO %GREEN%Palettegen Modes:%OFF%
ECHO 1: diff - only what moves affects the palette
ECHO 2: single - one palette per frame
ECHO 3: full - one palette for the whole animation
ECHO:
ECHO %GREEN%About Bayerscale:%OFF%
ECHO When bayer dithering is selected, the Bayer Scale option defines the
ECHO scale of the pattern (how much the crosshatch pattern is visible).
ECHO A low value means more visible pattern for less banding, a higher value
ECHO means less visible pattern at the cost of more banding.
ECHO:
ECHO %GREEN%People who made this project come to fruition:%OFF%
ECHO ubitux, Nabi KaramAliZadeh, MDHEXT, Pathduck
ECHO Along with the very kind and patient people in the Batch Discord Server.
ECHO Without these people's contributions, this script would not be possible.
ECHO Thank you all for your contributions and assistance^^!
GOTO :EOF