callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

applied gimp-quinet-000531-1.patch to add support for

Browse Source 
"Alpha to Logo" and correct undo handling in these logo
scripts.


--Sven
This commit is contained in:
Sven Neumann
2000-06-06 11:52:06 +00:00
parent 42413f50c0
commit c97ec171f6
22 changed files with 1381 additions and 434 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
ChangeLog
View File

@ -1,3 +1,29 @@
2000-06-05 Sven Neumann <sven@gimp.org>
* plug-ins/script-fu/scripts/3d-outline.scm
* plug-ins/script-fu/scripts/alien-glow-logo.scm
* plug-ins/script-fu/scripts/alien-neon-logo.scm
* plug-ins/script-fu/scripts/basic1-logo.scm
* plug-ins/script-fu/scripts/basic2-logo.scm
* plug-ins/script-fu/scripts/blended-logo.scm
* plug-ins/script-fu/scripts/bovinated-logo.scm
* plug-ins/script-fu/scripts/chalk.scm
* plug-ins/script-fu/scripts/chip-away.scm
* plug-ins/script-fu/scripts/chrome-logo.scm
* plug-ins/script-fu/scripts/comic-logo.scm
* plug-ins/script-fu/scripts/coolmetal-logo.scm
* plug-ins/script-fu/scripts/frosty-logo.scm
* plug-ins/script-fu/scripts/glossy.scm
* plug-ins/script-fu/scripts/glowing-logo.scm
* plug-ins/script-fu/scripts/gradient-bevel-logo.scm
* plug-ins/script-fu/scripts/neon-logo.scm
* plug-ins/script-fu/scripts/starburst-logo.scm
* plug-ins/script-fu/scripts/starscape-logo.scm
* plug-ins/script-fu/scripts/t-o-p-logo.scm
* plug-ins/script-fu/scripts/textured-logo.scm: applied
gimp-quinet-000531-1.patch to add support for "Alpha to Logo"
and correct undo handling in these logo scripts.
2000-06-05 Sven Neumann <sven@gimp.org>
* plug-ins/script-fu/scripts/clothify.scm: applied

80
plug-ins/script-fu/scripts/3d-outline.scm
View File

@ -21,27 +21,32 @@
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
(define (script-fu-3d-outline-logo text-pattern text size font outline-blur-radius shadow-blur-radius bump-map-blur-radius noninteractive s-offset-x s-offset-y)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(text-layer (car (gimp-text-fontname img -1 0 0 text 30 TRUE size PIXELS font)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(define (apply-3d-outline-logo-effect img
logo-layer
text-pattern
outline-blur-radius
shadow-blur-radius
bump-map-blur-radius
noninteractive
s-offset-x
s-offset-y)
(let* ((width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(bg-layer (car (gimp-layer-new img width height RGB_IMAGE "Background" 100 NORMAL)))
(pattern (car (gimp-layer-new img width height RGBA_IMAGE "Pattern" 100 NORMAL)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img pattern 1)
(gimp-image-add-layer img bg-layer 2)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-clear pattern)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-palette-set-foreground '(0 0 0))
(gimp-edit-fill text-layer FG-IMAGE-FILL)
(gimp-layer-set-preserve-trans text-layer FALSE)
(plug-in-gauss-iir 1 img text-layer outline-blur-radius TRUE TRUE)
(gimp-edit-fill logo-layer FG-IMAGE-FILL)
(gimp-layer-set-preserve-trans logo-layer FALSE)
(plug-in-gauss-iir 1 img logo-layer outline-blur-radius TRUE TRUE)
(gimp-layer-set-visible pattern FALSE)
(set! layer2 (car (gimp-image-merge-visible-layers img 1)))
@ -74,7 +79,60 @@
;;(set! final (car (gimp-image-flatten img)))
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-foreground old-fg)))
(define (script-fu-3d-outline-logo-alpha img
logo-layer
text-pattern
outline-blur-radius
shadow-blur-radius
bump-map-blur-radius
noninteractive
s-offset-x
s-offset-y)
(begin
(gimp-undo-push-group-start img)
(apply-3d-outline-logo-effect img logo-layer text-pattern
outline-blur-radius shadow-blur-radius
bump-map-blur-radius noninteractive
s-offset-x s-offset-y)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-3d-outline-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/3D Outline..."
"Creates outlined texts with drop shadow"
"Hrvoje Horvat (hhorvat@open.hr)"
"Hrvoje Horvat"
"07 April, 1998"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-PATTERN _"Pattern" "Parque #1"
SF-ADJUSTMENT _"Outline Blur Radius" '(5 1 200 1 10 0 1)
SF-ADJUSTMENT _"Shadow Blur Radius" '(10 1 200 1 10 0 1)
SF-ADJUSTMENT _"Bumpmap (Alpha Layer) Blur Radius" '(5 1 200 1 10 0 1)
SF-TOGGLE _"Default Bumpmap Settings" TRUE
SF-ADJUSTMENT _"Shadow X Offset" '(0 0 200 1 5 0 1)
SF-ADJUSTMENT _"Shadow Y Offset" '(0 0 200 1 5 0 1))
(define (script-fu-3d-outline-logo text-pattern
text
size
font
outline-blur-radius
shadow-blur-radius
bump-map-blur-radius
noninteractive
s-offset-x
s-offset-y)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(text-layer (car (gimp-text-fontname img -1 0 0 text 30 TRUE size PIXELS font))))
(gimp-image-undo-disable img)
(apply-3d-outline-logo-effect img text-layer text-pattern
outline-blur-radius shadow-blur-radius
bump-map-blur-radius noninteractive
s-offset-x s-offset-y)
(gimp-image-undo-enable img)
(gimp-display-new img)))

63
plug-ins/script-fu/scripts/alien-glow-logo.scm
View File

@ -1,27 +1,27 @@
; ALIEN-GLOW
; Create a text effect that simulates an eerie alien glow around text
(define (script-fu-alien-glow-logo text size font glow-color)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(border (/ size 4))
(define (apply-alien-glow-logo-effect img
logo-layer
size
glow-color)
(let* ((border (/ size 4))
(grow (/ size 30))
(feather (/ size 4))
(text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS font)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(bg-layer (car (gimp-layer-new img width height RGB_IMAGE "Background" 100 NORMAL)))
(glow-layer (car (gimp-layer-new img width height RGBA_IMAGE "Alien Glow" 100 NORMAL)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img glow-layer 1)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-clear glow-layer)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-selection-grow img grow)
(gimp-selection-feather img feather)
(gimp-palette-set-foreground glow-color)
@ -29,14 +29,51 @@
(gimp-selection-none img)
(gimp-palette-set-background '(0 0 0))
(gimp-palette-set-foreground '(79 79 79))
(gimp-blend text-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 1 1)
(gimp-layer-set-name text-layer text)
(gimp-blend logo-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 1 1)
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-foreground old-fg)))
(define (script-fu-alien-glow-logo-alpha img
logo-layer
size
glow-color)
(begin
(gimp-undo-push-group-start img)
(apply-alien-glow-logo-effect img logo-layer size glow-color)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-alien-glow-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Alien Glow..."
"Create an X-Files-esque logo with the specified glow color"
"Spencer Kimball"
"Spencer Kimball"
"1997"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Glow Size (pixels * 4)" '(150 2 1000 1 10 0 1)
SF-COLOR _"Glow Color" '(63 252 0))
(define (script-fu-alien-glow-logo text
size
font
glow-color)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(border (/ size 4))
(grow (/ size 30))
(feather (/ size 4))
(text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS font)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-layer-set-name text-layer text)
(apply-alien-glow-logo-effect img text-layer size glow-color)
(gimp-image-undo-enable img)
(gimp-display-new img)))
(script-fu-register "script-fu-alien-glow-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Alien Glow..."
"Create an X-Files-esque logo with the specified glow color"

186
plug-ins/script-fu/scripts/alien-neon-logo.scm
View File

@ -2,7 +2,7 @@
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; alien-neon-logo.scm - creates multiple outlines around the letters
; Copyright (C) 1999 Raphael Quinet <quinet@gamers.org>
; Copyright (C) 1999-2000 Raphael Quinet <quinet@gamers.org>
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
@ -21,8 +21,116 @@
; 1999-12-01 First version.
; 2000-02-19 Do not discard the layer mask so that it can still be edited.
; 2000-03-08 Adapted the script to my gimp-edit-fill changes.
; 2000-04-02 Split the script in two parts: one using text, one using alpha.
; 2000-05-29 More modifications for "Alpha to Logo" using a separate function.
;
; To do: use a channel mask for creating the bands, instead of working in the
; image. gimp-invert would then work on one grayscale channel instead of
; wasting CPU cycles on three identical R, G, B channels.
;
(define (apply-alien-neon-logo-effect img
logo-layer
fg-color
bg-color
band-size
gap-size
num-bands
do-fade)
(let* ((fade-size (- (* (+ band-size gap-size) num-bands) 1))
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(bg-layer (car (gimp-layer-new img width height RGB_IMAGE "Background" 100 NORMAL)))
(bands-layer (car (gimp-layer-new img width height RGBA_IMAGE "Bands" 100 NORMAL)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img bands-layer 1)
(gimp-selection-none img)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill bands-layer BG-IMAGE-FILL)
; The text layer is never shown: it is only used to create a selection
(gimp-selection-layer-alpha logo-layer)
(gimp-palette-set-foreground '(255 255 255))
(gimp-edit-fill bands-layer FG-IMAGE-FILL)
; Create multiple outlines by growing and inverting the selection
; The bands are black and white because they will be used as a mask.
(while (> num-bands 0)
(gimp-selection-grow img band-size)
(gimp-invert bands-layer)
(gimp-selection-grow img gap-size)
(gimp-invert bands-layer)
(set! num-bands (- num-bands 1)))
; The fading effect is obtained by masking the image with a gradient.
; The gradient is created by filling a bordered selection (white->black).
(if (= do-fade TRUE)
(let ((bands-layer-mask (car (gimp-layer-create-mask bands-layer
BLACK-MASK))))
(gimp-image-add-layer-mask img bands-layer bands-layer-mask)
(gimp-selection-layer-alpha logo-layer)
(gimp-selection-border img fade-size)
(gimp-edit-fill bands-layer-mask FG-IMAGE-FILL)
(gimp-image-remove-layer-mask img bands-layer APPLY)))
; Transfer the resulting grayscale bands into the layer mask.
(let ((bands-layer-mask (car (gimp-layer-create-mask bands-layer
BLACK-MASK))))
(gimp-image-add-layer-mask img bands-layer bands-layer-mask)
(gimp-selection-none img)
(gimp-edit-copy bands-layer)
(gimp-floating-sel-anchor (car (gimp-edit-paste bands-layer-mask
FALSE))))
; Fill the layer with the foreground color. The areas that are not
; masked become visible.
(gimp-palette-set-foreground fg-color)
(gimp-edit-fill bands-layer FG-IMAGE-FILL)
;; (gimp-image-remove-layer-mask img bands-layer APPLY)
; Clean up and exit.
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
(gimp-layer-set-visible logo-layer 0)
(gimp-image-set-active-layer img bands-layer)
(gimp-displays-flush)))
(define (script-fu-alien-neon-logo-alpha img
logo-layer
fg-color
bg-color
band-size
gap-size
num-bands
do-fade)
(begin
(gimp-undo-push-group-start img)
(apply-alien-neon-logo-effect img logo-layer fg-color bg-color
band-size gap-size num-bands do-fade)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-alien-neon-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Alien Neon..."
"Creates a psychedelic effect with outlines of the specified color around the letters"
"Raphael Quinet (quinet@gamers.org)"
"Raphael Quinet"
"1999-2000"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-COLOR _"Glow Color" '(0 255 0)
SF-COLOR _"Background Color" '(0 0 0)
SF-ADJUSTMENT _"Width of Bands" '(2 1 60 1 10 0 0)
SF-ADJUSTMENT _"Width of Gaps" '(2 1 60 1 10 0 0)
SF-ADJUSTMENT _"Number of Bands" '(7 1 100 1 10 0 1)
SF-TOGGLE _"Fade Away" TRUE
)
(define (script-fu-alien-neon-logo text
size
fontname
@ -34,78 +142,13 @@
do-fade)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(fade-size (- (* (+ band-size gap-size) num-bands) 1))
(text-layer (car (gimp-text-fontname img -1 0 0 text (+ fade-size 10) TRUE size PIXELS fontname)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(bg-layer (car (gimp-layer-new img width height RGB_IMAGE "Background" 100 NORMAL)))
(bands-layer (car (gimp-layer-new img width height RGBA_IMAGE "Bands" 100 NORMAL)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background)))
)
(text-layer (car (gimp-text-fontname img -1 0 0 text (+ fade-size 10) TRUE size PIXELS fontname))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img bands-layer 1)
(gimp-selection-none img)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill bands-layer BG-IMAGE-FILL)
; The text layer is never shown: it is only used to create a selection
(gimp-selection-layer-alpha text-layer)
(gimp-palette-set-foreground '(255 255 255))
(gimp-edit-fill bands-layer FG-IMAGE-FILL)
; Create multiple outlines by growing and inverting the selection
; The bands are black and white because they will be used as a mask.
(while (> num-bands 0)
(gimp-selection-grow img band-size)
(gimp-invert bands-layer)
(gimp-selection-grow img gap-size)
(gimp-invert bands-layer)
(set! num-bands (- num-bands 1))
)
; The fading effect is obtained by masking the image with a gradient.
; The gradient is created by filling a bordered selection (white->black).
(if (= do-fade TRUE)
(let ((bands-layer-mask (car (gimp-layer-create-mask bands-layer
BLACK-MASK)))
)
(gimp-image-add-layer-mask img bands-layer bands-layer-mask)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-border img fade-size)
(gimp-edit-fill bands-layer-mask FG-IMAGE-FILL)
(gimp-image-remove-layer-mask img bands-layer APPLY)
)
)
; Transfer the resulting grayscale bands into the layer mask.
(let ((bands-layer-mask (car (gimp-layer-create-mask bands-layer
BLACK-MASK)))
)
(gimp-image-add-layer-mask img bands-layer bands-layer-mask)
(gimp-selection-none img)
(gimp-edit-copy bands-layer)
(gimp-floating-sel-anchor (car (gimp-edit-paste bands-layer-mask
FALSE)))
)
; Fill the layer with the foreground color. The areas that are not
; masked become visible.
(gimp-palette-set-foreground fg-color)
(gimp-edit-fill bands-layer FG-IMAGE-FILL)
;; (gimp-image-remove-layer-mask img bands-layer APPLY)
; Clean up and exit.
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
(gimp-layer-set-visible text-layer 0)
(gimp-image-set-active-layer img bands-layer)
(gimp-layer-set-name text-layer text)
(apply-alien-neon-logo-effect img text-layer fg-color bg-color
band-size gap-size num-bands do-fade)
(gimp-image-undo-enable img)
(gimp-display-new img)
)
)
(gimp-display-new img)))
(script-fu-register "script-fu-alien-neon-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Alien Neon..."
@ -124,5 +167,6 @@
SF-ADJUSTMENT _"Number of Bands" '(7 1 100 1 10 0 1)
SF-TOGGLE _"Fade Away" TRUE
)
; end

58
plug-ins/script-fu/scripts/basic1-logo.scm
View File

@ -1,36 +1,68 @@
; DROP-SHADOW-LOGO
; draw the specified text over a background with a drop shadow
(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)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(bg-layer (car (gimp-layer-new img width height RGB_IMAGE "Background" 100 NORMAL)))
(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)))
(shadow-layer (car (gimp-layer-new img width height RGBA_IMAGE "Shadow" 100 MULTIPLY)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img shadow-layer 1)
(gimp-image-add-layer img bg-layer 2)
(gimp-palette-set-foreground text-color)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-edit-fill text-layer FG-IMAGE-FILL)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-edit-fill logo-layer FG-IMAGE-FILL)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-clear shadow-layer)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-palette-set-background '(0 0 0))
(gimp-selection-feather img 7.5)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-palette-set-foreground '(255 255 255))
(gimp-blend text-layer FG-BG-RGB MULTIPLY RADIAL 100 20 REPEAT-NONE FALSE 0 0 0 0 width height)
(gimp-blend logo-layer FG-BG-RGB MULTIPLY RADIAL 100 20 REPEAT-NONE FALSE 0 0 0 0 width height)
(gimp-layer-translate shadow-layer 3 3)
(gimp-layer-set-name text-layer text)
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-foreground old-fg)))
(define (script-fu-basic1-logo-alpha img
logo-layer
bg-color
text-color)
(begin
(gimp-undo-push-group-start img)
(apply-basic1-logo-effect img logo-layer bg-color text-color)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-basic1-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Basic I..."
"Creates a simple logo with a drop shadow"
"Spencer Kimball"
"Spencer Kimball"
"1996"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-COLOR _"Background Color" '(255 255 255)
SF-COLOR _"Text Color" '(6 6 206))
(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)
(gimp-layer-set-name text-layer text)
(apply-basic1-logo-effect img text-layer bg-color text-color)
(gimp-image-undo-enable img)
(gimp-display-new img)))

