日本語で配布されていたスクリプトがサイト閉鎖でダウンロードできないので、WEBアーカイブでダウンロードしたら、GIMP 2.8 で動かなかったのでオリジナルを探してみました。そうすると、バージョンアップ版を見つけたので日本語化して、変な効果が付いてしたのをコメントにしています。( 必要ならコメント外すかオリジナルを使ってみて下さい )(オプションにしました)
※ 動かなかったのは、他のスクリプトとの関数名の衝突でした。
※ ですから、バージョンアップ版は -3 と付加されています。また、バージョンアップ版のほうが色を指定できるので優れています。
バージョンアップ版をテストしていると、四角形の吹き出し処理がバグっている事が解ったので修正しました。また、ぼかし処理はオプションで実行可能にしました。
▼ オリジナルはバグがあります。
オリジナル
▼ 日本語化版
▼ ソースを直接エディタで保存する場合は UTF-8N で保存する必要があります
; balloon
; creates a balloon like in comics
; it sucks a bit ;-)
; (C) Copyright 2000 by Michael Spunt <t0mcat@gmx.de>
; Gopal.V hacked it in 2002 to make it suck less (Aqua'ish)
; but cut a few corners (literally)
;
; ramok hacked it in 2006 to make colors
(define (round-balloon-3 img drawable bw bh lw rect np orientation revert fill border gauss)
(let* ((x 0))
(if (= np FALSE)
(begin
(set! x (- (* bw 0.5) (* bw 0.2)))
(gimp-ellipse-select img x (* bh 0.5) (* bw 0.4) (* bh 0.4) REPLACE TRUE FALSE 0)
(set! x (- (* bw 0.5) (* bw 0.2) (* bw orientation -0.1)))
(gimp-ellipse-select img x (* bh 0.5) (* bw 0.4) (* bh 0.4) SUB TRUE FALSE 0)))
(if (= revert FALSE)
(gimp-selection-translate img (* bw orientation 0.3) 0))
(if (= rect FALSE)
(gimp-ellipse-select img (* bw 0.1) (* bh 0.1) (* bw 0.8) (* bh 0.65) ADD TRUE FALSE 0))
(if (= rect TRUE)
(gimp-rect-select img (* bw 0.1) (* bh 0.1) (* bw 0.8) (* bh 0.65) ADD FALSE 0))
(gimp-palette-set-background fill)
(gimp-palette-set-foreground border)
(gimp-edit-fill drawable 0)
(gimp-selection-shrink img lw)
(gimp-edit-fill drawable 1)
(if (= gauss TRUE)
(begin
(gimp-selection-none img)
(plug-in-gauss-rle2 1 img drawable 5.0 5.0)
(plug-in-bump-map 1 img drawable drawable 135 14 4 0 0 74 182 1 0 1)
)
)
))
(define (round-think-balloon-3 img drawable bw bh lw rect np orientation revert fill border gauss)
(let* ((x 0))
(if (= np FALSE)
(begin
(set! x (+ (* bw 0.5) (* bw -0.025) (* bw orientation 0.3)))
(gimp-ellipse-select img x (* bh 0.85) (* bw 0.05) (* bh 0.05) REPLACE TRUE FALSE 0)
(set! x (+ (* bw 0.5) (* bw -0.05) (* bw orientation 0.2)))
(gimp-ellipse-select img x (* bh 0.75) (* bw 0.1) (* bh 0.1) ADD TRUE FALSE 0)))
(if (= revert TRUE)
(gimp-selection-translate img (* orientation bw -0.3) 0))
(if (= rect FALSE)
(gimp-ellipse-select img (* bw 0.1) (* bh 0.1) (* bw 0.8) (* bh 0.65) ADD TRUE FALSE 0))
(if (= rect TRUE)
(gimp-rect-select img (* bw 0.1) (* bh 0.1) (* bw 0.8) (* bh 0.625) ADD FALSE 0))
(gimp-palette-set-background fill)
(gimp-palette-set-foreground border)
(gimp-edit-fill drawable 0)
(gimp-selection-shrink img lw)
(gimp-edit-fill drawable 1)
(if (= gauss TRUE)
(begin
(gimp-selection-none img)
(plug-in-gauss-rle2 1 img drawable 5.0 5.0)
(plug-in-bump-map 1 img drawable drawable 135 14 4 0 0 74 182 1 0 1)
)
)
))
(define (script-fu-balloon-3 bw bh lw rect np think right revert fill border gauss)
(let* (
(orientation 1)
(side 1)
(img (car (gimp-image-new bw bh RGB)))
(balloon (car (gimp-layer-new img bw bh RGBA-IMAGE "Balloon3" 100 NORMAL))))
(if (= right FALSE) (set! orientation -1))
(gimp-image-add-layer img balloon 1)
(gimp-display-new img)
(gimp-edit-clear balloon)
(if (= think FALSE)
(round-balloon-3 img balloon bw bh lw rect np orientation revert fill border gauss))
(if (= think TRUE)
(round-think-balloon-3 img balloon bw bh lw rect np orientation revert fill border gauss))
(gimp-selection-none img)
(gimp-displays-flush)))
(script-fu-register "script-fu-balloon-3"
"Balloon3..."
"Creates a balloon like used in comics."
"Michael Spunt"
"Copyright 2000, Michael Spunt"
"May 20, 2000"
""
SF-ADJUSTMENT _"Image width" '(240 10 2000 1 10 0 1)
SF-ADJUSTMENT _"Image height" '(160 10 1000 1 10 0 1)
SF-ADJUSTMENT "Line width" '(2 0 10 1 10 0 1)
SF-TOGGLE "四角形" FALSE
SF-TOGGLE "吹き出しなし" FALSE
SF-TOGGLE "妄想" FALSE
SF-TOGGLE "クチの向き（右）" FALSE
SF-TOGGLE "位置の反転" FALSE
SF-COLOR "Fill" '(255 255 255)
SF-COLOR "Border" '(22 22 22)
SF-TOGGLE "ぼかしあり" FALSE)
(script-fu-menu-register "script-fu-balloon-3"
"<Toolbox>/Xtns/Script-Fu/Text"
)
▼ ぼかし効果は枠線がぼやけてうっすら影が付いたようになって以下のようになります
( このバルーンはかなり大きいので目立たないですが、小さいと、もわっとした吹き出しになります )
GIMP : 漫画の吹き出しを作成するスクリプトを利用する
▼ reflex-logo.scm ( UTF-8Nで保存 )
インストールディレクトリの Data フォルダの 以下のようなファイルを削除します。
( このファイルは、通常起動状態で存在し、終了すると削除されるはずのものです )
( PortableApps.comLauncherRuntimeData-GIMPPortable.ini )
Windows7 では『クラシック』を使っているのでこうなってしまいました。エアロを利用している場合は問題は出ないはずです。しかし、クラシックを含む『ベーシック』ではこのようになるものもあるのでこれも GIMP Portable のバグです。
対応としては、Windows 側で選択色を変更します
この状態で、Windows のペイントで貼り付けると正しく貼りつきます。こんなバグだとどこかで説明されているかと思いましたが、見つける事ができず、仕方無いので旧バージョンをインストールしようと思い、そのリンクを探したのですがうまく見つける事ができなかったので、最新版のダウンロード URL から親ディレクトリに移動して、そこからたどってみつけました。
どれがいいか全部試せばいいのですが、日付からして安定しているのは 2.6.8 である可能性が高かったのでそれを使いましたが、気になる人は試してみて下さい。ポータブルは、インストールしてもフォルダができるだけで、削除すればすぐなくなります。
そこで注意事項ですが。
★ 日本語を含むフォルダに入れない。
★ 空白を含むフォルダに入れない
というのは基本条件ですが、あとあとスクリプトの追加等などをする場合、他のフォルダ内に入れてしまうと階層が深くなりすぎますし、権限の問題も出る可能性があるのでC ドライブのルートに入れるのが良い方法です。( 削除もすぐ選択できます )
ただ、この状態のままだとフォルダが無いと言われるので、C: を付加します。
どうしても、2.6.11 の機能が必要な場合( 具体的な事は解りませんが )は、ポータブルでは無い 
で、下が完成品。数秒でできます。フォントのサイズによって、ステンドグラスの大きさやできあがり具合が変わります。小さい画像で使う場合は、小さいサイズで作らないと、ステンドグラスの良い味が出無くなります。でもあまり小さくしずきると、輪郭がうまく表現されないので、いろいろやって縮小するといいと思います
フォントサイズ : 600
フォントサイズ : 400
※ エキスパートモードで表示しています
アーカイブとカテゴリページはこのように簡単に設定できますが、タグページは HTML 設定を直接変更して、以下の『タグページでのみ表示される内容』の記述方法で設定する必要があります
