実行場所です。オリジナルには無い、タイルサイズと表面の起伏が増えています
「Faces from the past」 を使ってステンドグラスの作成です
タグ：GIMP
|
|
2011年07月31日
GIMP : 「ステンドグラスロゴ」スクリプトの改造後の画面と実行結果
GIMP : 「ステンドグラスロゴ」スクリプトの基本改造
最新はこちらです(GIMP 2.8にて、ステンドグラスロゴ。感じの良い改造です。)
オリジナルのスクリプトは以下のページにあります。( 消失しています ) 上記ページにも書かれてあるように、こちらで GIMP2.6 で動作するように変更しました。あれから年月が経ちましたが、いろいろなテザインフォントを使う事が増えて来たので、最近いろいろ改造していたので、その結果です。 ※ UTF-8N で保存して下さい ※ C:\GIMPPortable\App\gimp\share\gimp\2.0\scripts が保存場所の例です
; ***********************************************************
; 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
Seesaa の各ページの表示について
Seesaa の 記事がたまに全く表示されない場合があります。その場合は、設定＞ 詳細設定＞ ブログ設定 で 最新の情報に更新の『実行ボタン』で記事やアーカイブが最新にビルドされます。 Seesaa のページで、アーカイブとタグページは要注意です。タグページはコンテンツが全く無い状態になりますし、アーカイブページも歯抜けページはコンテンツが存在しないのにページが表示されてしまいます。 また、カテゴリページもそういう意味では完全ではありません。『カテゴリID-番号』というフォーマットで表示されるページですが、実際存在するより大きな番号でも表示されてしまいます。 ※ インデックスページのみ、実際の記事数を超えたページを指定しても最後のページが表示されるようです 対処としては、このようなヘルプ的な情報を固定でページの最後に表示するようにするといいでしょう。具体的には、メインの記事コンテンツの下に『自由形式』を追加し、アーカイブとカテゴリページでのみ表示するように設定し、コンテンツを用意するといいと思います。※ エキスパートモードで表示しています アーカイブとカテゴリページはこのように簡単に設定できますが、タグページは HTML 設定を直接変更して、以下の『タグページでのみ表示される内容』の記述方法で設定する必要があります
<% if:page_name eq 'archive' -%> アーカイブページでのみ表示される内容 <% /if %> <% if:page_name eq 'category' -%> カテゴリページでのみ表示される内容 <% /if %> <% if:page_name eq 'tag' -%> タグページでのみ表示される内容 <% /if %>この記述は、以下の場所で使用します
|
|