58
plug-ins/script-fu/scripts/basic2-logo.scm
View File

@ -10,43 +10,75 @@
(set! b (+ b (* (- 255 b) 0.75)))
(list r g b)))
(define (script-fu-basic2-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)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(define (apply-basic2-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 RGB_IMAGE "Background" 100 NORMAL)))
(highlight-layer (car (gimp-layer-copy text-layer TRUE)))
(highlight-layer (car (gimp-layer-copy logo-layer TRUE)))
(shadow-layer (car (gimp-layer-new img width height RGBA_IMAGE "Shadow" 100 MULTIPLY)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img shadow-layer 1)
(gimp-image-add-layer img highlight-layer 1)
(gimp-palette-set-foreground text-color)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-edit-fill text-layer FG-IMAGE-FILL)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-edit-fill logo-layer FG-IMAGE-FILL)
(gimp-edit-clear shadow-layer)
(gimp-palette-set-foreground (color-highlight text-color))
(gimp-layer-set-preserve-trans highlight-layer TRUE)
(gimp-edit-fill highlight-layer FG-IMAGE-FILL)
(gimp-palette-set-background bg-color)
(gimp-drawable-fill bg-layer BG-IMAGE-FILL)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-palette-set-background '(0 0 0))
(gimp-selection-feather img 7.5)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-palette-set-foreground '(255 255 255))
(gimp-blend text-layer FG-BG-RGB MULTIPLY RADIAL 100 20 REPEAT-NONE FALSE 0 0 0 0 width height)
(gimp-blend logo-layer FG-BG-RGB MULTIPLY RADIAL 100 20 REPEAT-NONE FALSE 0 0 0 0 width height)
(gimp-layer-translate shadow-layer 3 3)
(gimp-layer-translate highlight-layer -2 -2)
(gimp-layer-set-name text-layer text)
(gimp-layer-set-name highlight-layer "Highlight")
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-foreground old-fg)))
(define (script-fu-basic2-logo-alpha img
logo-layer
bg-color
text-color)
(begin
(gimp-undo-push-group-start img)
(apply-basic2-logo-effect img logo-layer bg-color text-color)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-basic2-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Basic II..."
"Creates a simple logo with a shadow and a highlight"
"Spencer Kimball"
"Spencer Kimball"
"1996"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-COLOR _"Background Color" '(255 255 255)
SF-COLOR _"Text Color" '(206 6 50))
(define (script-fu-basic2-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)
(gimp-layer-set-name text-layer text)
(apply-basic2-logo-effect img text-layer bg-color text-color)
(gimp-image-undo-enable img)
(gimp-display-new img)))

111
plug-ins/script-fu/scripts/blended-logo.scm
View File

@ -7,17 +7,20 @@
(define (scale size percent) (* size percent))
;(define (script-fu-blended-logo blend-mode text size font bg-color text-color blend-fg blend-bg)
(define (script-fu-blended-logo text size font bg-color text-color bg-gradient)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(b-size (scale size 0.1))
(b-size-2 (scale size 0.05))
(f-size (scale size 0.075))
(ds-size (scale size 0.05))
(define (apply-blended-logo-effect img
logo-layer
b-size
bg-color
blend-mode
blend-fg
blend-bg
blend-gradient)
(let* ((b-size-2 (scale b-size 0.5))
(f-size (scale b-size 0.75))
(ds-size (scale b-size 0.5))
(ts-size (- b-size-2 3))
(text-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(blend-layer (car (gimp-layer-new img width height RGBA_IMAGE "Blend" 100 NORMAL)))
(shadow-layer (car (gimp-layer-new img width height RGBA_IMAGE "Shadow" 100 NORMAL)))
(text-shadow-layer (car (gimp-layer-new img width height RGBA_IMAGE "Text Shadow" 100 MULTIPLY)))
@ -27,7 +30,6 @@
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background)))
(old-grad (car (gimp-gradients-get-active))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img shadow-layer 1)
(gimp-image-add-layer img blend-layer 1)
@ -37,15 +39,12 @@
(gimp-edit-clear text-shadow-layer)
(gimp-edit-clear drop-shadow-layer)
(gimp-edit-clear blend-layer)
(gimp-palette-set-foreground text-color)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-edit-fill text-layer FG-IMAGE-FILL)
(gimp-palette-set-background bg-color)
(gimp-drawable-fill shadow-layer BG-IMAGE-FILL)
(gimp-rect-select img b-size-2 b-size-2 (- width b-size) (- height b-size) REPLACE TRUE b-size-2)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-image-add-layer-mask img text-shadow-layer tsl-layer-mask)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill tsl-layer-mask BG-IMAGE-FILL)
@ -57,11 +56,11 @@
(gimp-palette-set-foreground '(255 255 255))
(gimp-blend text-shadow-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 1 1)
(gimp-selection-none img)
; (gimp-palette-set-foreground blend-fg)
; (gimp-palette-set-background blend-bg)
(gimp-gradients-set-active bg-gradient)
(gimp-blend blend-layer CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 width 0)
(gimp-layer-translate text-layer (- b-size-2) (- b-size-2))
(gimp-palette-set-foreground blend-fg)
(gimp-palette-set-background blend-bg)
(gimp-gradients-set-active blend-gradient)
(gimp-blend blend-layer blend-mode NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 width 0)
(gimp-layer-translate logo-layer (- b-size-2) (- b-size-2))
(gimp-layer-translate blend-layer (- b-size) (- b-size))
(gimp-layer-translate text-shadow-layer (- ts-size) (- ts-size))
(gimp-layer-translate drop-shadow-layer ds-size ds-size)
@ -71,10 +70,66 @@
(gimp-edit-fill dsl-layer-mask BG-IMAGE-FILL)
(gimp-image-remove-layer-mask img drop-shadow-layer APPLY)
(gimp-selection-none img)
(gimp-layer-set-name text-layer text)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
(gimp-gradients-set-active old-grad)
(gimp-gradients-set-active old-grad)))
(define (script-fu-blended-logo-alpha img
logo-layer
b-size
bg-color
blend-mode
blend-fg
blend-bg
blend-gradient)
(begin
(gimp-undo-push-group-start img)
(apply-blended-logo-effect img logo-layer b-size bg-color
blend-mode blend-fg blend-bg blend-gradient)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-blended-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Blended..."
"Creates logos with blended backgrounds, highlights, and shadows"
"Spencer Kimball"
"Spencer Kimball"
"1996"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Offset (pixels)" '(15 1 100 1 10 0 1)
SF-COLOR _"Background Color" '(255 255 255)
SF-OPTION _"Blend Mode" '(_"FG-BG-RGB" _"FG-BG-HSV"
_"FG-Transparent"
_"Custom Gradient")
SF-COLOR _"Start Blend" '(22 9 129)
SF-COLOR _"End Blend" '(129 9 82)
SF-GRADIENT _"Gradient" "Golden"
)
(define (script-fu-blended-logo text
size
font
text-color
bg-color
blend-mode
blend-fg
blend-bg
blend-gradient)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(b-size (scale size 0.1))
(text-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font)))
(old-fg (car (gimp-palette-get-foreground))))
(gimp-image-undo-disable img)
(gimp-layer-set-name text-layer text)
(gimp-palette-set-foreground text-color)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-edit-fill text-layer FG-IMAGE-FILL)
(gimp-palette-set-foreground old-fg)
(apply-blended-logo-effect img text-layer b-size bg-color
blend-mode blend-fg blend-bg blend-gradient)
(gimp-image-undo-enable img)
(gimp-display-new img)))
@ -85,13 +140,15 @@
"Spencer Kimball"
"1996"
""
; SF-VALUE _"Blend Mode" "FG-BG-RGB"
SF-STRING _"Text" "The GIMP"
SF-ADJUSTMENT _"Font Size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "-*-Crillee-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR _"Background Color" '(255 255 255)
SF-COLOR _"Text Color" '(124 174 255)
SF-GRADIENT _"Background Gradient" "Golden"
; SF-COLOR _"Start Blend" '(22 9 129)
; SF-COLOR _"End Blend" '(129 9 82)
SF-COLOR _"Background Color" '(255 255 255)
SF-OPTION _"Blend Mode" '(_"FG-BG-RGB" _"FG-BG-HSV"
_"FG-Transparent"
_"Custom Gradient")
SF-COLOR _"Start Blend" '(22 9 129)
SF-COLOR _"End Blend" '(129 9 82)
SF-GRADIENT _"Gradient" "Golden"
)

