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.
107 lines
3.4 KiB
Scheme
107 lines
3.4 KiB
Scheme
; DROP-SHADOW-LOGO
|
|
; draw the specified text over a background with a drop shadow
|
|
|
|
(define (apply-basic1-logo-effect img
|
|
logo-layer
|
|
bg-color
|
|
text-color)
|
|
(let* (
|
|
(width (car (gimp-drawable-width logo-layer)))
|
|
(height (car (gimp-drawable-height logo-layer)))
|
|
(bg-layer (car (gimp-layer-new img width height RGBA-IMAGE "Background" 100 NORMAL-MODE)))
|
|
(shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE "Shadow" 100 MULTIPLY-MODE)))
|
|
)
|
|
|
|
(gimp-context-push)
|
|
|
|
(gimp-selection-none img)
|
|
(script-fu-util-image-resize-from-layer img logo-layer)
|
|
(gimp-image-add-layer img shadow-layer 1)
|
|
(gimp-image-add-layer img bg-layer 2)
|
|
(gimp-context-set-foreground text-color)
|
|
(gimp-layer-set-lock-alpha logo-layer TRUE)
|
|
(gimp-edit-fill logo-layer FOREGROUND-FILL)
|
|
(gimp-context-set-background bg-color)
|
|
(gimp-edit-fill bg-layer BACKGROUND-FILL)
|
|
(gimp-edit-clear shadow-layer)
|
|
(gimp-selection-layer-alpha logo-layer)
|
|
(gimp-context-set-background '(0 0 0))
|
|
(gimp-selection-feather img 7.5)
|
|
(gimp-edit-fill shadow-layer BACKGROUND-FILL)
|
|
(gimp-selection-none img)
|
|
(gimp-context-set-foreground '(255 255 255))
|
|
|
|
(gimp-edit-blend logo-layer FG-BG-RGB-MODE MULTIPLY-MODE
|
|
GRADIENT-RADIAL 100 20 REPEAT-NONE FALSE
|
|
FALSE 0 0 TRUE
|
|
0 0 width height)
|
|
|
|
(gimp-layer-translate shadow-layer 3 3)
|
|
|
|
(gimp-context-pop)
|
|
)
|
|
)
|
|
|
|
|
|
(define (script-fu-basic1-logo-alpha img
|
|
logo-layer
|
|
bg-color
|
|
text-color)
|
|
(begin
|
|
(gimp-image-undo-group-start img)
|
|
(apply-basic1-logo-effect img logo-layer bg-color text-color)
|
|
(gimp-image-undo-group-end img)
|
|
(gimp-displays-flush)
|
|
)
|
|
)
|
|
|
|
(script-fu-register "script-fu-basic1-logo-alpha"
|
|
_"_Basic I..."
|
|
_"Add a gradient effect, a drop shadow, and a background to the selected region (or alpha)"
|
|
"Spencer Kimball"
|
|
"Spencer Kimball"
|
|
"1996"
|
|
"RGBA"
|
|
SF-IMAGE "Image" 0
|
|
SF-DRAWABLE "Drawable" 0
|
|
SF-COLOR _"Background color" "white"
|
|
SF-COLOR _"Text color" '(6 6 206)
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-basic1-logo-alpha"
|
|
"<Image>/Filters/Alpha to Logo")
|
|
|
|
(define (script-fu-basic1-logo text
|
|
size
|
|
font
|
|
bg-color
|
|
text-color)
|
|
(let* (
|
|
(img (car (gimp-image-new 256 256 RGB)))
|
|
(text-layer (car (gimp-text-fontname img -1 0 0 text 10 TRUE size PIXELS font)))
|
|
)
|
|
|
|
(gimp-image-undo-disable img)
|
|
(apply-basic1-logo-effect img text-layer bg-color text-color)
|
|
(gimp-image-undo-enable img)
|
|
(gimp-display-new img)
|
|
)
|
|
)
|
|
|
|
(script-fu-register "script-fu-basic1-logo"
|
|
_"_Basic I..."
|
|
_"Create a plain text logo with a gradient effect, a drop shadow, and a background"
|
|
"Spencer Kimball"
|
|
"Spencer Kimball"
|
|
"1996"
|
|
""
|
|
SF-STRING _"Text" "GIMP"
|
|
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
|
|
SF-FONT _"Font" "Dragonwick"
|
|
SF-COLOR _"Background color" "white"
|
|
SF-COLOR _"Text color" '(6 6 206)
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-basic1-logo"
|
|
"<Toolbox>/Xtns/Logos")
|