6239dddda3
2006-10-15 Kevin Cozens <kcozens@cvs.gnome.org> With this commit we finally say goodbye to SIOD. This large set of changes updates the Script-Fu plug-in to use the TinyScheme Scheme interpreter. These changes originated with changes originally made to Script-Fu which created Tiny-Fu (aka. the gimp-tiny-fu module). * plug-ins/script-fu/Makefile.am * plug-ins/script-fu/script-fu-console.c * plug-ins/script-fu/script-fu-interface.c * plug-ins/script-fu/script-fu-scripts.c * plug-ins/script-fu/script-fu-scripts.h * plug-ins/script-fu/script-fu-server.c * plug-ins/script-fu/script-fu-text-console.c * plug-ins/script-fu/script-fu.c: Updated with the changes made to these files as part of the work on the Tiny-Fu project. * plug-ins/script-fu/scheme-wrapper.c * plug-ins/script-fu/scheme-wrapper.h: Renamed from siod-wrapper.[ch] and updated based on differences to ts-wrapper.[ch] from gimp-tiny-fu. * plug-ins/script-fu/ftx/* * plug-ins/script-fu/re/* * plug-ins/script-fu/tinyscheme/* * plug-ins/script-fu/scripts/script-fu.init * plug-ins/script-fu/scripts/script-fu-compat.init * plug-ins/script-fu/scripts/contactsheet.scm * plug-ins/script-fu/scripts/script-fu-set-cmap.scm * plug-ins/script-fu/scripts/script-fu-util-setpt.scm * plug-ins/script-fu/scripts/ts-helloworld.scm: Added all of these files and directories from Tiny-Fu. Updated the Makefile.am files of ftx, re, and tinyscheme now they are in the GIMP source tree. * plug-ins/script-fu/scripts/*.scm: All scripts have been updated as needed to ensure they will work with the TinyScheme interpreter. Most of the files have been reformatted making it easier to see the syntax of Scheme and making them easier to read. * plug-ins/script-fu/scripts/Makefile.am: Updated script file lists. * plug-ins/script-fu/siod-wrapper.c * plug-ins/script-fu/siod-wrapper.h * plug-ins/script-fu/siod/*: Removed obsolete files. * configure.in: Updated list of files in AC_CONFIG_FILES. Changed --disable-script-fu to --without-script-fu which it should have been when originally added. * INSTALL: Updated to show change to --without-script-fu.
121 lines
3.8 KiB
Scheme
121 lines
3.8 KiB
Scheme
; GLOWING
|
|
; Create a text effect that simulates a glowing hot logo
|
|
|
|
(define (apply-glowing-logo-effect img
|
|
logo-layer
|
|
size
|
|
bg-color)
|
|
(let* (
|
|
(grow (/ size 4))
|
|
(feather1 (/ size 3))
|
|
(feather2 (/ size 7))
|
|
(feather3 (/ size 10))
|
|
(width (car (gimp-drawable-width logo-layer)))
|
|
(height (car (gimp-drawable-height logo-layer)))
|
|
(posx (- (car (gimp-drawable-offsets logo-layer))))
|
|
(posy (- (cadr (gimp-drawable-offsets logo-layer))))
|
|
(glow-layer (car (gimp-layer-copy logo-layer TRUE)))
|
|
(bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
|
|
)
|
|
|
|
(gimp-context-push)
|
|
|
|
(script-fu-util-image-resize-from-layer img logo-layer)
|
|
(gimp-image-add-layer img bg-layer 1)
|
|
(gimp-image-add-layer img glow-layer 1)
|
|
(gimp-layer-translate glow-layer posx posy)
|
|
|
|
(gimp-selection-none img)
|
|
(gimp-context-set-background bg-color)
|
|
(gimp-edit-fill bg-layer BACKGROUND-FILL)
|
|
|
|
(gimp-layer-set-lock-alpha logo-layer TRUE)
|
|
(gimp-context-set-background '(0 0 0))
|
|
(gimp-edit-fill logo-layer BACKGROUND-FILL)
|
|
|
|
(gimp-selection-layer-alpha logo-layer)
|
|
(gimp-selection-feather img feather1)
|
|
(gimp-context-set-background '(221 0 0))
|
|
(gimp-edit-fill glow-layer BACKGROUND-FILL)
|
|
(gimp-edit-fill glow-layer BACKGROUND-FILL)
|
|
(gimp-edit-fill glow-layer BACKGROUND-FILL)
|
|
|
|
(gimp-selection-layer-alpha logo-layer)
|
|
(gimp-selection-feather img feather2)
|
|
(gimp-context-set-background '(232 217 18))
|
|
(gimp-edit-fill glow-layer BACKGROUND-FILL)
|
|
(gimp-edit-fill glow-layer BACKGROUND-FILL)
|
|
|
|
(gimp-selection-layer-alpha logo-layer)
|
|
(gimp-selection-feather img feather3)
|
|
(gimp-context-set-background '(255 255 255))
|
|
(gimp-edit-fill glow-layer BACKGROUND-FILL)
|
|
(gimp-selection-none img)
|
|
|
|
(gimp-layer-set-mode logo-layer OVERLAY-MODE)
|
|
(gimp-drawable-set-name glow-layer "Glow Layer")
|
|
|
|
(gimp-context-pop)
|
|
)
|
|
)
|
|
|
|
|
|
(define (script-fu-glowing-logo-alpha img
|
|
logo-layer
|
|
size
|
|
bg-color)
|
|
(begin
|
|
(gimp-image-undo-group-start img)
|
|
(apply-glowing-logo-effect img logo-layer size bg-color)
|
|
(gimp-image-undo-group-end img)
|
|
(gimp-displays-flush)
|
|
)
|
|
)
|
|
|
|
(script-fu-register "script-fu-glowing-logo-alpha"
|
|
_"Glo_wing Hot..."
|
|
_"Add a glowing hot metal effect to the selected region (or alpha)"
|
|
"Spencer Kimball"
|
|
"Spencer Kimball"
|
|
"1997"
|
|
"RGBA"
|
|
SF-IMAGE "Image" 0
|
|
SF-DRAWABLE "Drawable" 0
|
|
SF-ADJUSTMENT _"Effect size (pixels * 3)" '(150 2 1000 1 10 0 1)
|
|
SF-COLOR _"Background color" '(7 0 20)
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-glowing-logo-alpha"
|
|
"<Image>/Filters/Alpha to Logo")
|
|
|
|
(define (script-fu-glowing-logo text
|
|
size
|
|
font
|
|
bg-color)
|
|
(let* (
|
|
(img (car (gimp-image-new 256 256 RGB)))
|
|
(border (/ size 4))
|
|
(text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS font)))
|
|
)
|
|
(gimp-image-undo-disable img)
|
|
(apply-glowing-logo-effect img text-layer size bg-color)
|
|
(gimp-image-undo-enable img)
|
|
(gimp-display-new img)
|
|
)
|
|
)
|
|
|
|
(script-fu-register "script-fu-glowing-logo"
|
|
_"Glo_wing Hot..."
|
|
_"Create a logo that looks like glowing hot metal"
|
|
"Spencer Kimball"
|
|
"Spencer Kimball"
|
|
"1997"
|
|
""
|
|
SF-STRING _"Text" "GLOWING"
|
|
SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
|
|
SF-FONT _"Font" "Slogan"
|
|
SF-COLOR _"Background color" '(7 0 20)
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-glowing-logo"
|
|
"<Toolbox>/Xtns/Logos")
|