72
plug-ins/script-fu/scripts/bovinated-logo.scm
View File

@ -19,17 +19,17 @@
; by Brian McFee <keebler@wco.com>
; Creates Cow-spotted logs.. what else?
(define (script-fu-bovinated-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)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(define (apply-bovinated-logo-effect img
logo-layer
spots-x
spots-y
bg-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)))
(blur-layer (car (gimp-layer-new img width height RGBA_IMAGE "Blur" 100 NORMAL)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img blur-layer 1)
@ -47,28 +47,63 @@
(gimp-palette-set-background '(191 191 191))
(gimp-selection-none img)
(gimp-layer-set-preserve-trans blur-layer FALSE)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-edit-fill blur-layer BG-IMAGE-FILL)
(plug-in-gauss-rle 1 img blur-layer 5.0 1 1)
(gimp-selection-none img)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-selection-all img)
(plug-in-solid-noise 1 img text-layer 0 0 23 1 16.0 4.0)
(gimp-brightness-contrast text-layer 0 127)
(plug-in-solid-noise 1 img logo-layer 0 0 23 1 spots-x spots-y)
(gimp-brightness-contrast logo-layer 0 127)
(gimp-selection-none img)
(gimp-layer-set-preserve-trans text-layer FALSE)
(gimp-layer-set-name text-layer text)
(plug-in-bump-map 1 img text-layer blur-layer 135 50 10 0 0 0 30 TRUE FALSE 0)
(gimp-layer-set-preserve-trans logo-layer FALSE)
(plug-in-bump-map 1 img logo-layer blur-layer 135 50 10 0 0 0 30 TRUE FALSE 0)
(gimp-layer-set-offsets blur-layer 5 5)
(gimp-invert blur-layer)
(gimp-layer-set-opacity blur-layer 50.0)
(gimp-image-set-active-layer img text-layer)
(gimp-image-set-active-layer img logo-layer)
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-foreground old-fg)))
(define (script-fu-bovinated-logo-alpha img
logo-layer
spots-x
spots-y
bg-color)
(begin
(gimp-undo-push-group-start img)
(apply-bovinated-logo-effect img logo-layer spots-x spots-y bg-color)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-bovinated-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Bovination..."
"Makes Cow-spotted logos"
"Brian McFee <keebler@wco.com>"
"Brian McFee"
"April 1998"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Spots density X" '(16 1 16 1 10 0 1)
SF-ADJUSTMENT _"Spots density Y" '(4 1 16 1 10 0 1)
SF-COLOR _"Background Color" '(255 255 255))
(define (script-fu-bovinated-logo text
size
font
spots-x
spots-y
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)
(gimp-layer-set-name text-layer text)
(apply-bovinated-logo-effect img text-layer spots-x spots-y bg-color)
(gimp-image-undo-enable img)
(gimp-display-new img)))
(script-fu-register "script-fu-bovinated-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Bovination..."
"Makes Cow-spotted logos"
@ -79,4 +114,7 @@
SF-STRING _"Text" "Fear the Cow"
SF-ADJUSTMENT _"Font Size (pixels)" '(80 2 1000 1 10 0 1)
SF-FONT _"Font" "-*-roostheavy-*-r-*-*-24-*-*-*-p-*-*-*"
SF-ADJUSTMENT _"Spots density X" '(16 1 16 1 10 0 1)
SF-ADJUSTMENT _"Spots density Y" '(4 1 16 1 10 0 1)
SF-COLOR _"Background Color" '(255 255 255))

80
plug-ins/script-fu/scripts/chalk.scm
View File

@ -21,48 +21,77 @@
;
; Makes a logo with a chalk-like text effect.
(define (script-fu-chalk-logo text size font bg-color chalk-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)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(define (apply-chalk-logo-effect img
logo-layer
bg-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 RGB_IMAGE "Background" 100 NORMAL)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img bg-layer 1)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-clear text-layer)
; is there any other way to do this?
; the sobel edge detect won't work with the methods in other scripts
(gimp-palette-set-foreground chalk-color)
(set! float-layer (car (gimp-text-fontname img text-layer 0 0 text border TRUE size PIXELS font)))
(gimp-floating-sel-anchor float-layer)
; the actual effect
(plug-in-gauss-rle 1 img text-layer 2.0 1 1)
(plug-in-spread 1 img text-layer 5.0 5.0)
(plug-in-ripple 1 img text-layer 27 2 0 0 0 TRUE TRUE)
(plug-in-ripple 1 img text-layer 27 2 1 0 0 TRUE TRUE)
(plug-in-sobel 1 img text-layer TRUE TRUE TRUE)
(gimp-levels text-layer 0 0 120 3.5 0 255)
(gimp-layer-set-preserve-trans logo-layer FALSE)
(plug-in-gauss-rle 1 img logo-layer 2.0 1 1)
(plug-in-spread 1 img logo-layer 5.0 5.0)
(plug-in-ripple 1 img logo-layer 27 2 0 0 0 TRUE TRUE)
(plug-in-ripple 1 img logo-layer 27 2 1 0 0 TRUE TRUE)
(plug-in-sobel 1 img logo-layer TRUE TRUE TRUE)
(gimp-levels logo-layer 0 0 120 3.5 0 255)
; work-around for sobel edge detect screw-up (why does this happen?)
; the top line of the image has some garbage instead of the bgcolor
(gimp-rect-select img 0 0 width 1 ADD FALSE 0)
(gimp-edit-clear text-layer)
(gimp-edit-clear logo-layer)
(gimp-selection-none img)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-layer-set-name text-layer text)
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)))
(define (script-fu-chalk-logo-alpha img
logo-layer
bg-color)
(begin
(gimp-undo-push-group-start img)
(apply-chalk-logo-effect img logo-layer bg-color)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-chalk-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Chalk..."
"Chalk scribbled logos"
"Manish Singh <msingh@uclink4.berkeley.edu>"
"Manish Singh"
"October 1997"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-COLOR _"Background Color" '(0 0 0)
)
(define (script-fu-chalk-logo text
size
font
bg-color
chalk-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)))
(old-fg (car (gimp-palette-get-foreground))))
(gimp-image-undo-disable img)
(gimp-layer-set-name text-layer text)
(gimp-palette-set-foreground chalk-color)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-edit-fill text-layer FG-IMAGE-FILL)
(gimp-palette-set-foreground old-fg)
(apply-chalk-logo-effect img text-layer bg-color)
(gimp-image-undo-enable img)
(gimp-display-new img)))
@ -77,4 +106,5 @@
SF-ADJUSTMENT _"Font Size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "-*-Cooper-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR _"Background Color" '(0 0 0)
SF-COLOR _"Chalk Color" '(255 255 255))
SF-COLOR _"Chalk Color" '(255 255 255)
)

113
plug-ins/script-fu/scripts/chip-away.scm
View File

