85: (img (car (gimp-image-new 256 256 RGB)))
86: (border (/ size 4))
87: (grow (/ size 30))
88: (feather (/ size 4))
89: (text-layer (car (gimp-text-fontname img
90: -1 0 0 text border TRUE
91: size PIXELS font)))
92: (width (car (gimp-drawable-width text-layer)))
93: (height (car (gimp-drawable-height text-layer)))
25: (script-fu-util-image-resize-from-layer img logo-layer)
14: (bg-layer (car (gimp-layer-new img
15: width height RGB-IMAGE
16: "Background" 100 NORMAL-MODE)))
17: (glow-layer (car (gimp-layer-new img
18: width height RGBA-IMAGE
19: "Alien Glow" 100 NORMAL-MODE)))
……………………
26: (script-fu-util-image-add-layers img glow-layer bg-layer)
27: (gimp-layer-set-lock-alpha logo-layer TRUE)
28: (gimp-context-set-background '(0 0 0))
29: (gimp-edit-fill bg-layer BACKGROUND-FILL)
30: (gimp-edit-clear glow-layer)
31: (gimp-selection-layer-alpha logo-layer)
32: (gimp-selection-grow img grow)
33: (gimp-selection-feather img feather)
34: (gimp-context-set-foreground glow-color)
35: (gimp-edit-fill glow-layer FOREGROUND-FILL)
36: (gimp-selection-none img)
38: (gimp-context-set-background '(0 0 0))
39: (gimp-context-set-foreground '(79 79 79))
40:
41: (gimp-edit-blend logo-layer FG-BG-RGB-MODE NORMAL-MODE
42: GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
43: FALSE 0 0 TRUE
44: 0 0 1 1)
注意！ 在2.6.7版，Feather的譯詞是「羽毛化」，之前的版本是「羽化」，我個人偏好「羽化」一詞。 |
(define text "ALIEN") (define size 150) (define font "Sans Bold") (define glow-color '(63 252 0)) (define img (car (gimp-image-new 256 256 RGB))) ;(gimp-display-new img) ;也可在此處就顯示出 img 物件 ;也就是新增影像視窗並顯示出目前的圖案 (define border (/ size 4)) (define grow (/ size 30)) (define feather (/ size 4)) (define text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS font))) (define width (car (gimp-drawable-width text-layer))) (define height (car (gimp-drawable-height text-layer))) (define logo-layer text-layer) ;(define border (/ size 4)) ;這 5 行重複前面的變數定義 ;(define grow (/ size 30)) ; 因此將這 5 行起來起來註解起來 ;(define feather (/ size 4)) ;(define width (car (gimp-drawable-width logo-layer))) ;(define height (car (gimp-drawable-height logo-layer))) (define bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE))) (define glow-layer (car (gimp-layer-new img width height RGBA-IMAGE "Alien Glow" 100 NORMAL-MODE))) (gimp-image-undo-disable img) ; 關閉復原的功能 ; ; ;接下來一大串程式碼相當於 ;(apply-alien-glow-logo-effect ...) ; (gimp-context-push) (gimp-selection-none img) (script-fu-util-image-resize-from-layer img logo-layer) (script-fu-util-image-add-layers img glow-layer bg-layer) (gimp-layer-set-lock-alpha logo-layer TRUE) (gimp-context-set-background '(0 0 0)) (gimp-edit-fill bg-layer BACKGROUND-FILL) (gimp-edit-clear glow-layer) (gimp-selection-layer-alpha logo-layer) (gimp-selection-grow img grow) (gimp-selection-feather img feather) (gimp-context-set-foreground glow-color) (gimp-edit-fill glow-layer FOREGROUND-FILL) (gimp-selection-none img) (gimp-context-set-background '(0 0 0)) (gimp-context-set-foreground '(79 79 79)) (gimp-edit-blend logo-layer FG-BG-RGB-MODE NORMAL-MODE GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE FALSE 0 0 TRUE 0 0 1 1) (gimp-context-pop) ; ;以上相當於(apply-alien-glow-logo-effect ...) ; ; (gimp-image-undo-enable img) ; 重新啟動復原的功能 (gimp-display-new img);這一行也可以移到 img 物件生成時就執行
text = "ALIEN" size = 150 font = "Sans Bold" glow_color = (63, 252, 0) text_ext = pdb.gimp_text_get_extents_fontname(text, size, PIXELS, font) width = text_ext[0] + 80 height = text_ext[1] + 80 #img = pdb.gimp_image_new(256, 256, RGB) img = pdb.gimp_image_new(width, height, RGB) #pdb.gimp_display_new(img) #也可在此處就顯示出 img 物件 #也就是新增影像視窗並顯示出目前的圖案 border = size / 4 grow = size / 30 feather = size / 4 # # pdb.gimp_text_fontname(img, -1, ...) -1 會出錯 # text_layer = pdb.gimp_text_fontname(img, -1, 0, 0, text, border, TRUE, size, PIXELS, font) # text_layer = pdb.gimp_layer_new(img, width, height, RGBA_IMAGE, "text layer", 100, NORMAL_MODE) pdb.gimp_image_add_layer(img, text_layer, -1) tmp_layer = pdb.gimp_text_fontname(img, text_layer, 0, 0, text, border, TRUE, size, PIXELS, font) #width = pdb.gimp_drawable_width(tmp_layer) #height = pdb.gimp_drawable_height(tmp_layer) pdb.gimp_floating_sel_anchor(tmp_layer) logo_layer = text_layer bg_layer = pdb.gimp_layer_new(img, width, height, RGB_IMAGE, "Background", 100, NORMAL_MODE) glow_layer = pdb.gimp_layer_new(img, width, height, RGBA_IMAGE, "Alien Glow", 100, NORMAL_MODE) pdb.gimp_image_undo_disable(img) #關閉復原的功能 # #接下來一大串程式碼相當於, #apply_alien_glow_logo_effect # pdb.gimp_context_push() pdb.gimp_selection_none(img) #pdb.script_fu_util_image_resize_from_layer(img,logo_layer) #pdb.script_fu_util_image_add_layers(img, glow_layer, bg_layer) pdb.gimp_image_resize_to_layers(img) pdb.gimp_image_add_layer(img, glow_layer, 1) pdb.gimp_image_add_layer(img, bg_layer, 2) pdb.gimp_layer_set_lock_alpha(logo_layer, TRUE) #pdb.gimp_context_set_background(0, 0, 0) color = (0, 0, 0) pdb.gimp_context_set_background(color) pdb.gimp_edit_fill(bg_layer, BACKGROUND_FILL) pdb.gimp_edit_clear(glow_layer) pdb.gimp_selection_layer_alpha(logo_layer) pdb.gimp_selection_grow(img, grow) pdb.gimp_selection_feather(img, feather) pdb.gimp_context_set_foreground(glow_color) pdb.gimp_edit_fill(glow_layer, FOREGROUND_FILL) pdb.gimp_selection_none(img) #pdb.gimp_context_set_background(0, 0, 0) color = (0, 0, 0) pdb.gimp_context_set_background(color) #pdb.gimp_context_set_foreground(79, 79, 79) color = (79, 79, 79) pdb.gimp_context_set_foreground(color) pdb.gimp_edit_blend(logo_layer, FG_BG_RGB_MODE, NORMAL_MODE, GRADIENT_SHAPEBURST_ANGULAR, 100, 0, REPEAT_NONE, FALSE, FALSE, 0, 0, TRUE, 0, 0, 1, 1) pdb.gimp_context_pop() # #以上相當於(apply_alien_glow_logo_effect, ...) # # pdb.gimp_image_undo_enable(img) # 重新啟動復原的功能 pdb.gimp_display_new(img)#這一行也可以移到 img 物件生成時就執行
