181号Information

(!)
自宅設置サーバーのHDDがトんじゃったので,現在復旧作業中です...
Diary>34[35]38
CONTENTS

じゆうちょう

35 Script-Fuとバッチでxcfからpngへ一括変換 スクリプト 2009-12-27 09:02:23
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!"
 
Diary>34[35]38