GIMP - Script-Fu

GIMP のマクロと言えば良いのか？
LISP(Scheme) でガシガシ画像処理

参考になるページ

GIMP (GNU 画像編集プログラム)
- 第12章 GIMPスクリプト
GIMPユーザーズマニュアル
- マイクテリーのScript-Fu黒帯道場
The GIMP User Manual 日本語版 v1.0.0
- 38.Script-Fu を書こう
Gimp wiki / Script-Fu 青空教室
Script-Fu 青空教室
Gimp Script-Fu 実践
漫画ねた帳ＦＸ / Script-Fu
Gimpのscript-fuの作成方法編集する
anobota / Script-Fu
Gimp2.6 スクリプトについてのランダムメモ
Script-fu Tutorial

配置

GIMP 2.6 だとホームディレクトリ以下 ~/.gimp-2.6/scripts/ に、拡張子 .scm としたファイルを配置すれば良い。
起動時に読み込まれるので、スクリプトの修正をして再読み込みさせたい場合「フィルタ」→「Script-Fu」→「スクリプトを再読み込み」すると良い。

デバッグ

スクリプト中に

(tracing TRUE)

と記述しておくと、「ウインド」→「ドッキング可能なダイアログ」→「エラーコンソール」へトレース情報が表示される。
エラーコンソールへの直接出力は gimp-message 関数で行えるが、これは STRING 限定。

手続き write, display 等を使えば外部表現を確認できるのだが、これは output-port が必要。
「フィルタ」→「Script-Fu」→「Script-Fu コンソール」から実行すると Script-Fu コンソールが標準出力(current-output-port)になる。
エラーコンソールを意味する output-port が分かればよいのだが、見つからない。