@ -36,21 +36,26 @@
; Some suggested patterns: Dried mud, 3D green, Slate
;
(define (script-fu-logo-chip-away text font font-size spread-amount blur-amount invert drop-shadow keep-bump bg-fill keep-back pattern)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(text-layer (car (gimp-text-fontname img -1 0 0
text 30 TRUE font-size PIXELS font)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(define (apply-chip-away-logo-effect img
logo-layer
spread-amount
blur-amount
invert
drop-shadow
keep-bump
bg-fill
keep-back
pattern)
(let* ((width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(bg-layer (car (gimp-layer-new img width height RGB_IMAGE "Background" 100 NORMAL)))
(bump-layer (car (gimp-layer-new img width height RGBA_IMAGE "Bump Layer" 100 NORMAL)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background)))
(old-pattern (car (gimp-patterns-get-pattern))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img bg-layer 1)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-patterns-set-pattern pattern)
(gimp-palette-set-background '(255 255 255))
@ -63,9 +68,9 @@
(gimp-selection-all img)
(gimp-edit-clear bump-layer)
(gimp-selection-none img)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-edit-fill bump-layer BG-IMAGE-FILL)
(gimp-bucket-fill text-layer 2 NORMAL 100 255 FALSE 1 1)
(gimp-bucket-fill logo-layer 2 NORMAL 100 255 FALSE 1 1)
(gimp-selection-none img)
(gimp-image-add-layer img bump-layer 1)
@ -77,7 +82,7 @@
(gimp-selection-none img)
(plug-in-bump-map 1 img text-layer bump-layer 135.00 25.0 60 0 0 0 0 TRUE invert 1)
(plug-in-bump-map 1 img logo-layer bump-layer 135.00 25.0 60 0 0 0 0 TRUE invert 1)
(gimp-layer-set-visible bump-layer FALSE)
@ -87,7 +92,7 @@
(gimp-selection-all img)
(gimp-edit-clear shadow-layer)
(gimp-selection-none img)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-selection-none img)
@ -98,21 +103,75 @@
(if (= keep-bump FALSE)
(gimp-image-remove-layer img bump-layer))
(if (= keep-back FALSE)
(gimp-image-remove-layer img bg-layer))
(gimp-patterns-set-pattern old-pattern)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
(gimp-image-undo-enable img)
(gimp-display-new img)
))
(define (script-fu-chip-away-logo-alpha img
logo-layer
spread-amount
blur-amount
invert
drop-shadow
keep-bump
bg-fill
keep-back
pattern)
(begin
(gimp-undo-push-group-start img)
(apply-chip-away-logo-effect img logo-layer spread-amount blur-amount
invert drop-shadow keep-bump bg-fill
keep-back pattern)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-logo-chip-away"
(script-fu-register "script-fu-chip-away-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Chip Away..."
"Chip away effect"
"Adrian Likins <adrian@gimp.org>"
"Adrian Likins <adrian@gimp.org>"
"1997"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Chip Amount" '(30 0 250 1 10 0 1)
SF-ADJUSTMENT _"Blur Amount" '(3 1 100 1 10 1 0)
SF-TOGGLE _"Invert" FALSE
SF-TOGGLE _"Drop Shadow" TRUE
SF-TOGGLE _"Keep Bump Layer" FALSE
SF-TOGGLE _"Fill BG with Pattern" TRUE
SF-TOGGLE _"Keep Background" TRUE
SF-PATTERN _"Pattern" "Burlwood"
)
(define (script-fu-chip-away-logo text
font
font-size
spread-amount
blur-amount
invert
drop-shadow
keep-bump
bg-fill
keep-back
pattern)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(text-layer (car (gimp-text-fontname img -1 0 0
text 30 TRUE font-size PIXELS font))))
(gimp-image-undo-disable img)
(gimp-layer-set-name text-layer text)
(apply-chip-away-logo-effect img text-layer spread-amount blur-amount
invert drop-shadow keep-bump bg-fill
keep-back pattern)
(gimp-image-undo-enable img)
(gimp-display-new img)))
(script-fu-register "script-fu-chip-away-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Chip Away..."
"Chip away effect"
"Adrian Likins <adrian@gimp.org>"
@ -122,13 +181,13 @@
SF-STRING _"Text" "Sloth"
SF-FONT _"Font" "-*-roostheavy-*-r-*-*-24-*-*-*-p-*-*-*"
SF-ADJUSTMENT _"Font Size (pixels)" '(200 2 1000 1 10 0 1)
SF-ADJUSTMENT _"Chip Amount" '(30 0 250 1 10 0 1)
SF-ADJUSTMENT _"Blur Amount" '(3 1 100 1 10 1 0)
SF-TOGGLE _"Invert" FALSE
SF-TOGGLE _"Drop Shadow" TRUE
SF-TOGGLE _"Keep Bump Layer" FALSE
SF-TOGGLE _"Fill BG with Pattern" TRUE
SF-TOGGLE _"Keep Background" TRUE
SF-PATTERN _"Pattern" "Burlwood")
SF-ADJUSTMENT _"Chip Amount" '(30 0 250 1 10 0 1)
SF-ADJUSTMENT _"Blur Amount" '(3 1 100 1 10 1 0)
SF-TOGGLE _"Invert" FALSE
SF-TOGGLE _"Drop Shadow" TRUE
SF-TOGGLE _"Keep Bump Layer" FALSE
SF-TOGGLE _"Fill BG with Pattern" TRUE
SF-TOGGLE _"Keep Background" TRUE
SF-PATTERN _"Pattern" "Burlwood"
)

72
plug-ins/script-fu/scripts/chrome-logo.scm
View File

@ -1,16 +1,16 @@
; CHROME-LOGOS
(define (script-fu-chrome-logo text size font bg-color)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(b-size (* size 0.2))
(offx1 (* size 0.04))
(offy1 (* size 0.03))
(offx2 (* size (- 0.04)))
(offy2 (* size (- 0.03)))
(feather (* size 0.05))
(text-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(define (apply-chrome-logo-effect img
logo-layer
offsets
bg-color)
(let* ((offx1 (* offsets 0.4))
(offy1 (* offsets 0.3))
(offx2 (* offsets (- 0.4)))
(offy2 (* offsets (- 0.3)))
(feather (* offsets 0.5))
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(layer1 (car (gimp-layer-new img width height RGBA_IMAGE "Layer 1" 100 DIFFERENCE)))
(layer2 (car (gimp-layer-new img width height RGBA_IMAGE "Layer 2" 100 DIFFERENCE)))
(layer3 (car (gimp-layer-new img width height RGBA_IMAGE "Layer 3" 100 NORMAL)))
@ -19,7 +19,6 @@
(layer-mask (car (gimp-layer-create-mask layer1 BLACK-MASK)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img background 1)
(gimp-image-add-layer img shadow 1)
@ -32,8 +31,8 @@
(gimp-edit-fill layer2 BG-IMAGE-FILL)
(gimp-edit-fill layer3 BG-IMAGE-FILL)
(gimp-edit-clear shadow)
(gimp-selection-layer-alpha text-layer)
(gimp-layer-set-visible text-layer FALSE)
(gimp-selection-layer-alpha logo-layer)
(gimp-layer-set-visible logo-layer FALSE)
(gimp-layer-set-visible shadow FALSE)
(gimp-layer-set-visible background FALSE)
(gimp-palette-set-background '(0 0 0))
@ -47,7 +46,7 @@
(set! layer1 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(gimp-invert layer1)
(gimp-image-add-layer-mask img layer1 layer-mask)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-palette-set-background '(255 255 255))
(gimp-selection-feather img feather)
(gimp-edit-fill layer-mask BG-IMAGE-FILL)
@ -57,12 +56,46 @@
(gimp-selection-none img)
(gimp-palette-set-background bg-color)
(gimp-edit-fill background BG-IMAGE-FILL)
(gimp-image-remove-layer img text-layer)
(gimp-layer-set-visible shadow TRUE)
(gimp-layer-set-visible background TRUE)
(gimp-layer-set-name layer1 text)
(gimp-layer-set-name layer1 (car (gimp-layer-get-name logo-layer)))
(gimp-image-remove-layer img logo-layer)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
(gimp-palette-set-background old-bg)))
(define (script-fu-chrome-logo-alpha img
logo-layer
offsets
bg-color)
(begin
(gimp-undo-push-group-start img)
(apply-chrome-logo-effect img logo-layer offsets bg-color)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-chrome-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Chrome..."
"Somewhat simplistic, but cool chromed logos"
"Spencer Kimball"
"Spencer Kimball & Peter Mattis"
"1997"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Offsets (pixels * 2)" '(10 2 100 1 10 0 1)
SF-COLOR _"Background Color" '(191 191 191)
)
(define (script-fu-chrome-logo text
size
font
bg-color)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(b-size (* size 0.2))
(text-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font))))
(gimp-image-undo-disable img)
(gimp-layer-set-name text-layer text)
(apply-chrome-logo-effect img text-layer (* size 0.1) bg-color)
(gimp-image-undo-enable img)
(gimp-display-new img)))
@ -76,4 +109,5 @@
SF-STRING _"Text" "The GIMP"
SF-ADJUSTMENT _"Font Size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT _"Font" "-*-Bodoni-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR _"Background Color" '(191 191 191))
SF-COLOR _"Background Color" '(191 191 191)
)

84
plug-ins/script-fu/scripts/comic-logo.scm
View File

@ -19,19 +19,20 @@
; by Brian McFee
; Creates snazzy-looking text, inspired by watching a Maxx marathon :)
(define (script-fu-comic-logo text size font gradient ol-width ol-color 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)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(define (apply-comic-logo-effect img
logo-layer
gradient
ol-width
ol-color
bg-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)))
(white-layer (car (gimp-layer-copy text-layer 1)))
(black-layer (car (gimp-layer-copy text-layer 1)))
(white-layer (car (gimp-layer-copy logo-layer 1)))
(black-layer (car (gimp-layer-copy logo-layer 1)))
(old-gradient (car (gimp-gradients-get-active)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img white-layer 1)
@ -64,23 +65,65 @@
(plug-in-threshold-alpha 1 img black-layer 0)
(gimp-gradients-set-active gradient)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-selection-all img)
(gimp-blend text-layer CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 (* 2 border) 0 (- height border))
(plug-in-noisify 1 img text-layer 0 0.20 0.20 0.20 0.20)
(gimp-blend logo-layer CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 (* height 0.33333) 0 (* height 0.83333))
(plug-in-noisify 1 img logo-layer 0 0.20 0.20 0.20 0.20)
(gimp-selection-none img)
(gimp-layer-set-preserve-trans text-layer FALSE)
(gimp-brightness-contrast text-layer 0 30)
(plug-in-threshold-alpha 1 img text-layer 60)
(gimp-layer-set-name text-layer text)
(gimp-image-set-active-layer img text-layer)
(gimp-layer-set-preserve-trans logo-layer FALSE)
(gimp-brightness-contrast logo-layer 0 30)
(plug-in-threshold-alpha 1 img logo-layer 60)
(gimp-image-set-active-layer img logo-layer)
(gimp-gradients-set-active old-gradient)
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-foreground old-fg)))
(define (script-fu-comic-logo-alpha img
logo-layer
gradient
ol-width
ol-color
bg-color)
(begin
(gimp-undo-push-group-start img)
(apply-comic-logo-effect img logo-layer gradient ol-width ol-color
bg-color)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-comic-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Comic Book..."
"Comic-book Style Logos"
"Brian McFee <keebler@wco.com>"
"Brian McFee"
"April 1998"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-GRADIENT _"Gradient" "Incandescent"
SF-ADJUSTMENT _"Outline Size" '(5 1 100 1 10 0 1)
SF-COLOR _"Outline Color" '(255 255 255)
SF-COLOR _"Background Color" '(255 255 255)
)
(define (script-fu-comic-logo text
size
font
gradient
ol-width
ol-color
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)
(gimp-layer-set-name text-layer text)
(apply-comic-logo-effect img text-layer gradient ol-width ol-color
bg-color)
(gimp-image-undo-enable img)
(gimp-display-new img)))
(script-fu-register "script-fu-comic-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Comic Book..."
"Comic-book Style Logos"
@ -94,4 +137,5 @@
SF-GRADIENT _"Gradient" "Incandescent"
SF-ADJUSTMENT _"Outline Size" '(5 1 100 1 10 0 1)
SF-COLOR _"Outline Color" '(255 255 255)
SF-COLOR _"Background Color" '(255 255 255))
SF-COLOR _"Background Color" '(255 255 255)
)

