Как массово разбить гифки на 4-5 img-картинки? :: Графика

Hjkma
вот, набросал.. путь через одно место, так как не пишу используя batch, но сдается мне что есть кое что лучше
script.bat

Код:

@echo off

setlocal enabledelayedexpansion
set path=D:\portable\ImageMagick;%path%
set tmpFolder=tmp\
set /a keepFiles=4
REM к сожалению batch оперирует только с целыми числами, поэтому придется использовать кое что
set JScall=Cscript /nologo eval.vbs

for %%f in (gifs\*.gif) do (
REM очищаем временную папку
del %tmpFolder%*.png /s /f /q >nul 2>&1
REM распаковываем gif файл покадрово в нее
convert -coalesce "%%f" %tmpFolder%frame-%%03d.png
REM подсчитываем и удаляем ненужные файлы
set cnt=0
for %%a in (%tmpFolder%*.png) do set /a cnt+=1
for /f "delims=" %%a in ('%JScall% "Int(!cnt!/%keepFiles%)"') do @set /a step=%%a
REM шаг для кадров содержится в переменной %step%, удаляем все остальные файлы
set cnt=!step!
for %%a in (%tmpFolder%*.png) do (
if !cnt! neq !step! (
      del %%a
      ) else (
      set /a cnt=-1
      )
set /a cnt+=1
)
REM объединяем файлы обратно
for %%a in (%%f) do set filename=%%~nxa
convert -delay 20 "%tmpFolder%*.png" "gifs2\!filename!"
)
endlocal

в той же папке файл eval.vbs

Код:

WScript.Echo Eval(WScript.Arguments(0))

Путь "D:\portable\ImageMagick" - пусть к скаченной ImageMagick (бесплатная утилита с командной строкой)
http://www.imagemagick.org/script/binary-releases.php#windows

Оригинальные гифы в папке gifs, результат будет в папке gifs2 (создать изначально), ну и нужно создать временную папку tmp.

Да, тут сбивается задержка между кадрами, так как ставится фиксированная вручную -delay 20 и размер конечного гифа будет немаленький, так как кадры сохраняются целиком, а не только изменения.

Но есть еще вот, думаю ею можно сделать короче и быстрее
http://www.lcdf.org/gifsicle/

как пример (Было - стало)

Модерирует : Ausw
Версия для печати • Подписаться • Добавить в закладки