プログラミングGaucheの練習問題(オブジェクト-外部表現文字列変換）の例にあるように、手続き call-with-output-string が使えれば外部表現を文字列として得ることが出来るのだが、少なくとも GIMP2.6 の Script-Fu では手続き call-with-output-string が使えない。

SLIB から strport.scm を持ってくれば、テンポラリファイルを経由した形で実装された手続き call-with-output-string が使えそう。ただしこれには Template.scm で定義されてる手続き tmpnam が必要。しかし、手続き tmpname で必要な手続き getenv がないのでこれをどうにかしないと駄目だったりとか。

以前、以下のスレで、まさにそういう質問してる人を見つけたが華麗にスルーされてたりとか

GIMP Part18

26：名無しさん＠お腹いっぱい。：2009/02/07(土) 02:11:39 ID:fZSVayOY0
    script-fu で rubyの p　みたいなことできないかな。

    display で表示される文字列を gimp-message に
    投げれれば解決だと思うんだが、やり方がわからん。

    みんなどうやってscript-fu のデバッグしてるの？
    解説サイト見ても”初めの第一歩”的なことしかかいてないみたいだし。

いろいろ探してみると
Gimp2.6で使える関数
辺りに、手続き open-output-string があるけど get-output-string ないので書き出したのに取り出せないって。むぅ。
独習 Scheme 三週間/7.4 文字列ポート
にも get-output-string で取り出せと書いてあるのだが、
いろいろ試してみたところ、以下の方法でいける模様。

writetostring.scm

(define (write-to-string v . opts)
        (if (< 1 (length opts)) (error "write-to-string: needs most 2 argument(s)"))
        (let*
            (
             (n (if (< 0 (length opts)) (car opts) 1024))
             (s (make-string n (integer->char 0)))
             (o (open-output-string s))
             (l1 0)
             (l2 0)
             )
          (write v o)
          (set! l1 (string-length s))
          (write "." o)
          (set! l2 (string-length s))
          (close-output-port o)
          (if (< l1 l2)
              (substring s 0 l1)
              (write-to-string v (* n 2))
              )
          ))

つまり open-output-string で与えた変数をそのまま読めば良いようだが write した結果が初期状態で与えた文字列の長さを越えた部分は切れてしまう模様。これはちょっと悩ましい。

習作

Round Edge for Windows 7

refw7.scm

(define (script-fu-refw7 image drawable)
        (let*
            (
             (w (car (gimp-drawable-width  drawable)))
             (h (car (gimp-drawable-height drawable)))
             )
          (gimp-image-undo-group-start image)
          (gimp-layer-add-alpha drawable)
          
          (gimp-rect-select image 5 0 (- w 10)    h     CHANNEL-OP-REPLACE  FALSE 0)
          (gimp-rect-select image 3 1 (- w  6) (- h  2) CHANNEL-OP-ADD      FALSE 0)
          (gimp-rect-select image 2 2 (- w  4) (- h  4) CHANNEL-OP-ADD      FALSE 0)
          (gimp-rect-select image 1 3 (- w  2) (- h  6) CHANNEL-OP-ADD      FALSE 0)
          (gimp-rect-select image 0 5    w     (- h 10) CHANNEL-OP-ADD      FALSE 0)
          (gimp-selection-invert image)
          
          (gimp-edit-clear drawable)
          (gimp-selection-invert image)
          
          (gimp-displays-flush)
          (gimp-image-undo-group-end image)
          )
        );end of define

(script-fu-register
    "script-fu-refw7"              ;Script name
    "<Image>/Filters/refw7"        ;Menu
    "Round Edge for Windows 7"     ;Description
    "Koichi OKADA"                 ;Creater
    "copyright 2011, Koichi OKADA" ;copyright notice
    "Aplil 22, 2011"               ;date created
    "RGB*, GRAY*"
    SF-IMAGE      "Image"     0
    SF-DRAWABLE   "Drawable"  0
);end of register

Round Edge for Windows XP

refwxp.scm

(define (script-fu-refwxp image drawable)
        (let*
            (
             (w (car (gimp-drawable-width  drawable)))
             (h (car (gimp-drawable-height drawable)))
             )
          (gimp-image-undo-group-start image)
          (gimp-layer-add-alpha drawable)
          
          (gimp-rect-select image 5 0 (- w 10)      1    CHANNEL-OP-REPLACE  FALSE 0)
          (gimp-rect-select image 3 1 (- w  6)      1  CHANNEL-OP-ADD      FALSE 0)
          (gimp-rect-select image 2 2 (- w  4)      1  CHANNEL-OP-ADD      FALSE 0)
          (gimp-rect-select image 1 3 (- w  2)      2  CHANNEL-OP-ADD      FALSE 0)
          (gimp-rect-select image 0 5    w     (- h 5) CHANNEL-OP-ADD      FALSE 0)
          (gimp-selection-invert image)
          
          (gimp-edit-clear drawable)
          (gimp-selection-invert image)
          
          (gimp-displays-flush)
          (gimp-image-undo-group-end image)
          )
        );end of define

(script-fu-register
    "script-fu-refwxp"             ;Script name
    "<Image>/Filters/refwxp"       ;Menu
    "Round Edge for Windows XP"    ;Description
    "Koichi OKADA"                 ;Creater
    "copyright 2011, Koichi OKADA" ;copyright notice
    "Aplil 23, 2011"               ;date created
    "RGB*, GRAY*"
    SF-IMAGE      "Image"     0
    SF-DRAWABLE   "Drawable"  0
);end of register

マスク決め打ち汚ス

コメントをかく

名前	ユーザIDを使用しないで書き込む	ユーザーIDを使う	ログインする
画像コード	画像に記載されている文字を下のフォームに入力してください。
備考	「http://」を含む投稿は禁止されています。
本文
利用規約をご確認のうえご記入下さい

PIB

GIMP - Script-Fu

参考になるページ

配置

デバッグ

習作

Round Edge for Windows 7

Round Edge for Windows XP

関連

コメントをかく

Wiki内検索

最近更新したページ

2024-05-02

2024-05-01

2024-04-29

2024-04-26

2024-04-18

2024-04-11

2024-04-09

2024-04-08

2024-04-06

カテゴリー

インターネット

書籍/雑誌

暮らし/生活

パソコン

趣味

学問・理系

フリーエリア

アクセス解析中