82
plug-ins/script-fu/scripts/coolmetal-logo.scm
View File

@ -4,17 +4,19 @@
; an interesting dropshadow
; This script was inspired by Rob Malda's 'coolmetal.gif' graphic
(define (script-fu-cool-metal-logo text size font bg-color gradient)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(feather (/ size 5))
(define (apply-cool-metal-logo-effect img
logo-layer
size
bg-color
gradient)
(let* ((feather (/ size 5))
(smear 7.5)
(period (/ size 3))
(amplitude (/ size 40))
(shrink (+ 1 (/ size 30)))
(depth (/ size 20))
(text-layer (car (gimp-text-fontname img -1 0 0 text 0 TRUE size PIXELS font)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(img-width (+ width (* 0.15 height) 10))
(img-height (+ (* 1.85 height) 10))
(bg-layer (car (gimp-layer-new img img-width img-height RGB_IMAGE "Background" 100 NORMAL)))
@ -26,12 +28,11 @@
(old-gradient (car (gimp-gradients-get-active)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-image-resize img img-width img-height 0 0)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img reflect-layer 1)
(gimp-image-add-layer img shadow-layer 1)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
@ -40,28 +41,28 @@
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-gradients-set-active gradient)
(gimp-blend text-layer CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 0 (+ height 5))
(gimp-blend logo-layer CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 0 (+ height 5))
(gimp-rect-select img 0 (- (/ height 2) feather) img-width (* 2 feather) REPLACE 0 0)
(plug-in-gauss-iir 1 img text-layer smear TRUE TRUE)
(plug-in-gauss-iir 1 img logo-layer smear TRUE TRUE)
(gimp-selection-none img)
(plug-in-ripple 1 img text-layer period amplitude 1 0 1 TRUE FALSE)
(gimp-layer-translate text-layer 5 5)
(gimp-layer-resize text-layer img-width img-height 5 5)
(plug-in-ripple 1 img logo-layer period amplitude 1 0 1 TRUE FALSE)
(gimp-layer-translate logo-layer 5 5)
(gimp-layer-resize logo-layer img-width img-height 5 5)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(set! channel (car (gimp-selection-save img)))
(gimp-selection-shrink img shrink)
(gimp-selection-invert img)
(plug-in-gauss-rle 1 img channel feather TRUE TRUE)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-selection-invert img)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill channel BG-IMAGE-FILL)
(gimp-selection-none img)
(plug-in-bump-map 1 img text-layer channel 135 45 depth 0 0 0 0 FALSE FALSE 0)
(plug-in-bump-map 1 img logo-layer channel 135 45 depth 0 0 0 0 FALSE FALSE 0)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(set! fs (car (gimp-selection-float shadow-layer 0 0)))
(gimp-edit-clear shadow-layer)
(gimp-perspective fs FALSE
@ -73,7 +74,7 @@
(plug-in-gauss-rle 1 img shadow-layer smear TRUE TRUE)
(gimp-rect-select img 5 5 width height REPLACE FALSE 0)
(gimp-edit-copy text-layer)
(gimp-edit-copy logo-layer)
(set! fs (car (gimp-edit-paste reflect-layer FALSE)))
(gimp-floating-sel-anchor fs)
(gimp-scale reflect-layer FALSE 0 0 width (* 0.85 height))
@ -89,14 +90,50 @@
(gimp-image-remove-channel img channel)
(gimp-layer-set-name text-layer text)
(gimp-gradients-set-active old-gradient)
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-foreground old-fg)))
(define (script-fu-cool-metal-logo-alpha img
logo-layer
size
bg-color
gradient)
(begin
(gimp-undo-push-group-start img)
(apply-cool-metal-logo-effect img logo-layer size bg-color gradient)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-cool-metal-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Cool Metal..."
"Metallic logos with reflections and perspective shadows"
"Spencer Kimball & Rob Malda"
"Spencer Kimball & Rob Malda"
"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" '(255 255 255)
SF-GRADIENT _"Gradient" "Horizon_1"
)
(define (script-fu-cool-metal-logo text
size
font
bg-color
gradient)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(text-layer (car (gimp-text-fontname img -1 0 0 text 0 TRUE size PIXELS font))))
(gimp-image-undo-disable img)
(gimp-layer-set-name text-layer text)
(apply-cool-metal-logo-effect img text-layer size bg-color gradient)
(gimp-image-undo-enable img)
(gimp-display-new img)))
(script-fu-register "script-fu-cool-metal-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Cool Metal..."
"Metallic logos with reflections and perspective shadows"
@ -108,4 +145,5 @@
SF-ADJUSTMENT _"Font Size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT _"Font" "-*-Crillee-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR _"Background Color" '(255 255 255)
SF-GRADIENT _"Gradient" "Horizon_1")
SF-GRADIENT _"Gradient" "Horizon_1"
)

72
plug-ins/script-fu/scripts/frosty-logo.scm
View File

@ -4,13 +4,14 @@
(define (min a b) (if (< a b) a b))
(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)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(text-layer-mask (car (gimp-layer-create-mask text-layer BLACK-MASK)))
(define (apply-frosty-logo-effect img
logo-layer
size
bg-color)
(let* ((border (/ size 5))
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(logo-layer-mask (car (gimp-layer-create-mask logo-layer BLACK-MASK)))
(sparkle-layer (car (gimp-layer-new img width height RGBA_IMAGE "Sparkle" 100 NORMAL)))
(matte-layer (car (gimp-layer-new img width height RGBA_IMAGE "Matte" 100 NORMAL)))
(shadow-layer (car (gimp-layer-new img width height RGBA_IMAGE "Shadow" 90 MULTIPLY)))
@ -20,7 +21,6 @@
(old-bg (car (gimp-palette-get-background)))
(old-brush (car (gimp-brushes-get-brush)))
(old-paint-mode (car (gimp-brushes-get-paint-mode))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img sparkle-layer 2)
(gimp-image-add-layer img matte-layer 3)
@ -30,7 +30,7 @@
(gimp-edit-clear sparkle-layer)
(gimp-edit-clear matte-layer)
(gimp-edit-clear shadow-layer)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(set! selection (car (gimp-selection-save img)))
(gimp-selection-feather img border)
(gimp-palette-set-background '(0 0 0))
@ -51,27 +51,62 @@
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill text-layer BG-IMAGE-FILL)
(gimp-image-add-layer-mask img text-layer text-layer-mask)
(gimp-edit-fill logo-layer BG-IMAGE-FILL)
(gimp-image-add-layer-mask img logo-layer logo-layer-mask)
(gimp-selection-load selection)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill text-layer-mask BG-IMAGE-FILL)
(gimp-edit-fill logo-layer-mask BG-IMAGE-FILL)
(gimp-selection-feather img border)
(gimp-selection-translate img (/ border 2) (/ border 2))
(gimp-edit-fill text-layer BG-IMAGE-FILL)
(gimp-image-remove-layer-mask img text-layer 0)
(gimp-edit-fill logo-layer BG-IMAGE-FILL)
(gimp-image-remove-layer-mask img logo-layer 0)
(gimp-selection-load selection)
(gimp-brushes-set-brush "Circle Fuzzy (07)")
(gimp-brushes-set-paint-mode BEHIND)
(gimp-palette-set-foreground '(186 241 255))
(gimp-edit-stroke text-layer)
(gimp-edit-stroke logo-layer)
(gimp-selection-none img)
(gimp-image-remove-channel img selection)
(gimp-layer-translate shadow-layer border border)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
(gimp-brushes-set-brush old-brush)
(gimp-brushes-set-paint-mode old-paint-mode)
(gimp-layer-translate shadow-layer border border)
(gimp-brushes-set-paint-mode old-paint-mode)))
(define (script-fu-frosty-logo-alpha img
logo-layer
size
bg-color)
(begin
(gimp-undo-push-group-start img)
(apply-frosty-logo-effect img logo-layer size bg-color)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-frosty-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Frosty..."
"Frozen logos with drop shadows"
"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" '(255 255 255)
)
(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)
(gimp-layer-set-name text-layer text)
(apply-frosty-logo-effect img text-layer size bg-color)
(gimp-image-undo-enable img)
(gimp-display-new img)))
@ -85,4 +120,5 @@
SF-STRING _"Text" "The GIMP"
SF-ADJUSTMENT _"Font Size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT _"Font" "-*-Becker-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR _"Background Color" '(255 255 255))
SF-COLOR _"Background Color" '(255 255 255)
)

144
plug-ins/script-fu/scripts/glossy.scm
View File

