Home About
GIMP , Scheme

GIMP Script-Fu JPEG としてエクスポートする

GIMP Script-Fu を使って 所定のディレクトリ内にある xcf ファイルを png にバッチ変換するというエントリーの追伸です。

PNG形式ではなく JPEG形式で出力する必要が生じたのでそれようのコードを書きました。

JPEG形式で保存するようにする関数 toJPEG

png として保存(以前書いたもの)

(define (toPNG f)
  (let* (
    (pngf (string-append
      (substring f 0 (- (string-length f) (string-length ".xcf")))
      ".png"))
    (image (car (gimp-file-load RUN-NONINTERACTIVE f f)))
    (layer (car (gimp-image-merge-visible-layers image CLIP-TO-IMAGE)))
  )
  (gimp-file-save RUN-NONINTERACTIVE image layer pngf pngf)
  (gimp-image-delete image)
  (print pngf)))

toPNG xcfファイル名 することでその xcf ファイルの拡張子を png にして、 そのファイルに PNG 画像を保存する関数です。

PNG ではなく JPEG したい場合、要となるのはこの部分:

  (gimp-file-save RUN-NONINTERACTIVE image layer pngf pngf)

GIMPでは save as するときに指定するの拡張子でその画像形式として保存するルール。 当時は PNG として保存したかったので、ファイル名の末尾を .png にしていますが、 今回は JPEG にしたいのでファイル名の末尾を .jpg にします。

それではこの方針で toJPEG 関数を用意します。

(define (toJPEG f)
  (let* (
    (jpgf (string-append
      (substring f 0 (- (string-length f) (string-length ".xcf")))
      ".jpg"))
    (image (car (gimp-file-load RUN-NONINTERACTIVE f f)))
    (layer (car (gimp-image-merge-visible-layers image CLIP-TO-IMAGE)))
  )
  (gimp-file-save RUN-NONINTERACTIVE image layer jpgf jpgf)
  (gimp-image-delete image)
  (print jpgf)))

ほぼ s/png/jpg/g しただけではある。

toJPEG 関数を使うコード

(let (
    (filelist (cadr (file-glob "xcf/*.xcf" 1)))
  )
  (for-each (lambda (f) (toJPEG f)) filelist))

カレントディレクトリ以下の xcf/ ディレクトリの中にある xcf ファイルを全部見つけてきて filelist を作成、それを for-each して順に一つのファイルずつ toJPEG 関数に適用しているだけです。

コマンドラインから Script-Fu を実行

現在のディレクトリ以下はこのような状態になっていることを想定。

.
├── main.scm
└── xcf
    ├── 1.xcf
    └── 2.xcf

main.scm に Script-Fu のコードがあり、これをコマンドラインから実行するには次のようにします。

$ cat main.scm | gimp -n -i -b -

ただ、今回 macOS 上で実行しようとしたら gimp コマンドがないという問題に遭遇。 これは単純に フルパスで gimp コマンドへのパスを指定すればOKです。

このように:

$ cat main.scm | /Applications/GIMP-2.10.app/Contents/MacOS/gimp -n -i -b -

何度も実行するので毎回フルパス指定したくなければ、 たとえば gimp 環境変数を設定して:

$ export gimp=/Applications/GIMP-2.10.app/Contents/MacOS/gimp

その上で次のように実行する:

$ cat main.scm | ${gimp}  -n -i -b -

または単純に run.sh などにシェルスクリプトを書いてしまえばよい。

#!/bin/bash
gimp=/Applications/GIMP-2.10.app/Contents/MacOS/gimp
cat main.scm | ${gimp} -n -i -b -

まとめ

完成した 複数の xcf ファイルを JPEG 画像として保存するスクリプト main.scm:

(define (toJPEG f)
  (let* (
    (jpgf (string-append
      (substring f 0 (- (string-length f) (string-length ".xcf")))
      ".jpg"))
    (image (car (gimp-file-load RUN-NONINTERACTIVE f f)))
    (layer (car (gimp-image-merge-visible-layers image CLIP-TO-IMAGE)))
  )
  (gimp-file-save RUN-NONINTERACTIVE image layer jpgf jpgf)
  (gimp-image-delete image)
  (print jpgf)))

(let (
    (filelist (cadr (file-glob "xcf/*.xcf" 1)))
  )
  (for-each (lambda (f) (toJPEG f)) filelist))
;  (for-each (lambda (f) (toPNG f)) filelist))
(gimp-quit 0)

scheme 流行ればいいのに。

Liked some of this entry? Buy me a coffee, please.