SQLの窓

2012年08月15日

GIMP 2.8にて、ステンドグラスロゴ。感じの良い改造です。



ブラシの種類がそのまま反映されるので通常の『ブラシ』を選択して実行して下さい。『エアブラシ』だと薄くなりますし、『鉛筆』だと、ラインがガタガタになります。

※ 2012/08/16 : 縁の線の太さを指定できるようにしました

もうかなり前に出来上がっていたのですが、ハードディスクの底に眠っていたものを整理しました。オリジナルよりパラメータが増えていますので、いろいろ楽しい文字ステンドグラスが作成できます。

関連する記事

GIMP Portable Rev 4 がリリースされました。GIMP Portable も テーマを変更してみましょう


パラメータ設定







オリジナルでは、結果レイヤーを統合していましたが、コメントにしてありますので以下のような画像を同時に得る事ができます。






UTF8N で保存して下さい

※ 場所は例えば『C:\GIMPPortable\App\gimp\share\gimp\2.0\scripts\super-logos03s.scm』

【重要】
ブラシの種類がそのまま反映されるので通常の『ブラシ』を選択して実行して下さい。『エアブラシ』だと薄くなりますし、『鉛筆』だと、ラインがガタガタになります。

Circle というブラシは将来的にはなくなるかもしれないブラシなので、今後、他のブラシを使ったほうが良いかもしれません。2.8で、gimp-obsolete-files に存在しますが、今後使えるかどうかは解りません。
; ***********************************************************
; GIMP 2.8 動作確認済
; ***********************************************************
(define (apply-super-logos03-effect image logo-layer tsize random blur offset sf ft-color bg-color lwidth)
(let* (
        (bump-layer 0)
        (v_point 0)
        (path-layer 0)
        (outline-layer 0)
    (width (car (gimp-drawable-width logo-layer)))      ;ロゴの幅
    (height (car (gimp-drawable-height logo-layer)))    ;ロゴの高さ
    (bg-layer (car (gimp-layer-new image width height RGB-IMAGE "Background" 100 NORMAL-MODE))) ;背景レイヤー
    (fg-color '(0 0 0)) )                                 ;前景色=黒
;    (bg-color '(20 20 20)) )                         ;背景色=白

    ;イメージサイズ変更と背景レイヤー作成
    (gimp-image-add-layer image bg-layer 1)     ;背景レイヤーをlogo-layerの下にAdd
    (gimp-image-resize-to-layers image)         ;イメージサイズをレイヤーに合わせる
    (gimp-selection-none image)                 ;選択なし
    (gimp-context-set-background bg-color)      ;背景モザイク色
    (gimp-edit-fill bg-layer BACKGROUND-FILL)   ;背景レイヤーを背景モザイク色でFILL

    (plug-in-mosaic 1 image bg-layer                      ;モザイク描画
                                15
                                4
                                1
                                0.65
                                1
                                135
                                0.2
                                1
                                1
                                1
                                0
                                0 )


    ;バンプマップ用イメージ作成
    (set! bump-layer (car(gimp-layer-copy logo-layer 1)))   ;logo-layerのコピー
    (gimp-image-add-layer image bump-layer -1)              ;bump-layerをTopに追加
    (gimp-image-raise-layer-to-top image bump-layer)
    (gimp-layer-set-name bump-layer "Text")

    ;テキストにプラズマ/モザイク描画
    (gimp-selection-layer-alpha logo-layer)                 ;AlphaChanelをSelecdtionMaskに
    (plug-in-plasma 1 image logo-layer random 7)            ;プラズマ描画
    (gimp-context-set-background fg-color)                  ;背景色を黒に
    (plug-in-mosaic 1 image logo-layer                      ;モザイク描画
                                tsize
                                4
                                1
                                0.65
                                1
                                135
                                0.2
                                1
                                1
                                1
                                sf
                                1 )
    (set! v_point (cons-array 8 'byte))                     ;明るさとコントラストを調整
    (set-pt v_point 0 0 0 )
    (set-pt v_point 1 64 64 )
    (set-pt v_point 2 128 226 )
    (set-pt v_point 3 255 255 )
    (gimp-curves-spline logo-layer HISTOGRAM-VALUE 8 v_point)
    (gimp-selection-none image) 

    ;輪郭を描画
    ;テキストをパスに変換
    (gimp-selection-layer-alpha bump-layer)                 ;テキストを選択 
    (plug-in-sel2path 1 image bump-layer)                   ;選択をパスに
    (gimp-selection-none image)
    (set! path-layer (car (gimp-layer-new image width height RGBA-IMAGE "Path" 100 NORMAL-MODE)))
    (gimp-image-add-layer image path-layer -1)              ;新規レイヤーpath-layerを追加
    (gimp-selection-all image)
    (gimp-edit-clear path-layer)
    (gimp-context-set-foreground fg-color)

    (define brush-array (vector "Circle (05)" "Circle (07)" "Circle (09)" "Circle (11)" "Circle (13)" "Circle (15)" "Circle (17)" "Circle (19)"))

    (gimp-context-set-brush (vector-ref brush-array lwidth))
    (gimp-path-stroke-current image)

    (set!  outline-layer (car(gimp-layer-copy path-layer 1)))
    (gimp-image-add-layer image outline-layer 0)

    (gimp-drawable-set-visible bump-layer 0)

    (gimp-context-set-background ft-color)                  ;文字の縁取色
    (gimp-selection-layer-alpha outline-layer)                 ;透明以外を選択     
    (gimp-edit-blend outline-layer         ;drawable
                        FG-BG-RGB-MODE  ;blend_mode 
                        NORMAL-MODE     ;paint_mode 
                        GRADIENT-SHAPEBURST-SPHERICAL ;gradient_type 
                        100             ;opacity 
                        0               ;offset 
                        REPEAT-NONE     ;repeat 
                        TRUE            ;reverse 
                        FALSE           ;supersample
                        0               ;max_depth(supersample) 
                        0               ;threshold(supersample) 
                        TRUE            ;dither 
                        width 
                        height 
                        (+ width 20) 
                        height )
    (gimp-selection-none image)                         ;選択解除
                                  
    (plug-in-bump-map 1 image outline-layer outline-layer 135 45 3 0 0 0 0 1 0 LINEAR )

    (plug-in-gauss-iir2 1 image path-layer blur blur)
    (gimp-layer-set-offsets path-layer offset offset)

    (gimp-selection-none image)                 ;選択なし
;    (gimp-image-flatten image)                  ;画像統合
);end of let*
);end of define

(define (script-fu-super-logos03s text size fontname tsize random blur offset sf col bcol lwidth)
(let*
    (
        (img 0)
        (text-layer 0)
    )
    (set! img (car (gimp-image-new 256 256 RGB)))
    (gimp-context-set-foreground '(0 0 0) )
    (set! text-layer (car (gimp-text-fontname img -1 0 0 text 10 TRUE size PIXELS fontname)))
    (gimp-image-undo-disable img)
    (gimp-drawable-set-name text-layer text)
    (apply-super-logos03-effect img text-layer tsize random blur offset sf col bcol lwidth) ;FONT EFFECT
    (gimp-image-undo-enable img)
    (gimp-display-new img)
)
)

(define
   (set-pt a index x y)
   (begin
      (aset a (* index 2) x)
      (aset a (+ (* index 2) 1) y)
   )
)

(script-fu-register
    "script-fu-super-logos03s"                      ;Script name
    "<Image>/File/Create/汎用ステンドグラスロゴ"    ;Menu
    "Super Logos No.01  beta 0.1"                   ;Description
    "RETOUCH-SCRIPT"                                ;Creater
    "copyright 2006, RETOUCH-SCRIPT"                ;copyright notice
    "Nov 01, 2006"                                  ;date created
    ""
    SF-STRING       "Text"                  "GIMP 2.8"
    SF-ADJUSTMENT   "Font size (pixels)"    '(100 2 1000 1 10 0 1)
    SF-FONT         "Font"                  "Sans Bold"
    SF-ADJUSTMENT   "タイルサイズ"           '(15 5 100 1 10 0 1)
    SF-ADJUSTMENT   "Random seed"           '(1000 0 2000 5 10 0 0)
    SF-ADJUSTMENT   "Shadow blur"           '(3 0 30 1 10 0 1)
    SF-ADJUSTMENT   "Shadow offset"           '(1 0 30 1 10 0 1)
    SF-TOGGLE       "表面の起伏"            FALSE
    SF-COLOR        "縁の色"                '(255 255 255)
    SF-COLOR        "Background color"      '(255 255 255)
    SF-OPTION       "線の太さ"              '("Circle (05)" "Circle (07)" "Circle (09)" "Circle (11)" "Circle (13)" "Circle (15)" "Circle (17)" "Circle (19)")


);end of register

縁取りの色は、オリジナルでは『白』なので、銀色の光沢入りのパイプのようになりますが、それよりかなり雰囲気の違った画像が手に入ります。ステンドグラスのピースの大きさも変更できますし、表面に起伏を追加してガラス的な効果も狙えます




タグ:GIMP
posted by at 2012-08-15 00:40 | GIMP スクリプト | このブログの読者になる | 更新情報をチェックする


Android SDK ポケットリファレンス
改訂版 Webデザイナーのための jQuery入門
今すぐ使えるかんたん ホームページ HTML&CSS入門
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX