
アマチュアアニメーションを安く制作するのをひっそり応援するページ★ ★ ★ フォトショップとか、高けーんだよ! って思うので、フリーウェアの導入を考えてみる。 ノーパソとかに、何の気兼ねなく入れられるので、 なんと出張先でも色が塗れる! ★ ★ ★ GIMP は、GNU Image Manipulation Program の頭文字をとった名前で、頭にGNUがくっついています。GNUは、大雑把には何でもかんでもオープンソース、フリーで作っちまおうっていう概念です。つまり、フリー、只、ロハ。すげーぜ。 |
(define (script-fu-cut-blue img layer) ; 関数を定義 () ; ここにやることを入れる ) (script-fu-register ; 登録する "script-fu-cut-blue" ; 登録する関数の名前 "<Image>/Script-Fu/USRDEF/Cut Blue..." ; メニューの場所 "usrdef-cut-blue.scm\nCut blue (0 0 255) region" "Q@studio pot-pourri" ; 作者 "(c) 2006" ; 著作権情報 "ver. 1.0 2006/3/28" ; 日付 "RGB*" ; このコマンドが使えるモード SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) |


(define (script-fu-cut-blue img layer) ; 関数を定義 ; 前準備 (gimp-image-undo-group-start img) ; ここから先の操作をundo一回で戻れるようにする ; メイン (gimp-layer-add-alpha layer) ; αチャンネルを(無ければ)付加 (gimp-by-color-select layer '(0 0 255) 0 2 FALSE 0 0 0) ; 青を選択 (gimp-edit-cut layer) ; 選択範囲をカット (gimp-file-save 1 img layer (car (gimp-image-get-filename img)) (car (gimp-image-get-name img))) ; 保存 ; 後始末 (gimp-image-undo-group-end img) ; ここまでの操作をundo一回で戻れるようにする (gimp-displays-flush) ; 更新された情報を表示 ) (script-fu-register ; 登録する "script-fu-cut-blue" ; 登録する関数の名前 "<Image>/Script-Fu/USRDEF/Cut Blue..." ; メニューの場所 "usrdef-cut-blue.scm\nCut blue (0 0 255) region" "Q@studio pot-pourri" ; 作者 "(c) 2006" ; 著作権情報 "ver. 1.0 2006/3/28" ; 日付 "RGB*" ; このコマンドが使えるモード SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0) |
⇒ 

(define (script-fu-paint-removing-trash img layer) ; 関数を定義
; 前準備
(gimp-image-undo-group-start img) ; ここから先の操作をundo一回で戻れるようにする
; メイン
(if (!= (gimp-selection-is-empty) 0) ; 選択範囲が0でなければ
(gimp-edit-bucket-fill layer 0 0 100 0 0 0 0) ; 塗る
(gimp-selection-grow img 1) ; 選択範囲を拡大
(gimp-selection-shrink img 1) ; 選択範囲を縮小
(gimp-edit-bucket-fill layer 0 0 100 0 0 0 0) ; も一度塗る
(gimp-selection-none img) ) ; 選択範囲を解除
; 後始末
(gimp-image-undo-group-end img) ; ここまでの操作をundo一回で戻れるようにする
(gimp-displays-flush) ; 更新された情報を表示
)
(script-fu-register ; 登録する
"script-fu-paint-removing-trash" ; 登録する関数の名前
"<Image>/Script-Fu/USRDEF/Paint removing trash..." ; メニューの場所
"usrdef-paint-removing-trash.scm\nPaint selected region, removing small dots"
"Q@studio pot-pourri" ; 作者
"(c) 2006" ; 著作権情報
"ver. 1.0 2006/3/29" ; 日付
"RGB*" ; このコマンドが使えるモード
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0)
|
ゴミだらけの画像も、ゴミごと適当にワンド選択してスクリプトを実行すれば…
はいっ、御覧のとおり!