Script-Fuとバッチでxcfからpngへ一括変換
何を思ったかGIMPで伺かのsurfaceを描いてしまったので,
PSDのように一括でpng変換できなくて不便!
というわけで,xcf->pngの一括変換の巻ー
おもにこちら
の劣化コピーとなっております.ありがとうございます.
;; xcf2png.scm
(define (xcf2png inFile outFile)
; Load an img
(let*
(
(img (car (gimp-file-load 0 inFile inFile)))
(drawable (car (gimp-image-active-drawable img)))
)
(gimp-image-merge-visible-layers img 0)
(set! drawable (car (gimp-image-active-drawable img)))
(file-png-save-defaults 1 img drawable outFile outFile)
)
)
; Register our script with script-fu.
(script-fu-register "xcf2png"
"<Toolbox>/Xtns/Script-Fu/Tutorials/xcf2png"
"Converts a xcf file to png"
""
""
"0000"
""
SF-VALUE "Infile" "\"\""
SF-VALUE "Outfile" "\"\""
)
あと,実行用のバッチファイル
setlocal enabledelayedexpansion
echo OFF
set a=
for %%i in (*.xcf) do (
set a= !a! (xcf2png _body_quot;%%i_body_quot; _body_quot;%%i_.png_body_quot;^)
)
set a= !a! (gimp-quit 0)
echo "!a!"
start c:\programs\GIMP-2.0\bin\gimp-2.6.exe -i -b "!a!"
|