GINPRO / SQLの窓と銀プログラマ

; ***********************************************************
; GIMP 2.6 移植時の作業
; 
; 1) 変数は宣言する
; ( http://iccii.seesaa.net/article/62438175.html を参照 )
; 2) set-pt を定義する
; 
; 追加オプション
; 1) タイルサイズを変更可能
; 2) 表面の起伏を設定可能
;
; 保存位置変更
; http://www.geocities.jp/gimproject/scripts/extra-logo.html
; 上記スクリプトと同じ位置に設定
;
; 加工用変更
; ※ 画像統合をしない
; ***********************************************************
(define (apply-super-logos01-effect image logo-layer tsize random blur offset sf)
(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 '(255 255 255)) )                         ;背景色=白

    ;イメージサイズ変更と背景レイヤー作成
    (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

    ;バンプマップ用イメージ作成
    (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)    
    (gimp-context-set-brush "Circle (05)")
    (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 bg-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-logos01 text size fontname tsize random blur offset sf)
(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-logos01-effect img text-layer tsize random blur offset sf) ;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-logos01"                       ;Script name
    "<Image>/File/Create/Logos/追加ロゴ/ステンドグラスロゴ"  ;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"                  "A"
    SF-ADJUSTMENT   "Font size (pixels)"    '(600 2 1000 1 10 0 1)
    SF-FONT         "Font"                  "Arial Heavy"
    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
  
);end of register