@ -22,22 +22,33 @@
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
(define (script-fu-glossy-logo text size font blend-gradient-text blend-gradient-outline grow-size bg-color use-pattern-text pattern-text use-pattern-outline pattern-outline use-pattern-overlay pattern-overlay noninteractive shadow-toggle s-offset-x s-offset-y flatten-toggle)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(text-layer (car (gimp-text-fontname img -1 0 0 text 30 TRUE size PIXELS font)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(bg-layer (car (gimp-layer-new img width height RGBA_IMAGE "Background" 100 NORMAL)))
(grow-me (car (gimp-layer-copy text-layer TRUE)))
(define (apply-glossy-logo-effect img
logo-layer
blend-gradient-text
blend-gradient-outline
grow-size
bg-color
use-pattern-text
pattern-text
use-pattern-outline
pattern-outline
use-pattern-overlay
pattern-overlay
noninteractive
shadow-toggle
s-offset-x
s-offset-y)
(let* ((width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(bg-layer (car (gimp-layer-new img width height RGB_IMAGE "Background" 100 NORMAL)))
(grow-me (car (gimp-layer-copy logo-layer TRUE)))
(old-gradient (car (gimp-gradients-get-active)))
(old-patterns (car (gimp-patterns-get-pattern)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-layer-set-name grow-me "Grow-me")
(gimp-image-add-layer img grow-me 1)
(gimp-image-add-layer img bg-layer 2)
@ -48,22 +59,22 @@
(gimp-selection-none img)
(gimp-palette-set-background old-bg)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
; if we are going to use transparent gradients for text, we will (maybe) need to uncomment this
; this clears black letters first so you don't end up with black where the transparent should be
; (gimp-edit-clear img text-layer)
; (gimp-edit-clear img logo-layer)
(if (= use-pattern-text TRUE)
(begin
(gimp-patterns-set-pattern pattern-text)
(gimp-bucket-fill text-layer PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-bucket-fill logo-layer PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-patterns-set-pattern old-patterns)))
(if (= use-pattern-text FALSE)
(begin
(gimp-gradients-set-active blend-gradient-text)
(gimp-blend text-layer CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 0 (+ height 5))))
(gimp-blend logo-layer CUSTOM NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 0 (+ height 5))))
(gimp-selection-none img)
@ -88,8 +99,8 @@
(gimp-selection-none img)
(plug-in-bump-map noninteractive img grow-me text-layer 110.0 45.0 3 0 0 0 0 TRUE FALSE 0)
(gimp-layer-set-mode text-layer SCREEN)
(plug-in-bump-map noninteractive img grow-me logo-layer 110.0 45.0 3 0 0 0 0 TRUE FALSE 0)
(gimp-layer-set-mode logo-layer SCREEN)
(if (= use-pattern-overlay TRUE)
(begin
@ -99,28 +110,108 @@
(gimp-patterns-set-pattern old-patterns)
(gimp-selection-none img)))
(if (= shadow-toggle TRUE)
(if (= shadow-toggle TRUE)
(begin
(gimp-selection-layer-alpha text-layer)
(set! dont-drop-me (car (script-fu-drop-shadow img text-layer s-offset-x s-offset-y 15 '(0 0 0) 80 TRUE)))
(gimp-selection-layer-alpha logo-layer)
(set! dont-drop-me (car (script-fu-drop-shadow img logo-layer s-offset-x s-offset-y 15 '(0 0 0) 80 TRUE)))
(set! width (car (gimp-image-width img)))
(set! height (car (gimp-image-height img)))
(gimp-selection-none img)))
(if (= flatten-toggle TRUE)
(begin
(set! final (car (gimp-image-flatten img)))))
(gimp-gradients-set-active old-gradient)
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)))
(gimp-gradients-set-active old-gradient)
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
(define (script-fu-glossy-logo-alpha img
logo-layer
blend-gradient-text
blend-gradient-outline
grow-size
bg-color
use-pattern-text
pattern-text
use-pattern-outline
pattern-outline
use-pattern-overlay
pattern-overlay
noninteractive
shadow-toggle
s-offset-x
s-offset-y)
(begin
(gimp-undo-push-group-start img)
(apply-glossy-logo-effect img logo-layer blend-gradient-text
blend-gradient-outline grow-size bg-color
use-pattern-text pattern-text
use-pattern-outline pattern-outline
use-pattern-overlay pattern-overlay
noninteractive shadow-toggle
s-offset-x s-offset-y)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-glossy-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Glossy..."
"Creates anything you can create with it :)"
"Hrvoje Horvat (hhorvat@open.hr)"
"Hrvoje Horvat"
"14/04/1998"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-GRADIENT _"Blend Gradient (Text)" "Shadows_2"
SF-GRADIENT _"Blend Gradient (Outline)" "Shadows_2"
SF-ADJUSTMENT _"Outline Size" '(5 0 250 1 10 0 1)
SF-COLOR _"Background Color" '(255 255 255)
SF-TOGGLE _"Use Pattern for Text instead of Gradient" FALSE
SF-PATTERN _"Pattern (Text)" "Electric Blue"
SF-TOGGLE _"Use Pattern for Outline instead of Gradient" FALSE
SF-PATTERN _"Pattern (Outline)" "Electric Blue"
SF-TOGGLE _"Use Pattern Overlay" FALSE
SF-PATTERN _"Pattern (Overlay)" "Parque #1"
SF-TOGGLE _"Default Bumpmap Settings" TRUE
SF-TOGGLE _"Shadow" TRUE
SF-ADJUSTMENT _"Shadow X Offset" '(8 0 100 1 10 0 1)
SF-ADJUSTMENT _"Shadow Y Offset" '(8 0 100 1 10 0 1)
)
(define (script-fu-glossy-logo text
size
font
blend-gradient-text
blend-gradient-outline
grow-size
bg-color
use-pattern-text
pattern-text
use-pattern-outline
pattern-outline
use-pattern-overlay
pattern-overlay
noninteractive
shadow-toggle
s-offset-x
s-offset-y)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(text-layer (car (gimp-text-fontname img -1 0 0 text 30 TRUE size PIXELS font))))
(gimp-image-undo-disable img)
(gimp-layer-set-name text-layer text)
(apply-glossy-logo-effect img text-layer blend-gradient-text
blend-gradient-outline grow-size bg-color
use-pattern-text pattern-text
use-pattern-outline pattern-outline
use-pattern-overlay pattern-overlay
noninteractive shadow-toggle
s-offset-x s-offset-y)
(gimp-image-undo-enable img)
(gimp-display-new img)))
(script-fu-register "script-fu-glossy-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Glossy..."
"Creates anything you can create with it :)"
"Hrvoje Horvat (hhorvat@open.hr)"
"Hrvoje Horvat"
"14/04/1998"
@ -142,5 +233,4 @@
SF-TOGGLE _"Shadow" TRUE
SF-ADJUSTMENT _"Shadow X Offset" '(8 0 100 1 10 0 1)
SF-ADJUSTMENT _"Shadow Y Offset" '(8 0 100 1 10 0 1)
SF-TOGGLE _"Flatten Image" FALSE)
)

70
plug-ins/script-fu/scripts/glowing-logo.scm
View File

@ -1,21 +1,20 @@
; GLOWING
; Create a text effect that simulates a glowing hot logo
(define (script-fu-glowing-logo text size font bg-color)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(border (/ size 4))
(grow (/ size 4))
(define (apply-glowing-logo-effect img
logo-layer
size
bg-color)
(let* ((grow (/ size 4))
(feather1 (/ size 3))
(feather2 (/ size 7))
(feather3 (/ size 10))
(text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS font)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(glow-layer (car (gimp-layer-copy text-layer TRUE)))
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height 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)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img glow-layer 1)
@ -24,39 +23,71 @@
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill text-layer BG-IMAGE-FILL)
(gimp-edit-fill logo-layer BG-IMAGE-FILL)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-selection-feather img feather1)
(gimp-palette-set-background '(221 0 0))
(gimp-edit-fill glow-layer BG-IMAGE-FILL)
(gimp-edit-fill glow-layer BG-IMAGE-FILL)
(gimp-edit-fill glow-layer BG-IMAGE-FILL)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-selection-feather img feather2)
(gimp-palette-set-background '(232 217 18))
(gimp-edit-fill glow-layer BG-IMAGE-FILL)
(gimp-edit-fill glow-layer BG-IMAGE-FILL)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-selection-feather img feather3)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill glow-layer BG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-layer-set-name text-layer text)
(gimp-layer-set-mode text-layer OVERLAY)
(gimp-layer-set-mode logo-layer OVERLAY)
(gimp-layer-set-name glow-layer "Glow Layer")
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-foreground old-fg)))
(define (script-fu-glowing-logo-alpha img
logo-layer
size
bg-color)
(begin
(gimp-undo-push-group-start img)
(apply-glowing-logo-effect img logo-layer size bg-color)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-glowing-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Glowing Hot..."
"Glowing hot logos"
"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)
)
(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"
_"<Toolbox>/Xtns/Script-Fu/Logos/Glowing Hot..."
"Glowing hot logos"
@ -67,4 +98,5 @@
SF-STRING _"Text" "GLOWING"
SF-ADJUSTMENT _"Font Size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "-*-Slogan-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR _"Background Color" '(7 0 20))
SF-COLOR _"Background Color" '(7 0 20)
)

80
plug-ins/script-fu/scripts/gradient-bevel-logo.scm
View File

@ -19,19 +19,20 @@
; by Brian McFee <keebler@wco.com>
; Create cool glossy bevelly text
(define (script-fu-gradient-bevel-logo text size font bevel-height bevel-width 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)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(indentX (+ border 12))
(indentY (+ border (/ height 8)))
(define (apply-gradient-bevel-logo-effect img
logo-layer
b-size
bevel-height
bevel-width
bg-color)
(let* ((width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(indentX (+ b-size 12))
(indentY (+ b-size (/ height 8)))
(bg-layer (car (gimp-layer-new img width height RGBA_IMAGE "Background" 100 NORMAL)))
(blur-layer (car (gimp-layer-new img width height RGBA_IMAGE "Blur" 100 NORMAL)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img blur-layer 1)
@ -48,29 +49,69 @@
(gimp-edit-clear blur-layer)
(gimp-selection-none img)
(gimp-layer-set-preserve-trans blur-layer FALSE)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-edit-fill blur-layer BG-IMAGE-FILL)
(plug-in-gauss-rle 1 img blur-layer bevel-width 1 1)
(gimp-selection-none img)
(gimp-palette-set-background '(127 127 127))
(gimp-palette-set-foreground '(255 255 255))
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-selection-all img)
(gimp-blend text-layer FG-BG-RGB NORMAL RADIAL 95 0 REPEAT-NONE FALSE 0 0 indentX indentY indentX (- height indentY))
(gimp-blend logo-layer FG-BG-RGB NORMAL RADIAL 95 0 REPEAT-NONE FALSE 0 0 indentX indentY indentX (- height indentY))
(gimp-selection-none img)
(gimp-layer-set-preserve-trans text-layer FALSE)
(gimp-layer-set-name text-layer text)
(plug-in-bump-map 1 img text-layer blur-layer 115 bevel-height 5 0 0 0 15 TRUE FALSE 0)
(gimp-layer-set-preserve-trans logo-layer FALSE)
(plug-in-bump-map 1 img logo-layer blur-layer 115 bevel-height 5 0 0 0 15 TRUE FALSE 0)
(gimp-layer-set-offsets blur-layer 5 5)
(gimp-invert blur-layer)
(gimp-layer-set-opacity blur-layer 50.0)
(gimp-image-set-active-layer img text-layer)
(gimp-image-set-active-layer img logo-layer)
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-foreground old-fg)))
(define (script-fu-gradient-bevel-logo-alpha img
logo-layer
b-size
bevel-height
bevel-width
bg-color)
(begin
(gimp-undo-push-group-start img)
(apply-gradient-bevel-logo-effect img logo-layer b-size
bevel-height bevel-width bg-color)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-gradient-bevel-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Gradient Bevel..."
"Makes Shiny Bevelly text"
"Brian McFee <keebler@wco.com>"
"Brian McFee"
"April 1998"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Border Size (pixels)" '(22 1 300 1 10 0 1)
SF-ADJUSTMENT _"Bevel Height (Sharpness)" '(40 1 250 1 10 0 1)
SF-ADJUSTMENT _"Bevel Width" '(2.5 1 200 1 10 1 1)
SF-COLOR _"Background Color" '(255 255 255)
)
(define (script-fu-gradient-bevel-logo text
size
font
bevel-height
bevel-width
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)
(gimp-layer-set-name text-layer text)
(apply-gradient-bevel-logo-effect img text-layer border
bevel-height bevel-width bg-color)
(gimp-image-undo-enable img)
(gimp-display-new img)))
(script-fu-register "script-fu-gradient-bevel-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Gradient Bevel..."
"Makes Shiny Bevelly text"
@ -83,4 +124,5 @@
SF-FONT _"Font" "-*-futura_poster-*-r-*-*-24-*-*-*-p-*-*-*"
SF-ADJUSTMENT _"Bevel Height (Sharpness)" '(40 1 250 1 10 0 1)
SF-ADJUSTMENT _"Bevel Width" '(2.5 1 200 1 10 1 1)
SF-COLOR _"Background Color" '(255 255 255))
SF-COLOR _"Background Color" '(255 255 255)
)

59
plug-ins/script-fu/scripts/neon-logo.scm
View File

@ -54,10 +54,13 @@
(if (> hue 180) (set! hue (- hue 360)))
hue))))
(define (script-fu-neon-logo text size font bg-color glow-color shadow)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(tube-hue (find-hue-offset glow-color))
(border (/ size 4))
(define (apply-neon-logo-effect img
tube-layer
size
bg-color
glow-color
shadow)
(let* ((tube-hue (find-hue-offset glow-color))
(shrink (/ size 14))
(grow (/ size 40))
(feather (/ size 5))
@ -68,7 +71,6 @@
(shadow-feather (/ size 20))
(shadow-offx (/ size 10))
(shadow-offy (/ size 10))
(tube-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS font)))
(width (car (gimp-drawable-width tube-layer)))
(height (car (gimp-drawable-height tube-layer)))
(glow-layer (car (gimp-layer-new img width height RGBA_IMAGE "Neon Glow" 100 NORMAL)))
@ -79,7 +81,6 @@
(selection 0)
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img bg-layer 1)
(if (not (= shadow 0))
@ -159,11 +160,50 @@
(gimp-layer-set-name tube-layer "Neon Tubes")
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
(gimp-image-remove-channel img selection)
(gimp-image-remove-channel img selection)))
(define (script-fu-neon-logo-alpha img
tube-layer
size
bg-color
glow-color
shadow)
(begin
(gimp-undo-push-group-start img)
(apply-neon-logo-effect img tube-layer size bg-color glow-color shadow)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-neon-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Neon..."
"Neon logos"
"Spencer Kimball"
"Spencer Kimball"
"1997"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Effect Size (pixels * 5)" '(150 2 1000 1 10 0 1)
SF-COLOR _"Background Color" '(0 0 0)
SF-COLOR _"Glow Color" '(38 211 255)
SF-TOGGLE _"Create Shadow" FALSE
)
(define (script-fu-neon-logo text
size
font
bg-color
glow-color
shadow)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(border (/ size 4))
(tube-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS font))))
(gimp-image-undo-disable img)
(gimp-layer-set-name tube-layer text)
(apply-neon-logo-effect img tube-layer size bg-color glow-color shadow)
(gimp-image-undo-enable img)
(gimp-display-new img)))
(script-fu-register "script-fu-neon-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Neon..."
"Neon logos"
@ -176,4 +216,5 @@
SF-FONT _"Font" "-*-Blippo-*-*-*-*-24-*-*-*-*-*-*-*"
SF-COLOR _"Background Color" '(0 0 0)
SF-COLOR _"Glow Color" '(38 211 255)
SF-TOGGLE _"Create Shadow" FALSE)
SF-TOGGLE _"Create Shadow" FALSE
)

