「Script-Fu」の版間の差分

2022年3月16日 (水) 07:33時点における版

イメージ処理ソフト GIMP の Scheme ベース(GIMP 2.4 以降は TinyScheme ベースらしい ) なカスタマイズ言語で 2.0 からサポートされている。オフィシャルなドキュメントはここ

GIMP内から記述して実行する場合は、メニューのフィルターに"Script-Fuコンソール" っていうのがあるのでそれを実行して入力してく。（Script-Fu で使えるプロシージャの内容を調べるのにも使える。）
ファイルに記述して実行する場合、ファイルの拡張子は .scm のテキストファイル。
gimp の exe に引数で渡してバッチで実行もできる。

スクリプトのデフォルトの場所

Script-Fu のスクリプトファイルは、$HOME/.gimp-2.x/scripts.フォルダーで検索される。 Windowsでは、%HOME% の環境変数が設定されていない場合、 %USERPROFILE%.gimp-2.x\scripts で検索される。

スクリプトのバッチ実行

Windowsの場合：

start gimp-2.2.exe -d -i -b  "(command-1 param-1 param2...)" "(gimp-quit 0)"

通常、最後のコマンド（スクリプトをバッチ実行する場合）は（gimp-quit 0）。

オプション
- -b ：バッチ。 command- n ...command - 非対話的に実行。
- -i ：ユーザーインターフェイスなしで実行。
- -d ：パターン、グラデーション、パレット、またはブラシをロードしない。起動時間が早くなる。
- -f ：フォントをロードしない。テキスト機能は使用できなくなるけど起動が早くなる。

引数

文字列を渡すには、文字列を引用符で囲む必要がある。

start gimp-2.2.exe -i -b "(command-1 \"my string to be passed to command-1\")"

Gimpはパス名のスラッシュを理解して変換するので、以下のようなことが可能。

start gimp-2.2.exe -i -b "(command-1 \"c:/temp/some_file.gif\")"

 ; 例：フォルダ内のファイルを開いてアンシャープマスクをかけて保存する関数を実行する場合
 ; スクリプトファイルは、simple-unsharp-mask.scm ファイルにして gimp の /scripts フォルダに保存しておく
 (define (batch-unsharp-mask pattern radius amount threshold) 
   (let* 
     ((filelist (cadr (file-glob pattern 1)))) 
     (while (not (null? filelist)) 
       (let* 
         (
           (filename (car filelist)) 
           (image (car (gimp-file-load RUN-NONINTERACTIVE filename filename))) 
           (drawable (car (gimp-image-get-active-layer image)))
         ) 
         (plug-in-unsharp-mask RUN-NONINTERACTIVE image drawable radius amount threshold) 
         (gimp-file-save RUN-NONINTERACTIVE image drawable filename filename) 
         (gimp-image-delete image)) 
         (set! filelist (cdr filelist))
     )
   )
 )
 
 ; で、コマンドライン的には以下のような感じで実行する。.png ファイルを対象。
 c:\gimp\gimp-2.10.exe -d -f -i -b '(batch-unsharp-mask "*.png" 5.0 0.5 0)' -b '(gimp-quit 0)'

関数や変数

ぶっちゃけ資料なさすぎて使わせる気無いだろ！とか思いつつ、Scheme ベースなので、Scheme の資料を当たればいい。 Scheme の基礎的な関数を使いつつ、GIMP のプロシージャと組み合わせて書いていく感じ？

Scheme の関数例

+
-
/
*
sin
cos
tan
atan
floor
sqrt

 ; 変数をa,b を宣言して和を出す例
 (let* ((a 1) (b 2))
   (+ a b)
 )
 
 ; 関数 AddXY を inX inY の引数がある形で定義した例
 (define (AddXY inX inY) (+ inX inY) )
 
 ; 関数をGIMPに登録する例
  (script-fu-register
    "script-fu-text-box"                        ; 関数名
    "Text Box"                                  ; メニューラベル
    "Creates a simple text box, sized to fit\
      around the user's choice of text,\
      font, font size, and color."              ; 概要説明
    "Michael Terry"                             ; 作者
    "copyright 1997, Michael Terry;\
      2009, the GIMP Documentation Team"        ; 権利
    "October 27, 1997"                          ; 作成日
    ""                     ; スクリプトが動作するイメージタイプ
    SF-STRING      "Text"          "Text Box"   ; 文字列変数
    SF-FONT        "Font"          "Charter"    ; フォント変数
    SF-ADJUSTMENT  "Font size"     '(50 1 1000 1 10 0 1)
                                                ; スピンボタン
    SF-COLOR       "Color"         '(0 0 0)     ; 色変数
  )
  (script-fu-menu-register "script-fu-text-box" "<Image>/File/Create/Text")

プロシージャ一覧

@@ 16行目: / 16行目: @@
 == スクリプトのバッチ実行 ==
 Windowsの場合：
-  start gimp-2.2.exe -d -i -b  "(command-1 param-1 param2...") "(gimp-quit 0)"
+  start gimp-2.2.exe -d -i -b  "(command-1 param-1 param2...)" "(gimp-quit 0)"
 通常、最後のコマンド（スクリプトをバッチ実行する場合）は （gimp-quit 0）。
@@ 24行目: / 24行目: @@
 ** -i ：ユーザーインターフェイスなしで実行。
 ** -d ：パターン、グラデーション、パレット、またはブラシをロードしない。 起動時間が早くなる。
 ** -f ：フォントをロードしない。テキスト機能は使用できなくなるけど起動が早くなる。
 == 引数 ==