590c4d0b9f
2006-10-20 Kevin Cozens <kcozens@cvs.gnome.org> * plug-ins/script-fu/scheme-wrapper.c: Moved the MIN and MAX entries for image size and resolution to script_constants structureas they are not deprecated constants. * plug-ins/script-fu/scripts/script-fu.init: Removed CR in line endings. * plug-ins/script-fu/scripts/*.scm: Fixed a number of regressions that snuck in during the last big update of the scripts. This update reduces the number of differences to the original scripts (other than formatting). Some additional formatting changes in a few scripts. Updates to use colour names in register block where possible. Fixed a bug in burn-in-anim.scm. Minor cleanup of font-map.scm. Simplified the bug fix in tile-blur.scm.
155 lines
5.7 KiB
Scheme
155 lines
5.7 KiB
Scheme
; FROZEN-TEXT effect
|
|
; Thanks to Ed Mackey for this one
|
|
; Written by Spencer Kimball
|
|
|
|
(define (apply-frosty-logo-effect img
|
|
logo-layer
|
|
size
|
|
bg-color)
|
|
(let* (
|
|
(border (/ size 5))
|
|
(width (+ (car (gimp-drawable-width logo-layer)) border))
|
|
(height (+ (car (gimp-drawable-height logo-layer)) border))
|
|
(logo-layer-mask (car (gimp-layer-create-mask logo-layer ADD-BLACK-MASK)))
|
|
(sparkle-layer (car (gimp-layer-new img width height RGBA-IMAGE
|
|
"Sparkle" 100 NORMAL-MODE)))
|
|
(matte-layer (car (gimp-layer-new img width height RGBA-IMAGE
|
|
"Matte" 100 NORMAL-MODE)))
|
|
(shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE
|
|
"Shadow" 90 MULTIPLY-MODE)))
|
|
(bg-layer (car (gimp-layer-new img width height RGB-IMAGE
|
|
"Background" 100 NORMAL-MODE)))
|
|
(selection 0)
|
|
)
|
|
|
|
(gimp-context-push)
|
|
|
|
(gimp-layer-add-mask logo-layer logo-layer-mask)
|
|
(script-fu-util-image-resize-from-layer img shadow-layer)
|
|
(gimp-image-add-layer img sparkle-layer 2)
|
|
(gimp-image-add-layer img matte-layer 3)
|
|
(gimp-image-add-layer img shadow-layer 4)
|
|
(gimp-image-add-layer img bg-layer 5)
|
|
(gimp-layer-translate logo-layer border border)
|
|
(gimp-selection-none img)
|
|
(gimp-edit-clear sparkle-layer)
|
|
(gimp-edit-clear matte-layer)
|
|
(gimp-edit-clear shadow-layer)
|
|
(gimp-selection-layer-alpha logo-layer)
|
|
(set! selection (car (gimp-selection-save img)))
|
|
(gimp-selection-feather img border)
|
|
(gimp-context-set-background '(0 0 0))
|
|
(gimp-edit-fill sparkle-layer BACKGROUND-FILL)
|
|
(plug-in-noisify 1 img sparkle-layer FALSE 0.2 0.2 0.2 0.0)
|
|
(plug-in-c-astretch 1 img sparkle-layer)
|
|
(gimp-selection-none img)
|
|
(plug-in-sparkle 1 img sparkle-layer 0.03 0.5
|
|
(/ (min width height) 2)
|
|
6 15 1.0 0.0 0.0 0.0 FALSE FALSE FALSE 0)
|
|
(gimp-levels sparkle-layer 1 0 255 0.2 0 255)
|
|
(gimp-levels sparkle-layer 2 0 255 0.7 0 255)
|
|
(gimp-selection-layer-alpha sparkle-layer)
|
|
(gimp-context-set-foreground '(0 0 0))
|
|
(gimp-context-set-brush "Circle Fuzzy (11)")
|
|
(gimp-edit-stroke matte-layer)
|
|
(gimp-selection-feather img border)
|
|
(gimp-edit-fill shadow-layer BACKGROUND-FILL)
|
|
(gimp-selection-none img)
|
|
(gimp-context-set-background bg-color)
|
|
(gimp-edit-fill bg-layer BACKGROUND-FILL)
|
|
(gimp-context-set-background '(0 0 0))
|
|
(gimp-edit-fill logo-layer BACKGROUND-FILL)
|
|
; (gimp-layer-add-mask logo-layer logo-layer-mask)
|
|
(gimp-selection-load selection)
|
|
(gimp-context-set-background '(255 255 255))
|
|
(gimp-edit-fill logo-layer-mask BACKGROUND-FILL)
|
|
(gimp-selection-feather img border)
|
|
(gimp-selection-translate img (/ border 2) (/ border 2))
|
|
(gimp-edit-fill logo-layer BACKGROUND-FILL)
|
|
(gimp-layer-remove-mask logo-layer 0)
|
|
(gimp-selection-load selection)
|
|
(gimp-context-set-brush "Circle Fuzzy (07)")
|
|
(gimp-context-set-paint-mode BEHIND-MODE)
|
|
(gimp-context-set-foreground '(186 241 255))
|
|
(gimp-edit-stroke logo-layer)
|
|
(gimp-selection-none img)
|
|
(gimp-image-remove-channel img selection)
|
|
|
|
(for-each (lambda (the-layer)
|
|
(gimp-layer-resize the-layer (- width border) (- height border)
|
|
(- border) (- border))
|
|
; (gimp-layer-translate the-layer border border)
|
|
)
|
|
(list sparkle-layer matte-layer bg-layer)
|
|
)
|
|
|
|
(gimp-layer-resize shadow-layer (- width border) (- height border) 0 0)
|
|
(gimp-layer-translate shadow-layer border border)
|
|
|
|
(script-fu-util-image-resize-from-layer img logo-layer)
|
|
|
|
(gimp-context-pop)
|
|
)
|
|
)
|
|
|
|
(define (script-fu-frosty-logo-alpha img
|
|
logo-layer
|
|
size
|
|
bg-color)
|
|
(begin
|
|
(gimp-image-undo-group-start img)
|
|
(apply-frosty-logo-effect img logo-layer size bg-color)
|
|
(gimp-image-undo-group-end img)
|
|
(gimp-displays-flush)
|
|
)
|
|
)
|
|
|
|
(script-fu-register "script-fu-frosty-logo-alpha"
|
|
_"_Frosty..."
|
|
_"Add a frost effect to the selected region (or alpha) with an added drop shadow"
|
|
"Spencer Kimball & Ed Mackey"
|
|
"Spencer Kimball & Ed Mackey"
|
|
"1997"
|
|
"RGBA"
|
|
SF-IMAGE "Image" 0
|
|
SF-DRAWABLE "Drawable" 0
|
|
SF-ADJUSTMENT _"Effect size (pixels)" '(100 2 1000 1 10 0 1)
|
|
SF-COLOR _"Background color" "white"
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-frosty-logo-alpha"
|
|
"<Image>/Filters/Alpha to Logo")
|
|
|
|
|
|
(define (script-fu-frosty-logo text
|
|
size
|
|
font
|
|
bg-color)
|
|
(let* (
|
|
(img (car (gimp-image-new 256 256 RGB)))
|
|
(border (/ size 5))
|
|
(text-layer (car (gimp-text-fontname img -1 0 0 text (* border 2) TRUE size PIXELS font)))
|
|
)
|
|
(gimp-image-undo-disable img)
|
|
(apply-frosty-logo-effect img text-layer size bg-color)
|
|
(gimp-image-undo-enable img)
|
|
(gimp-display-new img)
|
|
)
|
|
)
|
|
|
|
(script-fu-register "script-fu-frosty-logo"
|
|
_"_Frosty..."
|
|
_"Create frozen logo with an added drop shadow"
|
|
"Spencer Kimball & Ed Mackey"
|
|
"Spencer Kimball & Ed Mackey"
|
|
"1997"
|
|
""
|
|
SF-STRING _"Text" "GIMP"
|
|
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
|
|
SF-FONT _"Font" "Becker"
|
|
SF-COLOR _"Background color" "white"
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-frosty-logo"
|
|
"<Toolbox>/Xtns/Logos")
|