67
plug-ins/script-fu/scripts/starburst-logo.scm
View File

@ -2,15 +2,17 @@
; Effect courtesy Xach Beane's web page
(define (script-fu-starburst-logo text size fontname burst-color bg-color)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(off (* size 0.03))
(define (apply-starburst-logo-effect img
logo-layer
size
burst-color
bg-color)
(let* ((off (* size 0.03))
(count -1)
(feather (* size 0.04))
(border (+ feather off))
(text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS fontname)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(burst-coords (cons (* width 0.5) (* height 0.5)))
(burstradius (* (min height width) 0.35))
(bg-layer (car (gimp-layer-new img width height RGB_IMAGE "Background" 100 NORMAL)))
@ -21,13 +23,12 @@
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img shadow-layer 1)
(gimp-image-add-layer img burst-layer 0)
(gimp-image-add-layer-mask img burst-layer layer-mask)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-palette-set-background bg-color)
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
@ -36,10 +37,10 @@
(gimp-selection-all img)
(gimp-patterns-set-pattern "Crack")
(gimp-bucket-fill text-layer PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-bucket-fill logo-layer PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-selection-none img)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill layer-mask BG-IMAGE-FILL)
@ -47,7 +48,7 @@
(plug-in-nova 1 img burst-layer (car burst-coords) (cdr burst-coords)
burst-color burstradius 100 0)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-palette-set-background '(0 0 0))
(gimp-selection-feather img feather)
(gimp-selection-translate img -1 -1)
@ -57,14 +58,49 @@
(set! count (+ count 1)))
(gimp-selection-none img)
(gimp-layer-set-name text-layer text)
(gimp-patterns-set-pattern old-pattern)
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-foreground old-fg)))
(define (script-fu-starburst-logo-alpha img
logo-layer
size
burst-color
bg-color)
(begin
(gimp-undo-push-group-start img)
(apply-starburst-logo-effect img logo-layer size burst-color bg-color)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-starburst-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Starburst..."
"Starburst as inspired by GIMP News"
"Spencer Kimball & Xach Beane"
"Spencer Kimball & Xach Beane"
"1997"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Effect Size (pixels * 30)" '(150 0 512 1 10 0 1)
SF-COLOR _"Burst Color" '(60 196 33)
SF-COLOR _"Background Color" '(255 255 255)
)
(define (script-fu-starburst-logo text size fontname burst-color bg-color)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(off (* size 0.03))
(feather (* size 0.04))
(border (+ feather off))
(text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS fontname))))
(gimp-image-undo-disable img)
(gimp-layer-set-name text-layer text)
(apply-starburst-logo-effect img text-layer size burst-color bg-color)
(gimp-image-undo-enable img)
(gimp-display-new img)))
(script-fu-register "script-fu-starburst-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Starburst..."
"Starburst as inspired by GIMP News"
@ -76,4 +112,5 @@
SF-ADJUSTMENT _"Font Size (pixels)" '(150 0 512 1 10 0 1)
SF-FONT _"Font" "-*-blippo-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR _"Burst Color" '(60 196 33)
SF-COLOR _"Background Color" '(255 255 255))
SF-COLOR _"Background Color" '(255 255 255)
)

69
plug-ins/script-fu/scripts/starscape-logo.scm
View File

@ -31,21 +31,22 @@
(set! clearance 1) (set! limit (- limit 1))))
x))
(define (script-fu-starscape-logo text size fontname glow-color)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(border (/ size 4))
(define (apply-starscape-logo-effect img
logo-layer
size
glow-color)
(let* ((border (/ size 4))
(grow (/ size 30))
(offx (* size 0.03))
(offy (* size 0.02))
(feather (/ size 4))
(shadow-feather (/ size 25))
(text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS fontname)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(w (* (/ (- width (* border 2)) 2.0) 0.75))
(h (* (/ (- height (* border 2)) 2.0) 0.75))
(novay (* height 0.3))
(novax (find-nova-x-coord text-layer (* width 0.2) (* width 0.8) novay))
(novax (find-nova-x-coord logo-layer (* width 0.2) (* width 0.8) novay))
(novaradius (/ (min height width) 7.0))
(cx (/ width 2.0))
(cy (/ height 2.0))
@ -58,26 +59,25 @@
(old-pattern (car (gimp-patterns-get-pattern)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img glow-layer 1)
(gimp-image-add-layer img shadow-layer 1)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill bg-layer BG-IMAGE-FILL)
(gimp-edit-clear shadow-layer)
(gimp-edit-clear glow-layer)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-selection-grow img grow)
(gimp-selection-feather img feather)
(gimp-palette-set-background glow-color)
(gimp-selection-feather img feather)
(gimp-edit-fill glow-layer BG-IMAGE-FILL)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-selection-feather img shadow-feather)
(gimp-palette-set-background '(0 0 0))
(gimp-selection-translate img offx offy)
@ -86,25 +86,59 @@
(gimp-selection-none img)
(gimp-palette-set-background '(31 31 31))
(gimp-palette-set-foreground '(255 255 255))
(gimp-blend text-layer FG-BG-RGB NORMAL BILINEAR 100 0 REPEAT-NONE FALSE 0 0 cx cy bx by)
(gimp-blend logo-layer FG-BG-RGB NORMAL BILINEAR 100 0 REPEAT-NONE FALSE 0 0 cx cy bx by)
(plug-in-nova 1 img glow-layer novax novay glow-color novaradius 100 0)
(gimp-selection-all img)
(gimp-patterns-set-pattern "Stone")
(gimp-bucket-fill bump-channel PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(plug-in-bump-map 1 img text-layer bump-channel 135.0 45.0 4 0 0 0 0 FALSE FALSE 0)
(plug-in-bump-map 1 img logo-layer bump-channel 135.0 45.0 4 0 0 0 0 FALSE FALSE 0)
(gimp-image-remove-channel img bump-channel)
(gimp-selection-none img)
(gimp-layer-set-name text-layer text)
(gimp-patterns-set-pattern old-pattern)
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-foreground old-fg)))
(define (script-fu-starscape-logo-alpha img
logo-layer
size
glow-color)
(begin
(gimp-undo-push-group-start img)
(apply-starscape-logo-effect img logo-layer size glow-color)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-starscape-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Starscape..."
"Starscape using the Nova plug-in"
"Spencer Kimball"
"Spencer Kimball"
"1997"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Effect Size (pixels * 4)" '(150 1 1000 1 10 0 1)
SF-COLOR _"Glow Color" '(28 65 188)
)
(define (script-fu-starscape-logo text
size
fontname
glow-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 fontname))))
(gimp-image-undo-disable img)
(gimp-layer-set-name text-layer text)
(apply-starscape-logo-effect img text-layer size glow-color)
(gimp-image-undo-enable img)
(gimp-display-new img)))
(script-fu-register "script-fu-starscape-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Starscape..."
"Starscape using the Nova plug-in"
@ -115,4 +149,5 @@
SF-STRING _"Text" "Nova"
SF-ADJUSTMENT _"Font Size (pixels)" '(150 1 1000 1 10 0 1)
SF-FONT _"Font" "-*-engraver-*-r-*-*-24-*-*-*-p-*-*-*"
SF-COLOR _"Glow Color" '(28 65 188))
SF-COLOR _"Glow Color" '(28 65 188)
)

