mieki256's diary

Script-fu にしろ Tiny-fu にしろ、Scheme なるLisp系の言語が元になってるらしいのだけど。アレコレ検索しても資料ページにぶつからない。数値から文字列への変換ってどうやるんだらう。とかそんなレベルで躓いたり。資料がないってことは、物凄くマイナーなんだな。この言語は。

大体にして、Lisp系の、「a = 1 + 2」を「(a (+ 1 2))」とか書かなきゃいけないところが嫌だ。や、前者も、内部的には後者にして処理をする・スタックに貯めていって処理をする、と中学の頃に読んだ雑誌には書いてあったけど。勝手な想像だけど、前者で言語を作った人は、「やっぱり人間が判りにくい書き方はいかんだろう。人間がコンピュータに使われちゃいかん。俺が苦労しても、それで皆が楽になるなら…」と思いながら実装してたのではなかろうか。しかし後者は「俺はこれでも判るし、コンピュータも判りやすいんだから、これでええやんか」という気持ちで言語を作ってたのではないか。「俺が判るんだからそれでいい」という姿勢からして気に食わん。しかも「え？ なんでこれが判んないの？ 君達バカ？」みたいな雰囲気を時々漂わせてるし。＞Lisp使用者。こんな独りよがりで、優越感ゲームに浸った気持ちで作られた、カッコばかりつけてる言語が、普及するわけなどないのです。嘘です。根拠のない妄想を垂れ流してんじゃねえ。＞俺。どうもスイマセン。

つーかどうしてGIMPは、PyGimp？ Python-fu を標準にしないのかな。標準ではないから、pythonで書いても「俺しか使えない・俺の環境でしか使えない」ということになっちゃって、作成意欲？公開意欲？が削がれるし。さりとてLisp系言語は習得が大変みたいだし。なもんだから、「よっしゃ、ここは一つ、俺がスクリプト書いたるか」てな人が滅多に出てこない状態に。Lisp系を導入したツール・アプリケーションは、えてしてそのことが足を引っ張ってる気がする。Lispは存在自体が害悪。とまで書くのはアレだけど、結構それに近い場面が多い気もしたり。…まあ、スクリプト関連が何もないよりはマシなのかもしれんのですが。

(gimp-message hogestring) みたいな感じで動作確認しようとしたら、「不正なUTF8文字列です」等のエラーが出て困り果てる。巷で何かとバカにされがちだったりするぐらいに一般的な手法である、printf()っぽいソレも使えないとは…。なんというクソ環境！

Script-fuコンソールで事前に部分的テストをしようと思っても、入力欄が1行しかないから大変なことに。対応カッコを色づけ表示等もなければ、タブキーで補完とかそういうのもないし。結局、スクリプトファイルを書いたら、ツールボックスの「拡張」→「Script-fu」→「スクリプトリフレッシュ」をして、しばらく待たされてから動作確認、というループで作業する羽目に。どうにかならんのか。

例えば、Script-fuコンソールを出力先として指定した状態でメッセージ出力、とかできんのかな。あるいはどこぞのテキストファイルにひたすらログを残すとか。

保存テキストファイル名のパスを、SF-DIRNAME と SF-STRING から得たソレで、 (string-append dirname "/" filename) で作ろうとしたら。できたソレは、C:\hoge\piyo/hoge.txt みたいな。あー、パス区切り文字が…。

外人さんは「SF-FILENAME の仕様が変わったんで (string-append dirname "/" filename) でフルパス作ってどうにかせい」とか言ってるみたいだけど。ソレ、*NIX文化圏でしか動かないスクリプトになったりしないのか？ 各OS環境でどのパス区切り文字が使われてるか、システム変数とか関数とかそのあたり使って取り出せれば助かるけれど、そんなもんがあったら「(string-append dirname "/" filename)で〜」とか言ってたりしないよな。ということは、おそらくそんな気の利いたものは用意されてないに違いない。

GIMPの標準添付スクリプト界隈は、ディレクトリやファイルの取扱いに関して、どうも何かが弱い気がする。例えば、 _Python の os.path あたりを見てると、「異なる環境でもちゃんと使えるように」てな気配り？が感じられるんだけど。それに比べるとGIMPのソレは、上記のような感じで。

それはともかく、解法はないものかと検索してたら、Windows版 GTK+ では「\」も「/」も両方パス区切り文字として扱ってたりするかもよ、てなPDF文書に遭遇。であれば、問答無用で「/」でやっちゃってもいいんだろうけど。本当にそうなってるのかなぁ…。なんだか怖いなあ…。

こんな感じに。

(define (script-fu-dump-layer-offsets
         img         ; image ID
         drawable    ; target drawable ID (not used)
         dirname     ; output dircetory name
         pathstr     ; path separator
         filename    ; output text filename
         )

  (let* ((layers (gimp-image-get-layers img))
         (number-layers (car layers))
         (layer-array (cadr layers))
         (layer-count 0)
         (layer 0)
         (outputpath (string-append dirname pathstr filename)))
    (set! layer-count 0)
    (call-with-output-file
     outputpath
     (lambda (p)
       (while (< layer-count number-layers)
         (set! layer (vector-ref layer-array layer-count))
         (gimp-image-set-active-layer img layer)
         (let* ((name         (car (gimp-layer-get-name layer)))
                (offset-x     (car (gimp-drawable-offsets layer)))
                (offset-y     (cadr (gimp-drawable-offsets layer)))
                (layer-width  (car (gimp-drawable-width layer)))
                (layer-height (car (gimp-drawable-height layer)))
                (s (string-append
                    name ","
                    (number->string offset-x) ","
                    (number->string offset-y) ","
                    (number->string layer-width) ","
                    (number->string layer-height) ","))) 
             (display s p)
             (newline p))
         (set! layer-count (+ layer-count 1)))
       ;; (close-output-port p)
       ))
    ; (gimp-message-set-handler MESSAGE-BOX)
    ; (gimp-message (string-append "Output File : " outputpath))))
    
    ))
    

(script-fu-register 
 "script-fu-dump-layer-offsets"
 "Dump All Layer Offsets..."
 "全レイヤー位置座標をダンプ"
 "mieki256"
 "mieki256"
 "2008/03/18"
 "*"
 SF-IMAGE    "Image"    0
 SF-DRAWABLE "Drawable" 0 
 SF-DIRNAME  "Select Output Directory" "."
 SF-STRING  "path separator" "\\"
 SF-STRING  "Input Output Text Filename" "dump_temp.txt"
 )

(script-fu-menu-register "script-fu-dump-layer-offsets"
                         "<Image>/Layer")

エラー処理とかどうやって書いたらいいのか判んないので、場合によっては酷いことになる可能性大。それと、レイヤー名に日本語を使ってると謎の文字列で記録される。例えば、「背景」→「闇」になってたり。…なんで「闇」なんだ。なんだか怖い。

「闇」じゃなくて、別の文字っぽいな。

Windows上で動作する Scheme もインストールしておいたほうが勉強がやりやすいだろう、と思って _MzScheme もインストールしてみたり。 _昔は UNICODE 非対応だったけど最近は対応してる との話も見かけたので、これがいいのかなと。

が、while が使えない…。＞ MzScheme。GIMP のほうのソレは使えるんだけどな。

_Scheme 入門 15. 構文の定義 というページを見る限りでは、そもそも「自分で while をマクロ定義しろや」ということなのかもしれず。

つーか、 _Scheme において繰り返しは再帰で行うべし てな話もあるようで。うーむ。

む。わかりやすいかも。