Commit 590c4d0b authored by Kevin Cozens's avatar Kevin Cozens Committed by Kevin Cozens

Moved the MIN and MAX entries for image size and resolution to

2006-10-20  Kevin Cozens  <kcozens@cvs.gnome.org>

	* plug-ins/script-fu/scheme-wrapper.c: Moved the MIN and MAX entries
	for image size and resolution to script_constants structureas they
	are not deprecated constants.

	* plug-ins/script-fu/scripts/script-fu.init: Removed CR in line endings.

	* plug-ins/script-fu/scripts/*.scm: Fixed a number of regressions that
	snuck in during the last big update of the scripts. This update
	reduces the number of differences to the original scripts (other than
	formatting). Some additional formatting changes in a few scripts.
	Updates to use colour names in register block where possible. Fixed a
	bug in burn-in-anim.scm. Minor cleanup of font-map.scm. Simplified
	the bug fix in tile-blur.scm.
parent 3cda6f26
2006-10-20 Kevin Cozens <kcozens@cvs.gnome.org>
* plug-ins/script-fu/scheme-wrapper.c: Moved the MIN and MAX entries
for image size and resolution to script_constants structureas they
are not deprecated constants.
* plug-ins/script-fu/scripts/script-fu.init: Removed CR in line endings.
* plug-ins/script-fu/scripts/*.scm: Fixed a number of regressions that
snuck in during the last big update of the scripts. This update
reduces the number of differences to the original scripts (other than
formatting). Some additional formatting changes in a few scripts.
Updates to use colour names in register block where possible. Fixed a
bug in burn-in-anim.scm. Minor cleanup of font-map.scm. Simplified
the bug fix in tile-blur.scm.
2006-10-20 Sven Neumann <sven@gimp.org>
* plug-ins/script-fu/scheme-wrapper.c (init_constants):
......
......@@ -61,6 +61,12 @@ named_constant {
struct named_constant const script_constants[] =
{
/* Useful values from libgimpbase/gimplimits.h */
{ "MIN-IMAGE-SIZE", GIMP_MIN_IMAGE_SIZE },
{ "MAX-IMAGE-SIZE", GIMP_MAX_IMAGE_SIZE },
{ "MIN-RESOLUTION", GIMP_MIN_RESOLUTION },
{ "MAX-RESOLUTION", GIMP_MAX_RESOLUTION },
/* Useful misc stuff */
{ "TRUE", TRUE },
{ "FALSE", FALSE },
......@@ -168,11 +174,6 @@ struct named_constant const old_constants[] =
{ "BLUE-LUT", GIMP_HISTOGRAM_BLUE },
{ "ALPHA-LUT", GIMP_HISTOGRAM_ALPHA },
{ "MIN-IMAGE-SIZE", GIMP_MIN_IMAGE_SIZE },
{ "MAX-IMAGE-SIZE", GIMP_MAX_IMAGE_SIZE },
{ "MIN-RESOLUTION", GIMP_MIN_RESOLUTION },
{ "MAX-RESOLUTION", GIMP_MAX_RESOLUTION },
{ NULL, 0 }
};
......
......@@ -31,19 +31,20 @@
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-MODE)))
(pattern (car (gimp-layer-new img width height
RGBA-IMAGE "Pattern" 100 NORMAL-MODE)))
(layer2)
(layer3)
(pattern-mask)
(floating-sel)
)
(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-MODE)))
(pattern (car (gimp-layer-new img width height
RGBA-IMAGE "Pattern" 100 NORMAL-MODE)))
(layer2)
(layer3)
(pattern-mask)
(floating-sel)
)
(gimp-context-push)
(gimp-selection-none img)
(script-fu-util-image-resize-from-layer img logo-layer)
(gimp-image-add-layer img pattern 1)
......@@ -66,8 +67,8 @@
(gimp-selection-all img)
(gimp-context-set-pattern text-pattern)
(gimp-edit-bucket-fill pattern PATTERN-BUCKET-FILL
NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill pattern
PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(plug-in-bump-map noninteractive img pattern layer2
110.0 45.0 4 0 0 0 0 TRUE FALSE 0)
......@@ -88,6 +89,7 @@
(gimp-drawable-set-visible layer2 FALSE)
(gimp-drawable-set-visible pattern TRUE)
;;(set! final (car (gimp-image-flatten img)))
(gimp-context-pop)
)
)
......@@ -119,20 +121,21 @@
"Hrvoje Horvat"
"07 April, 1998"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-PATTERN "Pattern" "Parque #1"
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 _"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)
SF-ADJUSTMENT _"Shadow X offset" '(0 0 200 1 5 0 1)
SF-ADJUSTMENT _"Shadow Y offset" '(0 0 200 1 5 0 1)
)
(script-fu-menu-register "script-fu-3d-outline-logo-alpha"
"<Image>/Filters/Alpha to Logo")
(define (script-fu-3d-outline-logo text-pattern
text
size
......@@ -164,16 +167,16 @@
"Hrvoje Horvat"
"07 April, 1998"
""
SF-PATTERN "Pattern" "Parque #1"
SF-STRING _"Text" "The Gimp"
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT _"Font" "RoostHeavy"
SF-PATTERN _"Pattern" "Parque #1"
SF-STRING _"Text" "GIMP"
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT _"Font" "RoostHeavy"
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 _"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)
SF-ADJUSTMENT _"Shadow X offset" '(0 0 200 1 5 0 1)
SF-ADJUSTMENT _"Shadow Y offset" '(0 0 200 1 5 0 1)
)
(script-fu-menu-register "script-fu-3d-outline-logo"
......
......@@ -178,6 +178,7 @@
)
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-undo-disable tile)
......@@ -194,6 +195,7 @@
(create-tile tile tiledraw1 tiledraw2 size thickness
backcolor begincolor endcolor supersample)
(while (<= Xindex xtiles)
(while (<= Yindex ytiles)
(if (= (rand 2) 0)
......@@ -210,8 +212,9 @@
(gimp-image-delete tile)
(gimp-image-undo-enable img)
(gimp-context-pop)
(gimp-display-new img)
(gimp-context-pop)
)
)
......
......@@ -65,6 +65,7 @@
(offsets (gimp-drawable-offsets pic-layer))
(width (car (gimp-drawable-width pic-layer)))
(height (car (gimp-drawable-height pic-layer)))
; Bumpmap has a one pixel border on each side
(bump-layer (car (gimp-layer-new image
(+ width 2)
......@@ -73,8 +74,8 @@
"Bumpmap"
100
NORMAL-MODE)))
(select)
(bevelling-whole-image)
(select)
)
(gimp-context-push)
......@@ -104,7 +105,7 @@
(gimp-selection-all image)
)
)
)
)
; Store it for later.
(set! select (car (gimp-selection-save image)))
......@@ -176,23 +177,24 @@
(gimp-image-undo-group-end image)
)
(gimp-context-pop)
(gimp-displays-flush)
(gimp-context-pop)
)
)
(script-fu-register "script-fu-add-bevel"
_"Add B_evel..."
_"Add a bevelled border to an image"
"Andrew Donkin <ard@cs.waikato.ac.nz>"
"Andrew Donkin"
"1997/11/06"
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Thickness" '(5 0 30 1 2 0 0)
SF-TOGGLE _"Work on copy" TRUE
SF-TOGGLE _"Keep bump layer" FALSE
_"Add B_evel..."
_"Add a beveled border to an image"
"Andrew Donkin <ard@cs.waikato.ac.nz>"
"Andrew Donkin"
"1997/11/06"
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Thickness" '(5 0 30 1 2 0 0)
SF-TOGGLE _"Work on copy" TRUE
SF-TOGGLE _"Keep bump layer" FALSE
)
(script-fu-menu-register "script-fu-add-bevel"
......
......@@ -102,7 +102,8 @@
(oheight (car (gimp-image-height img)))
(width (+ owidth (* 2 xsize)))
(height (+ oheight (* 2 ysize)))
(layer (car (gimp-layer-new img width height
(layer (car (gimp-layer-new img
width height
(car (gimp-drawable-type-with-alpha adraw))
"Border-Layer" 100 NORMAL-MODE))))
......@@ -166,18 +167,18 @@
)
(script-fu-register "script-fu-addborder"
_"Add _Border..."
"Add a border around an image"
"Andy Thomas <alt@picnic.demon.co.uk>"
"Andy Thomas"
"6/10/97"
"*"
SF-IMAGE "Input image" 0
SF-DRAWABLE "Input drawable" 0
SF-ADJUSTMENT _"Border X size" '(12 1 250 1 10 0 1)
SF-ADJUSTMENT _"Border Y size" '(12 1 250 1 10 0 1)
SF-COLOR _"Border color" '(38 31 207)
SF-ADJUSTMENT _"Delta value on color" '(25 1 255 1 10 0 1)
_"Add _Border..."
_"Add a border around an image"
"Andy Thomas <alt@picnic.demon.co.uk>"
"Andy Thomas"
"6/10/97"
"*"
SF-IMAGE "Input image" 0
SF-DRAWABLE "Input drawable" 0
SF-ADJUSTMENT _"Border X size" '(12 1 250 1 10 0 1)
SF-ADJUSTMENT _"Border Y size" '(12 1 250 1 10 0 1)
SF-COLOR _"Border color" '(38 31 207)
SF-ADJUSTMENT _"Delta value on color" '(25 1 255 1 10 0 1)
)
(script-fu-menu-register "script-fu-addborder"
......
......@@ -129,6 +129,7 @@
)
(gimp-context-push)
(gimp-image-undo-disable img)
;(gimp-image-resize img (+ length height) (+ height height) 0 0)
(gimp-image-add-layer img bg-layer 1)
......@@ -171,17 +172,17 @@
)
(script-fu-register "script-fu-alien-glow-right-arrow"
_"_Arrow..."
_"Create an arrow graphic with an eerie glow for web pages"
"Adrian Likins"
"Adrian Likins"
"1997"
""
SF-ADJUSTMENT _"Size" '(32 5 150 1 10 0 1)
SF-OPTION _"Orientation" '(_"Right" _"Left" _"Up" _"Down")
SF-COLOR _"Glow color" '(63 252 0)
SF-COLOR _"Background color" "black"
SF-TOGGLE _"Flatten image" TRUE
_"_Arrow..."
_"Create an arrow graphic with an eerie glow for web pages"
"Adrian Likins"
"Adrian Likins"
"1997"
""
SF-ADJUSTMENT _"Size" '(32 5 150 1 10 0 1)
SF-OPTION _"Orientation" '(_"Right" _"Left" _"Up" _"Down")
SF-COLOR _"Glow color" '(63 252 0)
SF-COLOR _"Background color" "black"
SF-TOGGLE _"Flatten image" TRUE
)
(script-fu-menu-register "script-fu-alien-glow-right-arrow"
......
......@@ -33,13 +33,14 @@
RGBA-IMAGE "Ruler" 100 NORMAL-MODE)))
(glow-layer (car (gimp-layer-new img
(+ length height) (+ height height)
RGBA-IMAGE "ALien Glow" 100 NORMAL-MODE)))
RGBA-IMAGE "Alien Glow" 100 NORMAL-MODE)))
(bg-layer (car (gimp-layer-new img
(+ length height) (+ height height)
RGB-IMAGE "Backround" 100 NORMAL-MODE)))
RGB-IMAGE "Background" 100 NORMAL-MODE)))
)
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-resize img (+ length height) (+ height height) 0 0)
(gimp-image-add-layer img bg-layer 1)
......@@ -52,7 +53,9 @@
(gimp-edit-clear glow-layer)
(gimp-edit-clear ruler-layer)
(gimp-rect-select img (/ height 2) (/ height 2) length height CHANNEL-OP-REPLACE FALSE 0)
(gimp-rect-select img
(/ height 2) (/ height 2)
length height CHANNEL-OP-REPLACE FALSE 0)
(gimp-context-set-foreground '(79 79 79))
(gimp-context-set-background '(0 0 0))
......@@ -72,8 +75,9 @@
(if (= flatten TRUE)
(gimp-image-flatten img))
(gimp-context-pop)
(gimp-display-new img)
(gimp-context-pop)
)
)
......
......@@ -46,6 +46,7 @@
)
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-resize img diameter diameter 0 0)
(gimp-image-add-layer img bg-layer 1)
......@@ -92,16 +93,16 @@
)
(script-fu-register "script-fu-alien-glow-bullet"
_"_Bullet..."
_"Create a bullet graphic with an eerie glow for web pages"
"Adrian Likins"
"Adrian Likins"
"1997"
""
SF-ADJUSTMENT _"Radius" '(16 1 100 1 10 0 1)
SF-COLOR _"Glow color" '(63 252 0)
SF-COLOR _"Background color" '(0 0 0)
SF-TOGGLE _"Flatten image" TRUE
_"_Bullet..."
_"Create a bullet graphic with an eerie glow for web pages"
"Adrian Likins"
"Adrian Likins"
"1997"
""
SF-ADJUSTMENT _"Radius" '(16 1 100 1 10 0 1)
SF-COLOR _"Glow color" '(63 252 0)
SF-COLOR _"Background color" "black"
SF-TOGGLE _"Flatten image" TRUE
)
(script-fu-menu-register "script-fu-alien-glow-bullet"
......
......@@ -86,6 +86,7 @@
)
(gimp-context-push)
(gimp-image-undo-disable img)
; Create bumpmap layer
......@@ -146,21 +147,21 @@
)
(script-fu-register "script-fu-alien-glow-button"
_"B_utton..."
_"Create a button graphic with an eerie glow for web pages"
"Adrian Likins"
"Adrian Likins"
"July 1997"
""
SF-STRING _"Text" "Hello world!"
SF-FONT _"Font" "Sans Bold"
SF-ADJUSTMENT _"Font size (pixels)" '(22 2 100 1 1 0 1)
SF-COLOR _"Text color" '(0 0 0)
SF-COLOR _"Glow color" '(63 252 0)
SF-COLOR _"Background color" '(0 0 0)
SF-ADJUSTMENT _"Padding" '(6 1 100 1 10 0 1)
SF-ADJUSTMENT _"Glow radius" '(10 1 200 1 10 0 1)
SF-TOGGLE _"Flatten image" TRUE
_"B_utton..."
_"Create a button graphic with an eerie glow for web pages"
"Adrian Likins"
"Adrian Likins"
"July 1997"
""
SF-STRING _"Text" "Hello world!"
SF-FONT _"Font" "Sans Bold"
SF-ADJUSTMENT _"Font size (pixels)" '(22 2 100 1 1 0 1)
SF-COLOR _"Text color" "black"
SF-COLOR _"Glow color" '(63 252 0)
SF-COLOR _"Background color" "black"
SF-ADJUSTMENT _"Padding" '(6 1 100 1 10 0 1)
SF-ADJUSTMENT _"Glow radius" '(10 1 200 1 10 0 1)
SF-TOGGLE _"Flatten image" TRUE
)
(script-fu-menu-register "script-fu-alien-glow-button"
......
......@@ -20,6 +20,7 @@
)
(gimp-context-push)
(gimp-selection-none img)
(script-fu-util-image-resize-from-layer img logo-layer)
(gimp-image-add-layer img bg-layer 1)
......@@ -42,36 +43,41 @@
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE
0 0 1 1)
(gimp-context-pop)
)
)
(define (script-fu-alien-glow-logo-alpha img
logo-layer
size
glow-color)
(gimp-image-undo-group-start img)
(apply-alien-glow-logo-effect img logo-layer size glow-color)
(gimp-image-undo-group-end img)
(gimp-displays-flush)
(begin
(gimp-image-undo-group-start img)
(apply-alien-glow-logo-effect img logo-layer size glow-color)
(gimp-image-undo-group-end img)
(gimp-displays-flush)
)
)
(script-fu-register "script-fu-alien-glow-logo-alpha"
_"Alien _Glow..."
_"Add an eerie glow around the selected region (or alpha)"
"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)
_"Alien _Glow..."
_"Add an eerie glow around the selected region (or alpha)"
"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)
)
(script-fu-menu-register "script-fu-alien-glow-logo-alpha"
"<Image>/Filters/Alpha to Logo")
(define (script-fu-alien-glow-logo text
size
font
......@@ -81,7 +87,9 @@
(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)))
(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)))
)
......@@ -94,16 +102,16 @@
)
(script-fu-register "script-fu-alien-glow-logo"
_"Alien _Glow..."
_"Create a logo with an alien glow around the text"
"Spencer Kimball"
"Spencer Kimball"
"1997"
""
SF-STRING _"Text" "ALIEN"
SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "Sans Bold"
SF-COLOR _"Glow color" '(63 252 0)
_"Alien _Glow..."
_"Create a logo with an alien glow around the text"
"Spencer Kimball"
"Spencer Kimball"
"1997"
""
SF-STRING _"Text" "ALIEN"
SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "Sans Bold"
SF-COLOR _"Glow color" '(63 252 0)
)
(script-fu-menu-register "script-fu-alien-glow-logo"
......
......@@ -46,6 +46,7 @@
)
(gimp-context-push)
(script-fu-util-image-resize-from-layer img logo-layer)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img bands-layer 1)
......@@ -104,6 +105,7 @@
)
)
(define (script-fu-alien-neon-logo-alpha img
logo-layer
fg-color
......@@ -112,12 +114,14 @@
gap-size
num-bands
do-fade)
(begin
(begin
(gimp-image-undo-group-start img)
(apply-alien-neon-logo-effect img logo-layer fg-color bg-color
band-size gap-size num-bands do-fade)
(gimp-image-undo-group-end img)
(gimp-displays-flush)))
(gimp-displays-flush)
)
)
(script-fu-register "script-fu-alien-neon-logo-alpha"
_"Alien _Neon..."
......@@ -126,19 +130,20 @@
"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
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-COLOR _"Glow color" "green"
SF-COLOR _"Background color" "black"
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
)
(script-fu-menu-register "script-fu-alien-neon-logo-alpha"
"<Image>/Filters/Alpha to Logo")
(define (script-fu-alien-neon-logo text
size
fontname
......@@ -162,24 +167,22 @@
)
(script-fu-register "script-fu-alien-neon-logo"
_"Alien _Neon..."
_"Create a logo with psychedelic outlines around the text"
"Raphael Quinet (quinet@gamers.org)"
"Raphael Quinet"
"1999-2000"
""
SF-STRING _"Text" "The GIMP"
SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "Blippo"
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
_"Alien _Neon..."
_"Create a logo with psychedelic outlines around the text"
"Raphael Quinet (quinet@gamers.org)"
"Raphael Quinet"
"1999-2000"
""
SF-STRING _"Text" "GIMP"
SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "Blippo"
SF-COLOR _"Glow color" "green"
SF-COLOR _"Background color" "black"
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
)
(script-fu-menu-register "script-fu-alien-neon-logo"
"<Toolbox>/Xtns/Logos")
; end
......@@ -13,6 +13,7 @@
)
(gimp-context-push)
(gimp-selection-none img)
(script-fu-util-image-resize-from-layer img logo-layer)
(gimp-image-add-layer img shadow-layer 1)
......@@ -36,10 +37,12 @@
0 0 width height)
(gimp-layer-translate shadow-layer 3 3)
(gimp-context-pop)
)
)
(define (script-fu-basic1-logo-alpha img
logo-layer
bg-color
......@@ -61,7 +64,7 @@
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-COLOR _"Background color" '(255 255 255)
SF-COLOR _"Background color" "white"
SF-COLOR _"Text color" '(6 6 206)
)
......@@ -92,10 +95,10 @@
"Spencer Kimball"
"1996"
""
SF-STRING _"Text" "The Gimp"