80
plug-ins/script-fu/scripts/t-o-p-logo.scm
View File

@ -3,13 +3,17 @@
;; Time-stamp: <97/03/15 17:27:33 narazaki@InetQ.or.jp>
;; Version 0.2
(define (script-fu-t-o-p-logo text size fontname hit-rate edge-size edge-only base-color 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 fontname)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(text-layer-mask (car (gimp-layer-create-mask text-layer BLACK-MASK)))
(define (apply-t-o-p-logo-effect img
logo-layer
b-size
hit-rate
edge-size
edge-only
base-color
bg-color)
(let* ((width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(logo-layer-mask (car (gimp-layer-create-mask logo-layer BLACK-MASK)))
(sparkle-layer (car (gimp-layer-new img width height RGBA_IMAGE "Sparkle" 100 NORMAL)))
(shadow-layer (car (gimp-layer-new img width height RGBA_IMAGE "Shadow" 90 ADDITION)))
(bg-layer (car (gimp-layer-new img width height RGB_IMAGE "Background" 100 NORMAL)))
@ -19,7 +23,6 @@
(old-bg (car (gimp-palette-get-background)))
(old-brush (car (gimp-brushes-get-brush)))
(old-paint-mode (car (gimp-brushes-get-paint-mode))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img sparkle-layer 2)
(gimp-image-add-layer img shadow-layer 3)
@ -29,7 +32,7 @@
(gimp-edit-clear sparkle-layer)
(gimp-palette-set-background base-color)
(gimp-edit-fill sparkle-layer BG-IMAGE-FILL)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(set! selection (car (gimp-selection-save img)))
(gimp-selection-grow img edge-size)
'(plug-in-noisify 1 img sparkle-layer FALSE
@ -59,7 +62,7 @@
(gimp-palette-set-foreground '(0 0 0))
(gimp-palette-set-background '(255 255 255))
(gimp-brushes-set-brush "Circle Fuzzy (11)")
(gimp-selection-feather img border)
(gimp-selection-feather img b-size)
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-palette-set-background base-color)
@ -72,8 +75,58 @@
(gimp-palette-set-background old-bg)
(gimp-brushes-set-brush old-brush)
(gimp-brushes-set-paint-mode old-paint-mode)
(gimp-layer-set-visible text-layer 0)
(gimp-image-set-active-layer img sparkle-layer)
(gimp-layer-set-visible logo-layer 0)
(gimp-image-set-active-layer img sparkle-layer)))
(define (script-fu-t-o-p-logo-alpha img
logo-layer
b-size
hit-rate
edge-size
edge-only
base-color
bg-color)
(begin
(gimp-undo-push-group-start img)
(apply-t-o-p-logo-effect img logo-layer b-size hit-rate
edge-size edge-only base-color bg-color)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-t-o-p-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Particle Trace..."
"Trace of Particles Effect"
"Shuji Narazaki (narazaki@InetQ.or.jp)"
"Shuji Narazaki"
"1997"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Border Size (pixels)" '(20 1 200 1 10 0 1)
SF-ADJUSTMENT _"Hit Rate" '(0.2 0 1 .01 .01 2 0)
SF-ADJUSTMENT _"Edge Width" '(2 0 128 1 1 0 0)
SF-TOGGLE _"Edge Only" FALSE
SF-COLOR _"Base Color" '(0 40 0)
SF-COLOR _"Background Color" '(255 255 255)
)
(define (script-fu-t-o-p-logo text
size
fontname
hit-rate
edge-size
edge-only
base-color
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 fontname))))
(gimp-image-undo-disable img)
(gimp-layer-set-name text-layer text)
(apply-t-o-p-logo-effect img text-layer border hit-rate
edge-size edge-only base-color bg-color)
(gimp-image-undo-enable img)
(gimp-display-new img)))
@ -91,6 +144,7 @@
SF-ADJUSTMENT _"Edge Width" '(2 0 128 1 1 0 0)
SF-TOGGLE _"Edge Only" FALSE
SF-COLOR _"Base Color" '(0 40 0)
SF-COLOR _"Background Color" '(255 255 255))
SF-COLOR _"Background Color" '(255 255 255)
)
; end of t-o-p.scm

89
plug-ins/script-fu/scripts/textured-logo.scm
View File

@ -7,16 +7,20 @@
(define (scale size percent) (* size percent))
(define (script-fu-textured-logo text-pattern tile-type text size fontname bg-color blend-fg blend-bg)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(b-size (scale size 0.1))
(b-size-2 (scale size 0.05))
(f-size (scale size 0.075))
(ds-size (scale size 0.05))
(define (apply-textured-logo-effect img
logo-layer
b-size
text-pattern
tile-type
bg-color
blend-fg
blend-bg)
(let* ((b-size-2 (scale b-size 0.5))
(f-size (scale b-size 0.75))
(ds-size (scale b-size 0.5))
(ts-size (- b-size-2 3))
(text-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS fontname)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(blend-layer (car (gimp-layer-new img width height RGBA_IMAGE "Blend" 100 NORMAL)))
(shadow-layer (car (gimp-layer-new img width height RGBA_IMAGE "Shadow" 100 NORMAL)))
(text-shadow-layer (car (gimp-layer-new img width height RGBA_IMAGE "Text Shadow" 100 MULTIPLY)))
@ -26,7 +30,6 @@
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background)))
(old-pattern (car (gimp-patterns-get-pattern))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img shadow-layer 1)
(gimp-image-add-layer img blend-layer 1)
@ -34,8 +37,8 @@
(gimp-image-add-layer img text-shadow-layer 0)
(gimp-selection-all img)
(gimp-patterns-set-pattern text-pattern)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-bucket-fill text-layer PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-bucket-fill logo-layer PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-selection-none img)
(gimp-edit-clear text-shadow-layer)
(gimp-edit-clear drop-shadow-layer)
@ -44,7 +47,7 @@
(gimp-rect-select img b-size-2 b-size-2 (- width b-size) (- height b-size) REPLACE TRUE b-size-2)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill shadow-layer BG-IMAGE-FILL)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-layer-alpha logo-layer)
(gimp-image-add-layer-mask img text-shadow-layer tsl-layer-mask)
(gimp-palette-set-background '(255 255 255))
(gimp-edit-fill tsl-layer-mask BG-IMAGE-FILL)
@ -60,7 +63,7 @@
(gimp-palette-set-background blend-bg)
(gimp-blend blend-layer FG-BG-RGB NORMAL LINEAR 100 0 REPEAT-NONE FALSE 0 0 0 0 width 0)
(plug-in-mosaic 1 img blend-layer 12 1 1 0.7 135 0.2 TRUE FALSE tile-type 1 0)
(gimp-layer-translate text-layer (- b-size-2) (- b-size-2))
(gimp-layer-translate logo-layer (- b-size-2) (- b-size-2))
(gimp-layer-translate blend-layer (- b-size) (- b-size))
(gimp-layer-translate text-shadow-layer (- ts-size) (- ts-size))
(gimp-layer-translate drop-shadow-layer ds-size ds-size)
@ -70,10 +73,57 @@
(gimp-edit-fill dsl-layer-mask BG-IMAGE-FILL)
(gimp-image-remove-layer-mask img drop-shadow-layer APPLY)
(gimp-selection-none img)
(gimp-layer-set-name text-layer text)
(gimp-patterns-set-pattern old-pattern)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
(gimp-palette-set-background old-bg)))
(define (script-fu-textured-logo-alpha img
logo-layer
b-size
text-pattern
tile-type
bg-color
blend-fg
blend-bg)
(begin
(gimp-undo-push-group-start img)
(apply-textured-logo-effect img logo-layer b-size text-pattern tile-type
bg-color blend-fg blend-bg)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-textured-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Textured..."
"Creates textured logos with blended backgrounds, highlights, and shadows"
"Spencer Kimball"
"Spencer Kimball"
"1996"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Border Size (pixels)" '(20 1 100 1 10 0 1)
SF-PATTERN _"Pattern" "Fibers"
SF-OPTION _"Mosaic Tile Type" '(_"Squares" "Hexagons" "Octagons")
SF-COLOR _"Background Color" '(255 255 255)
SF-COLOR _"Starting Blend" '(32 106 0)
SF-COLOR _"Ending Blend" '(0 0 106)
)
(define (script-fu-textured-logo text
size
fontname
text-pattern
tile-type
bg-color
blend-fg
blend-bg)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(b-size (scale size 0.1))
(text-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS fontname))))
(gimp-image-undo-disable img)
(gimp-layer-set-name text-layer text)
(apply-textured-logo-effect img text-layer b-size text-pattern tile-type
bg-color blend-fg blend-bg)
(gimp-image-undo-enable img)
(gimp-display-new img)))
@ -84,11 +134,12 @@
"Spencer Kimball"
"1996"
""
SF-PATTERN _"Text Pattern" "Fibers"
SF-OPTION _"Mosaic Tile Type" '(_"Squares" "Hexagones" "Octagons")
SF-STRING _"Text" "The GIMP"
SF-ADJUSTMENT _"Font Size (pixels)" '(200 1 1000 1 10 0 1)
SF-FONT _"Font" "-*-cuneifontlight-*-r-*-*-24-*-*-*-p-*-*-*"
SF-PATTERN _"Text Pattern" "Fibers"
SF-OPTION _"Mosaic Tile Type" '(_"Squares" "Hexagons" "Octagons")
SF-COLOR _"Background Color" '(255 255 255)
SF-COLOR _"Starting Blend" '(32 106 0)
SF-COLOR _"Ending Blend" '(0 0 106))
SF-COLOR _"Ending Blend" '(0 0 106)
)