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

Script-Fu string cleanup/simplification: apply the same fix for menu path

Browse Source 
2004-11-18  Michael Natterer  <mitch@gimp.org>

	Script-Fu string cleanup/simplification: apply the same fix for
	menu path translation that was done for plug-ins a while ago.

	* plug-ins/script-fu/script-fu.c (script_fu_auxillary_init): use
	gimp_plugin_menu_register() on the "Refresh" temp_proc.

	* plug-ins/script-fu/scripts/*.scm: ported all scripts to use
	script-fu-menu-register and pass just the menu label in
	script-fu-register. Cleaned up all register calls to share a
	somewhat similar formatting.
This commit is contained in:
Michael Natterer
2004-11-18 22:44:28 +00:00
committed by Michael Natterer
parent 2d4aad8683
commit 8a46203e5a
100 changed files with 1121 additions and 787 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
ChangeLog
View File

@ -1,3 +1,16 @@
2004-11-18 Michael Natterer <mitch@gimp.org>
Script-Fu string cleanup/simplification: apply the same fix for
menu path translation that was done for plug-ins a while ago.
* plug-ins/script-fu/script-fu.c (script_fu_auxillary_init): use
gimp_plugin_menu_register() on the "Refresh" temp_proc.
* plug-ins/script-fu/scripts/*.scm: ported all scripts to use
script-fu-menu-register and pass just the menu label in
script-fu-register. Cleaned up all register calls to share a
somewhat similar formatting.
2004-11-18 Sven Neumann <sven@gimp.org>
* plug-ins/common/postscript.c: changed the default to load only

5
plug-ins/script-fu/script-fu.c
View File

@ -279,12 +279,15 @@ script_fu_auxillary_init (void)
"Spencer Kimball & Peter Mattis",
"Spencer Kimball & Peter Mattis",
"1997",
N_("<Toolbox>/Xtns/Script-Fu/_Refresh Scripts"),
N_("_Refresh Scripts"),
NULL,
GIMP_TEMPORARY,
G_N_ELEMENTS (args), 0,
args, NULL,
script_fu_refresh_proc);
gimp_plugin_menu_register ("script_fu_refresh",
N_("<Toolbox>/Xtns/Script-Fu"));
}
static void

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

@ -109,21 +109,25 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-3d-outline-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/3D _Outline..."
_"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))
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))
(script-fu-menu-register "script-fu-3d-outline-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-3d-outline-logo text-pattern
text
@ -146,19 +150,22 @@
(gimp-display-new img)))
(script-fu-register "script-fu-3d-outline-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/3D _Outline..."
_"3D _Outline..."
"Creates outlined texts with drop shadow"
"Hrvoje Horvat (hhorvat@open.hr)"
"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-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))
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-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))
(script-fu-menu-register "script-fu-3d-outline-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

5
plug-ins/script-fu/scripts/3dTruchet.scm
View File

@ -212,7 +212,7 @@
(gimp-context-pop)))
(script-fu-register "script-fu-3dtruchet"
_"<Toolbox>/Xtns/Script-Fu/Patterns/3_D Truchet..."
_"3_D Truchet..."
"3D Truchet pattern"
"Adrian Likins <aklikins@eos.ncsu.edu>"
"Adrian Likins"
@ -226,3 +226,6 @@
SF-TOGGLE _"Supersample" TRUE
SF-ADJUSTMENT _"Number of X tiles" '(5 1 1000 1 10 0 1)
SF-ADJUSTMENT _"Number of Y tiles" '(5 1 1000 1 10 0 1))
(script-fu-menu-register "script-fu-3dtruchet"
_"<Toolbox>/Xtns/Script-Fu/Patterns")

12
plug-ins/script-fu/scripts/add-bevel.scm
View File

@ -178,15 +178,17 @@
(gimp-context-pop)))
(script-fu-register "script-fu-add-bevel"
_"<Image>/Script-Fu/Decor/Add B_evel..."
_"Add B_evel..."
"Add a bevel 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-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
)
SF-TOGGLE _"Keep bump layer" FALSE)
(script-fu-menu-register "script-fu-add-bevel"
_"<Image>/Script-Fu/Decor")

5
plug-ins/script-fu/scripts/addborder.scm
View File

@ -165,7 +165,7 @@
(gimp-context-pop)))
(script-fu-register "script-fu-addborder"
_"<Image>/Script-Fu/Decor/Add _Border..."
_"Add _Border..."
"Add a border around an image"
"Andy Thomas <alt@picnic.demon.co.uk>"
"Andy Thomas"
@ -177,3 +177,6 @@
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"
_"<Image>/Script-Fu/Decor")

5
plug-ins/script-fu/scripts/alien-glow-arrow.scm
View File

@ -144,7 +144,7 @@
(gimp-context-pop)))
(script-fu-register "script-fu-alien-glow-right-arrow"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Alien Glow/_Arrow..."
_"_Arrow..."
"Create an X-file deal"
"Adrian Likins"
"Adrian Likins"
@ -158,3 +158,6 @@
SF-COLOR _"Glow color" '(63 252 0)
SF-COLOR _"Background color" '(0 0 0)
SF-TOGGLE _"Flatten image" TRUE)
(script-fu-menu-register "script-fu-alien-glow-right-arrow"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Alien Glow")

5
plug-ins/script-fu/scripts/alien-glow-bar.scm
View File

@ -82,7 +82,7 @@
(script-fu-register "script-fu-alien-glow-horizontal-ruler"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Alien Glow/_Hrule..."
_"_Hrule..."
"Create an Hrule with the Alien Glow look"
"Adrian Likins"
"Adrian Likins"
@ -93,3 +93,6 @@
SF-COLOR _"Glow color" '(63 252 0)
SF-COLOR _"Background color" '(0 0 0)
SF-TOGGLE _"Flatten image" TRUE)
(script-fu-menu-register "script-fu-alien-glow-horizontal-ruler"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Alien Glow")

5
plug-ins/script-fu/scripts/alien-glow-bullet.scm
View File

@ -93,7 +93,7 @@
(gimp-context-pop)))
(script-fu-register "script-fu-alien-glow-bullet"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Alien Glow/_Bullet..."
_"_Bullet..."
"Create a Bullet with an Alien Glow theme for web pages"
"Adrian Likins"
"Adrian Likins"
@ -103,3 +103,6 @@
SF-COLOR _"Glow color" '(63 252 0)
SF-COLOR _"Background color" '(0 0 0)
SF-TOGGLE _"Flatten image" TRUE)
(script-fu-menu-register "script-fu-alien-glow-bullet"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Alien Glow")

5
plug-ins/script-fu/scripts/alien-glow-button.scm
View File

@ -137,7 +137,7 @@
(gimp-context-pop)))
(script-fu-register "script-fu-alien-glow-button"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Alien Glow/B_utton..."
_"B_utton..."
"Button with an eerie glow"
"Adrian Likins"
"Adrian Likins"
@ -152,3 +152,6 @@
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"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Alien Glow")

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

@ -55,7 +55,7 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-alien-glow-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Alien _Glow..."
_"Alien _Glow..."
"Create an X-Files-esque logo with the specified glow color"
"Spencer Kimball"
"Spencer Kimball"
@ -66,6 +66,10 @@
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>/Script-Fu/Alpha to Logo")
(define (script-fu-alien-glow-logo text
size
font
@ -87,7 +91,7 @@
(gimp-display-new img)))
(script-fu-register "script-fu-alien-glow-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Alien _Glow..."
_"Alien _Glow..."
"Create an X-Files-esque logo with the specified glow color"
"Spencer Kimball"
"Spencer Kimball"
@ -97,3 +101,6 @@
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"
_"<Toolbox>/Xtns/Script-Fu/Logos")

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

@ -116,21 +116,24 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-alien-neon-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Alien _Neon..."
_"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-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-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>/Script-Fu/Alpha to Logo")
(define (script-fu-alien-neon-logo text
size
@ -152,22 +155,21 @@
(gimp-display-new img)))
(script-fu-register "script-fu-alien-neon-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Alien _Neon..."
_"Alien _Neon..."
"Creates a psychedelic effect with outlines of the specified color around the letters"
"Raphael Quinet (quinet@gamers.org)"
"Raphael Quinet"
"1999-2000"
""
SF-STRING _"Text" "The GIMP"
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
)
; end
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)
(script-fu-menu-register "script-fu-alien-neon-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

61
plug-ins/script-fu/scripts/asc2img.scm
View File

@ -221,34 +221,37 @@
; Register the function with the GIMP:
(script-fu-register
"script-fu-asc-2-img"
_"<Toolbox>/Xtns/Script-Fu/Utils/_ASCII to Image..."
"Create a new image containing text from a simple text file"
"Chris Gutteridge: cjg@ecs.soton.ac.uk"
"8th April 1998"
"Chris Gutteridge / ECS @ University of Southampton, England"
""
SF-FILENAME _"Filename" "afile"
SF-FONT _"Font" "Bitstream Charter"
SF-ADJUSTMENT _"Font size (pixels)" '(45 2 1000 1 10 0 1)
SF-COLOR _"Text color" '(0 0 0)
SF-TOGGLE _"Transparent background" FALSE
SF-COLOR _"Background color" '(255 255 255)
SF-ADJUSTMENT _"Buffer amount (% height of text)" '(35 0 100 1 10 0 0)
)
(script-fu-register "script-fu-asc-2-img"
_"_ASCII to Image..."
"Create a new image containing text from a simple text file"
"Chris Gutteridge: cjg@ecs.soton.ac.uk"
"8th April 1998"
"Chris Gutteridge / ECS @ University of Southampton, England"
""
SF-FILENAME _"Filename" "afile"
SF-FONT _"Font" "Bitstream Charter"
SF-ADJUSTMENT _"Font size (pixels)" '(45 2 1000 1 10 0 1)
SF-COLOR _"Text color" '(0 0 0)
SF-TOGGLE _"Transparent background" FALSE
SF-COLOR _"Background color" '(255 255 255)
SF-ADJUSTMENT _"Buffer amount (% height of text)" '(35 0 100 1 10 0 0))
(script-fu-menu-register "script-fu-asc-2-img"
_"<Toolbox>/Xtns/Script-Fu/Utils")
(script-fu-register "script-fu-asc-2-img-layer"
_"<Image>/Script-Fu/Utils/_ASCII to Layer..."
"Create a new layer of text from a simple text file"
"Chris Gutteridge: cjg@ecs.soton.ac.uk"
"30th April 1998"
"Chris Gutteridge / ECS @ University of Southampton, England"
"*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Layer" 0
SF-FILENAME _"File name" "afile"
SF-FONT _"Font" "Bitstream Charter"
SF-ADJUSTMENT _"Font size (pixels)" '(45 2 1000 1 10 0 1)
SF-COLOR _"Text color" '(0 0 0)
)
_"_ASCII to Layer..."
"Create a new layer of text from a simple text file"
"Chris Gutteridge: cjg@ecs.soton.ac.uk"
"30th April 1998"
"Chris Gutteridge / ECS @ University of Southampton, England"
"*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Layer" 0
SF-FILENAME _"File name" "afile"
SF-FONT _"Font" "Bitstream Charter"
SF-ADJUSTMENT _"Font size (pixels)" '(45 2 1000 1 10 0 1)
SF-COLOR _"Text color" '(0 0 0))
(script-fu-menu-register "script-fu-asc-2-img-layer"
_"<Image>/Script-Fu/Utils")

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

@ -49,7 +49,7 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-basic1-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/_Basic I..."
_"_Basic I..."
"Creates a simple logo with a drop shadow"
"Spencer Kimball"
"Spencer Kimball"
@ -60,6 +60,10 @@
SF-COLOR _"Background color" '(255 255 255)
SF-COLOR _"Text color" '(6 6 206))
(script-fu-menu-register "script-fu-basic1-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-basic1-logo text
size
font
@ -75,7 +79,7 @@
(gimp-display-new img)))
(script-fu-register "script-fu-basic1-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/_Basic I..."
_"_Basic I..."
"Creates a simple logo with a drop shadow"
"Spencer Kimball"
"Spencer Kimball"
@ -86,3 +90,6 @@
SF-FONT _"Font" "Dragonwick"
SF-COLOR _"Background color" '(255 255 255)
SF-COLOR _"Text color" '(6 6 206))
(script-fu-menu-register "script-fu-basic1-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

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

@ -68,7 +68,7 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-basic2-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/B_asic II..."
_"B_asic II..."
"Creates a simple logo with a shadow and a highlight"
"Spencer Kimball"
"Spencer Kimball"
@ -79,6 +79,10 @@
SF-COLOR _"Background color" '(255 255 255)
SF-COLOR _"Text color" '(206 6 50))
(script-fu-menu-register "script-fu-basic2-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-basic2-logo text
size
font
@ -94,7 +98,7 @@
(gimp-display-new img)))
(script-fu-register "script-fu-basic2-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/B_asic II..."
_"B_asic II..."
"Creates a simple logo with a shadow and a highlight"
"Spencer Kimball"
"Spencer Kimball"
@ -105,3 +109,6 @@
SF-FONT _"Font" "Sans Bold"
SF-COLOR _"Background color" '(255 255 255)
SF-COLOR _"Text color" '(206 6 50))
(script-fu-menu-register "script-fu-basic2-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

5
plug-ins/script-fu/scripts/beveled-button.scm
View File

@ -136,7 +136,7 @@
(gimp-context-pop)))
(script-fu-register "script-fu-button00"
_"<Toolbox>/Xtns/Script-Fu/Buttons/Simple _Beveled Button..."
_"Simple _Beveled Button..."
"Simple beveled button"
"Federico Mena Quintero"
"Federico Mena Quintero"
@ -151,3 +151,6 @@
SF-ADJUSTMENT _"Padding" '(2 1 100 1 10 0 1)
SF-ADJUSTMENT _"Bevel width" '(4 1 100 1 10 0 1)
SF-TOGGLE _"Pressed" FALSE)
(script-fu-menu-register "script-fu-button00"
_"<Toolbox>/Xtns/Script-Fu/Buttons")

13
plug-ins/script-fu/scripts/beveled-pattern-arrow.scm
View File

@ -140,15 +140,18 @@
(script-fu-register "script-fu-beveled-pattern-arrow"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Beveled Pattern/_Arrow..."
_"_Arrow..."
"Beveled pattern arrow"
"Federico Mena Quintero"
"Federico Mena Quintero"
"July 1997"
""
SF-ADJUSTMENT _"Size" '(32 5 150 1 10 0 1)
SF-ADJUSTMENT _"Size" '(32 5 150 1 10 0 1)
SF-OPTION _"Orientation" '(_"Right"
_"Left"
_"Up"
_"Down")
_"Left"
_"Up"
_"Down")
SF-PATTERN _"Pattern" "Wood")
(script-fu-menu-register "script-fu-beveled-pattern-arrow"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Beveled Pattern")

5
plug-ins/script-fu/scripts/beveled-pattern-bullet.scm
View File

@ -77,7 +77,7 @@
(script-fu-register "script-fu-beveled-pattern-bullet"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Beveled Pattern/_Bullet..."
_"_Bullet..."
"Beveled pattern bullet"
"Federico Mena Quintero"
"Federico Mena Quintero"
@ -86,3 +86,6 @@
SF-ADJUSTMENT _"Diameter" '(16 1 150 1 10 0 1)
SF-PATTERN _"Pattern" "Wood"
SF-TOGGLE _"Transparent background" FALSE)
(script-fu-menu-register "script-fu-beveled-pattern-bullet"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Beveled Pattern")

15
plug-ins/script-fu/scripts/beveled-pattern-button.scm
View File

@ -113,15 +113,18 @@
(script-fu-register "script-fu-beveled-pattern-button"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Beveled Pattern/B_utton..."
_"B_utton..."
"Beveled pattern button"
"Federico Mena Quintero"
"Federico Mena Quintero"
"July 1997"
""
SF-STRING _"Text" "Hello world!"
SF-STRING _"Text" "Hello world!"
SF-ADJUSTMENT _"Font size (pixels)" '(32 2 1000 1 10 0 1)
SF-FONT _"Font" "Sans"
SF-COLOR _"Text color" '(0 0 0)
SF-PATTERN _"Pattern" "Wood"
SF-TOGGLE _"Pressed" FALSE)
SF-FONT _"Font" "Sans"
SF-COLOR _"Text color" '(0 0 0)
SF-PATTERN _"Pattern" "Wood"
SF-TOGGLE _"Pressed" FALSE)
(script-fu-menu-register "script-fu-beveled-pattern-button"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Beveled Pattern")

13
plug-ins/script-fu/scripts/beveled-pattern-heading.scm
View File

@ -100,14 +100,17 @@
(script-fu-register "script-fu-beveled-pattern-heading"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Beveled Pattern/H_eading..."
_"H_eading..."
"Beveled pattern heading"
"Federico Mena Quintero"
"Federico Mena Quintero"
"July 1997"
""
SF-STRING _"Text" "Hello world!"
SF-ADJUSTMENT _"Font size (pixels)" '(72 2 200 1 1 0 1)
SF-FONT _"Font" "Sans"
SF-PATTERN _"Pattern" "Wood"
SF-STRING _"Text" "Hello world!"
SF-ADJUSTMENT _"Font size (pixels)" '(72 2 200 1 1 0 1)
SF-FONT _"Font" "Sans"
SF-PATTERN _"Pattern" "Wood"
SF-TOGGLE _"Transparent background" FALSE)
(script-fu-menu-register "script-fu-beveled-pattern-heading"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Beveled Pattern")

9
plug-ins/script-fu/scripts/beveled-pattern-hrule.scm
View File

@ -70,12 +70,15 @@
(script-fu-register "script-fu-beveled-pattern-hrule"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Beveled Pattern/_Hrule..."
_"_Hrule..."
"Beveled pattern hrule"
"Federico Mena Quintero"
"Federico Mena Quintero"
"July 1997"
""
SF-ADJUSTMENT _"Width" '(480 5 1500 1 10 0 1)
SF-ADJUSTMENT _"Height" '(16 1 100 1 10 0 1)
SF-ADJUSTMENT _"Width" '(480 5 1500 1 10 0 1)
SF-ADJUSTMENT _"Height" '(16 1 100 1 10 0 1)
SF-PATTERN _"Pattern" "Wood")
(script-fu-menu-register "script-fu-beveled-pattern-hrule"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Beveled Pattern")

13
plug-ins/script-fu/scripts/blend-anim.scm
View File

@ -217,15 +217,18 @@
(gimp-message "Blend Animation needs at least three source layers"))))
(script-fu-register "script-fu-blend-anim"
_"<Image>/Script-Fu/Animators/_Blend..."
_"_Blend..."
"Blend two or more layers over a background, so that an
animation can be saved"
"Sven Neumann <sven@gimp.org>"
"Sven Neumann"
"1999/12/21"
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Intermediate frames" '(3 1 1024 1 10 0 1)
SF-ADJUSTMENT _"Max. blur radius" '(0 0 1024 1 10 0 1)
SF-TOGGLE _"Looped" TRUE)
SF-ADJUSTMENT _"Max. blur radius" '(0 0 1024 1 10 0 1)
SF-TOGGLE _"Looped" TRUE)
(script-fu-menu-register "script-fu-blend-anim"
_"<Image>/Script-Fu/Animators")

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

@ -115,7 +115,7 @@
(script-fu-register "script-fu-blended-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Blen_ded..."
_"Blen_ded..."
"Creates logos with blended backgrounds, highlights, and shadows"
"Spencer Kimball"
"Spencer Kimball"
@ -134,6 +134,10 @@
SF-GRADIENT _"Gradient" "Golden"
SF-TOGGLE _"Gradient reverse" FALSE)
(script-fu-menu-register "script-fu-blended-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-blended-logo text
size
font
@ -165,7 +169,7 @@
(gimp-context-pop)))
(script-fu-register "script-fu-blended-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Blen_ded..."
_"Blen_ded..."
"Creates logos with blended backgrounds, highlights, and shadows"
"Spencer Kimball"
"Spencer Kimball"
@ -184,3 +188,6 @@
SF-COLOR _"End blend" '(129 9 82)
SF-GRADIENT _"Gradient" "Golden"
SF-TOGGLE _"Gradient reverse" FALSE)
(script-fu-menu-register "script-fu-blended-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

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

@ -83,18 +83,22 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-bovinated-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Bo_vination..."
_"Bo_vination..."
"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-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))
(script-fu-menu-register "script-fu-bovinated-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-bovinated-logo text
size
font
@ -111,16 +115,18 @@
(gimp-display-new img)))
(script-fu-register "script-fu-bovinated-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Bo_vination..."
_"Bo_vination..."
"Makes Cow-spotted logos"
"Brian McFee <keebler@wco.com>"
"Brian McFee"
"April 1998"
""
SF-STRING _"Text" "Fear the Cow"
SF-STRING _"Text" "Fear the Cow"
SF-ADJUSTMENT _"Font size (pixels)" '(80 2 1000 1 10 0 1)
SF-FONT _"Font" "RoostHeavy"
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))
SF-FONT _"Font" "RoostHeavy"
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))
(script-fu-menu-register "script-fu-bovinated-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

27
plug-ins/script-fu/scripts/burn-in-anim.scm
View File

@ -183,19 +183,22 @@
(script-fu-register "script-fu-burn-in-anim"
_"<Image>/Script-Fu/Animators/B_urn-In..."
_"Burn-in like effect on a fg (text) layer and a bg layer; V2.1"
_"B_urn-In..."
"Burn-in like effect on a fg (text) layer and a bg layer; V2.1"
"Roland Berger roland@fuchur.leute.server.de"
"Roland Berger"
"January 2001"
"RGBA GRAYA INDEXEDA"
SF-IMAGE "The image" 0
SF-DRAWABLE "Layer to animate" 0
SF-COLOR _"Glow color" '(255 255 255)
SF-TOGGLE _"Fadeout" FALSE
SF-VALUE _"Fadeout width" "100"
SF-VALUE _"Corona width" "7"
SF-VALUE _"After glow" "50"
SF-TOGGLE _"Add glowing" TRUE
SF-TOGGLE _"Prepare for GIF" FALSE
SF-VALUE _"Speed (pixels/frame)" "50")
SF-IMAGE "The image" 0
SF-DRAWABLE "Layer to animate" 0
SF-COLOR _"Glow color" '(255 255 255)
SF-TOGGLE _"Fadeout" FALSE
SF-VALUE _"Fadeout width" "100"
SF-VALUE _"Corona width" "7"
SF-VALUE _"After glow" "50"
SF-TOGGLE _"Add glowing" TRUE
SF-TOGGLE _"Prepare for GIF" FALSE
SF-VALUE _"Speed (pixels/frame)" "50")
(script-fu-menu-register "script-fu-burn-in-anim"
_"<Image>/Script-Fu/Animators")

34
plug-ins/script-fu/scripts/camo.scm
View File

@ -86,22 +86,20 @@
(gimp-context-pop)))
; Register the function with the GIMP:
(script-fu-register
"script-fu-camo-pattern"
_"<Toolbox>/Xtns/Script-Fu/Patterns/_Camouflage..."
"Camouflage pattern"
"Chris Gutteridge: cjg@ecs.soton.ac.uk"
"28th April 1998"
"Chris Gutteridge / ECS @ University of Southampton, England"
""
SF-ADJUSTMENT _"Image size" '(256 10 1000 1 10 0 1)
SF-ADJUSTMENT _"Granularity" '(7 0 15 1 1 0 0)
SF-COLOR _"Color 1" '(33 100 58)
SF-COLOR _"Color 2" '(170 170 60)
SF-COLOR _"Color 3" '(150 115 100)
SF-TOGGLE _"Smooth" FALSE
SF-TOGGLE _"Flatten image" TRUE
)
(script-fu-register "script-fu-camo-pattern"
_"_Camouflage..."
"Camouflage pattern"
"Chris Gutteridge: cjg@ecs.soton.ac.uk"
"28th April 1998"
"Chris Gutteridge / ECS @ University of Southampton, England"
""
SF-ADJUSTMENT _"Image size" '(256 10 1000 1 10 0 1)
SF-ADJUSTMENT _"Granularity" '(7 0 15 1 1 0 0)
SF-COLOR _"Color 1" '(33 100 58)
SF-COLOR _"Color 2" '(170 170 60)
SF-COLOR _"Color 3" '(150 115 100)
SF-TOGGLE _"Smooth" FALSE
SF-TOGGLE _"Flatten image" TRUE)
(script-fu-menu-register "script-fu-camo-pattern"
_"<Toolbox>/Xtns/Script-Fu/Patterns")

11
plug-ins/script-fu/scripts/carve-it.scm
View File

@ -174,13 +174,16 @@
(gimp-context-pop)))
(script-fu-register "script-fu-carve-it"
_"<Image>/Script-Fu/Stencil Ops/C_arve-It..."
_"C_arve-It..."
"Use the specified [GRAY] drawable as a stencil to carve from the specified image. The specified image must be either RGB colour or grayscale, not indexed."
"Spencer Kimball"
"Spencer Kimball"
"1997"
"GRAY"
SF-IMAGE "Mask image" 0
SF-DRAWABLE "Mask drawable" 0
SF-DRAWABLE _"Image to carve" 0
SF-IMAGE "Mask image" 0
SF-DRAWABLE "Mask drawable" 0
SF-DRAWABLE _"Image to carve" 0
SF-TOGGLE _"Carve white areas" TRUE)
(script-fu-menu-register "script-fu-carve-it"
_"<Image>/Script-Fu/Stencil Ops")

11
plug-ins/script-fu/scripts/carved-logo.scm
View File

@ -153,18 +153,21 @@
(gimp-context-pop)))
(script-fu-register "script-fu-carved-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Carved..."
_"Carved..."
"Carve the text from the specified image. The image will be automatically tiled to accomodate the rendered text string. The \"Carve Raised Text\" parameter determines whether to carve the text itself, or around the text."
"Spencer Kimball"
"Spencer Kimball"
"1997"
""
SF-STRING _"Text" "Marble"
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT _"Font" "Engraver"
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT _"Font" "Engraver"
SF-FILENAME _"Background Image"
(string-append ""
gimp-data-directory
"/scripts/images/texture3.jpg")
SF-TOGGLE _"Carve raised text" FALSE
SF-TOGGLE _"Carve raised text" FALSE
SF-ADJUSTMENT _"Padding around text" '(10 0 1000 1 10 0 1))
(script-fu-menu-register "script-fu-carved-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

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

@ -66,15 +66,18 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-chalk-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/_Chalk..."
_"_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))
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-COLOR _"Background color" '(0 0 0))
(script-fu-menu-register "script-fu-chalk-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-chalk-logo text
@ -100,14 +103,17 @@
(gimp-context-pop)))
(script-fu-register "script-fu-chalk-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/_Chalk..."
_"_Chalk..."
"Chalk scribbled logos"
"Manish Singh <msingh@uclink4.berkeley.edu>"
"Manish Singh"
"October 1997"
""
SF-STRING _"Text" "CHALK"
SF-STRING _"Text" "CHALK"
SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "Cooper"
SF-COLOR _"Background color" '(0 0 0)
SF-COLOR _"Chalk color" '(255 255 255))
SF-FONT _"Font" "Cooper"
SF-COLOR _"Background color" '(0 0 0)
SF-COLOR _"Chalk color" '(255 255 255))
(script-fu-menu-register "script-fu-chalk-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

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

@ -127,23 +127,25 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-chip-away-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Chip Awa_y..."
_"Chip Awa_y..."
"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-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"
)
SF-TOGGLE _"Keep background" TRUE
SF-PATTERN _"Pattern" "Burlwood")
(script-fu-menu-register "script-fu-chip-away-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-chip-away-logo text
@ -169,22 +171,23 @@
(gimp-display-new img)))
(script-fu-register "script-fu-chip-away-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Chip Awa_y..."
_"Chip Awa_y..."
"Chip away effect"
"Adrian Likins <adrian@gimp.org>"
"Adrian Likins <adrian@gimp.org>"
"1997"
""
SF-STRING _"Text" "Sloth"
SF-FONT _"Font" "RoostHeavy"
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-STRING _"Text" "Sloth"
SF-FONT _"Font" "RoostHeavy"
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-TOGGLE _"Keep background" TRUE
SF-PATTERN _"Pattern" "Burlwood")
(script-fu-menu-register "script-fu-chip-away-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

29
plug-ins/script-fu/scripts/chrome-it.scm
View File

@ -179,21 +179,24 @@
(gimp-context-pop)))
(script-fu-register "script-fu-sota-chrome-it"
_"<Image>/Script-Fu/Stencil Ops/C_hrome-It..."
_"C_hrome-It..."
"Use the specified [GRAY] drawable as a stencil to run the chrome effect on."
"Spencer Kimball"
"Spencer Kimball"
"1997"
"GRAY"
SF-IMAGE "Chrome image" 0
SF-DRAWABLE "Chrome mask" 0
SF-ADJUSTMENT _"Chrome saturation" '(-80 -100 100 1 10 0 0)
SF-ADJUSTMENT _"Chrome lightness" '(-47 -100 100 1 10 0 0)
SF-ADJUSTMENT _"Chrome factor" '(.75 0 1 .1 .01 2 0)
SF-FILENAME _"Environment map"
(string-append ""
gimp-data-directory
"/scripts/images/beavis.jpg")
SF-COLOR _"Highlight balance" '(211 95 0)
SF-COLOR _"Chrome balance" '(0 0 0)
SF-TOGGLE _"Chrome white areas" TRUE)
SF-IMAGE "Chrome image" 0
SF-DRAWABLE "Chrome mask" 0
SF-ADJUSTMENT _"Chrome saturation" '(-80 -100 100 1 10 0 0)
SF-ADJUSTMENT _"Chrome lightness" '(-47 -100 100 1 10 0 0)
SF-ADJUSTMENT _"Chrome factor" '(.75 0 1 .1 .01 2 0)
SF-FILENAME _"Environment map"
(string-append ""
gimp-data-directory
"/scripts/images/beavis.jpg")
SF-COLOR _"Highlight balance" '(211 95 0)
SF-COLOR _"Chrome balance" '(0 0 0)
SF-TOGGLE _"Chrome white areas" TRUE)
(script-fu-menu-register "script-fu-sota-chrome-it"
_"<Image>/Script-Fu/Stencil Ops")

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

@ -75,17 +75,20 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-chrome-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/C_hrome..."
_"C_hrome..."
"Somewhat simplistic, but cool chromed logos"
"Spencer Kimball"
"Spencer Kimball & Peter Mattis"
"1997"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
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)
)
SF-COLOR _"Background Color" '(191 191 191))
(script-fu-menu-register "script-fu-chrome-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-chrome-logo text
size
@ -101,14 +104,16 @@
(gimp-display-new img)))
(script-fu-register "script-fu-chrome-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/C_hrome..."
_"C_hrome..."
"Somewhat simplistic, but cool chromed logos"
"Spencer Kimball"
"Spencer Kimball & Peter Mattis"
"1997"
""
SF-STRING _"Text" "The GIMP"
SF-STRING _"Text" "The GIMP"
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT _"Font" "Bodoni"
SF-COLOR _"Background color" '(191 191 191)
)
SF-FONT _"Font" "Bodoni"
SF-COLOR _"Background color" '(191 191 191))
(script-fu-menu-register "script-fu-chrome-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

17
plug-ins/script-fu/scripts/circuit.scm
View File

@ -126,17 +126,20 @@
(gimp-context-pop)))
(script-fu-register "script-fu-circuit"
_"<Image>/Script-Fu/Render/_Circuit..."
_"_Circuit..."
"Fills the current selection with something that looks
vaguely like a circuit board."
"Adrian Likins <adrian@gimp.org>"
"Adrian Likins"
"10/17/97"
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Oilify mask size" '(17 3 50 1 10 0 1)
SF-ADJUSTMENT _"Circuit seed" '(3 1 3000000 1 10 0 1)
SF-TOGGLE _"No background (only for separate layer)" FALSE
SF-TOGGLE _"Keep selection" TRUE
SF-TOGGLE _"Separate layer" TRUE)
SF-ADJUSTMENT _"Circuit seed" '(3 1 3000000 1 10 0 1)
SF-TOGGLE _"No background (only for separate layer)" FALSE
SF-TOGGLE _"Keep selection" TRUE
SF-TOGGLE _"Separate layer" TRUE)
(script-fu-menu-register "script-fu-circuit"
_"<Image>/Script-Fu/Render")

19
plug-ins/script-fu/scripts/clothify.scm
View File

@ -45,16 +45,19 @@
(script-fu-register "script-fu-clothify"
_"<Image>/Script-Fu/Alchemy/_Clothify..."
_"_Clothify..."
"Gives the current layer a cloth-like texture"
"Tim Newsome <drz@froody.bloke.com>"
"Tim Newsome"
"4/11/97"
"RGB* GRAY*"
SF-IMAGE "Input image" 0
SF-DRAWABLE "Input drawable" 0
SF-ADJUSTMENT _"Blur X" '(9 3 100 1 10 0 1)
SF-ADJUSTMENT _"Blur Y" '(9 3 100 1 10 0 1)
SF-ADJUSTMENT _"Azimuth" '(135 0 360 1 10 1 0)
SF-ADJUSTMENT _"Elevation" '(45 0 90 1 10 1 0)
SF-ADJUSTMENT _"Depth" '(3 1 50 1 10 0 1))
SF-IMAGE "Input image" 0
SF-DRAWABLE "Input drawable" 0
SF-ADJUSTMENT _"Blur X" '(9 3 100 1 10 0 1)
SF-ADJUSTMENT _"Blur Y" '(9 3 100 1 10 0 1)
SF-ADJUSTMENT _"Azimuth" '(135 0 360 1 10 1 0)
SF-ADJUSTMENT _"Elevation" '(45 0 90 1 10 1 0)
SF-ADJUSTMENT _"Depth" '(3 1 50 1 10 0 1))
(script-fu-menu-register "script-fu-clothify"
_"<Image>/Script-Fu/Alchemy")

5
plug-ins/script-fu/scripts/coffee.scm
View File

@ -74,7 +74,7 @@
; Register the function with the GIMP:
(script-fu-register "script-fu-coffee-stain"
_"<Image>/Script-Fu/Decor/_Coffee Stain..."
_"_Coffee Stain..."
"Draws realistic looking coffee stains"
"Chris Gutteridge"
"1998, Chris Gutteridge / ECS dept, University of Southampton, England."
@ -84,3 +84,6 @@
SF-DRAWABLE "The layer" 0
SF-ADJUSTMENT _"Stains" '(3 1 10 1 1 0 0)
SF-TOGGLE _"Darken only\n(Better, but only for images with alot of white)" TRUE)
(script-fu-menu-register "script-fu-coffee-stain"
_"<Image>/Script-Fu/Decor")

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

@ -106,20 +106,23 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-comic-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Comic Boo_k..."
_"Comic Boo_k..."
"Comic-book Style Logos"
"Brian McFee <keebler@wco.com>"
"Brian McFee"
"April 1998"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-GRADIENT _"Gradient" "Incandescent"
SF-TOGGLE _"Gradient reverse" FALSE
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))
(script-fu-menu-register "script-fu-comic-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-comic-logo text
size
@ -141,7 +144,7 @@
(gimp-display-new img)))
(script-fu-register "script-fu-comic-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Comic Boo_k..."
_"Comic Boo_k..."
"Comic-book Style Logos"
"Brian McFee <keebler@wco.com>"
"Brian McFee"
@ -155,3 +158,6 @@
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))
(script-fu-menu-register "script-fu-comic-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

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

@ -122,19 +122,22 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-cool-metal-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Cool _Metal..."
_"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-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"
SF-TOGGLE _"Gradient reverse" FALSE)
(script-fu-menu-register "script-fu-cool-metal-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-cool-metal-logo text
size
@ -153,7 +156,7 @@
(gimp-display-new img)))
(script-fu-register "script-fu-cool-metal-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Cool _Metal..."
_"Cool _Metal..."
"Metallic logos with reflections and perspective shadows"
"Spencer Kimball & Rob Malda"
"Spencer Kimball & Rob Malda"
@ -165,3 +168,6 @@
SF-COLOR _"Background color" '(255 255 255)
SF-GRADIENT _"Gradient" "Horizon 1"
SF-TOGGLE _"Gradient reverse" FALSE)
(script-fu-menu-register "script-fu-cool-metal-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

5
plug-ins/script-fu/scripts/copy-visible.scm
View File

@ -66,7 +66,7 @@
(gimp-image-delete image)))
(script-fu-register "script-fu-copy-visible"
_"<Image>/Edit/Copy/Copy _Visible"
_"Copy _Visible"
"Copy the visible selection"
"Sven Neumann <sven@gimp.org>, Adrian Likins <adrian@gimp.org>, Raphael Quinet <raphael@gimp.org>"
"Sven Neumann, Adrian Likins, Raphael Quinet"
@ -74,3 +74,6 @@
"RGB* INDEXED* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0)
(script-fu-menu-register "script-fu-copy-visible"
"<Image>/Edit/Copy")

29
plug-ins/script-fu/scripts/crystal-logo.scm
View File

@ -186,21 +186,24 @@
(script-fu-register "script-fu-crystal-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Crystal..."
_"Crystal..."
"Crystal/Gel effect which displaces the image underneath"
"Spencer Kimball"
"Spencer Kimball"
"1997"
""
SF-ADJUSTMENT _"Chrome factor" '(1.0 0.2 4 0.1 1 1 0)
SF-STRING _"Text" "Crystal"
SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "Engraver"
SF-FILENAME _"Background image"
(string-append ""
gimp-data-directory
"/scripts/images/texture1.jpg")
SF-FILENAME _"Environment map"
(string-append ""
gimp-data-directory
"/scripts/images/beavis.jpg"))
SF-ADJUSTMENT _"Chrome factor" '(1.0 0.2 4 0.1 1 1 0)
SF-STRING _"Text" "Crystal"
SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "Engraver"
SF-FILENAME _"Background image"
(string-append ""
gimp-data-directory
"/scripts/images/texture1.jpg")
SF-FILENAME _"Environment map"
(string-append ""
gimp-data-directory
"/scripts/images/beavis.jpg"))
(script-fu-menu-register "script-fu-crystal-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

19
plug-ins/script-fu/scripts/distress-selection.scm
View File

@ -82,20 +82,21 @@
(gimp-displays-flush))
; Register the function with the GIMP:
(script-fu-register "script-fu-distress-selection"
_"<Image>/Script-Fu/Selection/_Distress Selection..."
_"_Distress Selection..."
"No description"
"Chris Gutteridge"
"1998, Chris Gutteridge / ECS dept, University of Southampton, England."
"23rd April 1998"
"RGB*"
SF-IMAGE "The image" 0
SF-DRAWABLE "The layer" 0
SF-IMAGE "The image" 0
SF-DRAWABLE "The layer" 0
SF-ADJUSTMENT _"Threshold (bigger 1<-->255 smaller)" '(127 1 255 1 10 0 0)
SF-ADJUSTMENT _"Spread" '(8 0 1000 1 10 0 1)
SF-ADJUSTMENT _"Spread" '(8 0 1000 1 10 0 1)
SF-ADJUSTMENT _"Granularity (1 is low)" '(4 1 25 1 10 0 1)
SF-ADJUSTMENT _"Smooth" '(2 0 150 1 10 0 1)
SF-TOGGLE _"Smooth horizontally" TRUE
SF-TOGGLE _"Smooth vertically" TRUE)
SF-ADJUSTMENT _"Smooth" '(2 0 150 1 10 0 1)
SF-TOGGLE _"Smooth horizontally" TRUE
SF-TOGGLE _"Smooth vertically" TRUE)
(script-fu-menu-register "script-fu-distress-selection"
_"<Image>/Script-Fu/Selection")

19
plug-ins/script-fu/scripts/drop-shadow.scm
View File

@ -159,17 +159,20 @@
(gimp-context-pop)))
(script-fu-register "script-fu-drop-shadow"
_"<Image>/Script-Fu/Shadow/_Drop-Shadow..."
_"_Drop-Shadow..."
"Add a drop-shadow of the current selection or alpha-channel"
"Sven Neumann <sven@gimp.org>"
"Sven Neumann"
"1999/12/21"
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Offset X" '(8 -4096 4096 1 10 0 1)
SF-ADJUSTMENT _"Offset Y" '(8 -4096 4096 1 10 0 1)
SF-ADJUSTMENT _"Blur radius" '(15 0 1024 1 10 0 1)
SF-COLOR _"Color" '(0 0 0)
SF-ADJUSTMENT _"Opacity" '(80 0 100 1 10 0 0)
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Offset X" '(8 -4096 4096 1 10 0 1)
SF-ADJUSTMENT _"Offset Y" '(8 -4096 4096 1 10 0 1)
SF-ADJUSTMENT _"Blur radius" '(15 0 1024 1 10 0 1)
SF-COLOR _"Color" '(0 0 0)
SF-ADJUSTMENT _"Opacity" '(80 0 100 1 10 0 0)
SF-TOGGLE _"Allow resizing" TRUE)
(script-fu-menu-register "script-fu-drop-shadow"
_"<Image>/Script-Fu/Shadow")

14
plug-ins/script-fu/scripts/erase-rows.scm
View File

@ -23,15 +23,17 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-erase-rows"
_"<Image>/Script-Fu/Alchemy/_Erase every other Row..."
_"_Erase every other Row..."
"Erase every other row/column with the background color"
"Federico Mena Quintero"
"Federico Mena Quintero"
"June 1997"
"RGB* GRAY* INDEXED*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-OPTION _"Rows/cols" '(_"Rows" _"Columns")
SF-OPTION _"Even/odd" '(_"Even" _"Odd")
SF-OPTION _"Erase/fill" '(_"Erase" _"Fill with BG"))
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-OPTION _"Rows/cols" '(_"Rows" _"Columns")
SF-OPTION _"Even/odd" '(_"Even" _"Odd")
SF-OPTION _"Erase/fill" '(_"Erase" _"Fill with BG"))
(script-fu-menu-register "script-fu-erase-rows"
_"<Image>/Script-Fu/Alchemy")

35
plug-ins/script-fu/scripts/fade-outline.scm
View File

@ -153,22 +153,21 @@
(gimp-context-pop)))
; Register the function with the GIMP:
; ------------------------------------
(script-fu-register "script-fu-fade-outline"
_"_Fade Outline..."
"Blend the Layers outline border from one alpha value (opaque) to another (transparent) by generating a Layermask"
"Wolfgang Hofer <hof@hotbot.com>"
"Wolfgang Hofer"
"10 Nov 1999"
"RGB* GRAY*"
SF-IMAGE "The image" 0
SF-DRAWABLE "The layer" 0
SF-ADJUSTMENT _"Border size" '(10 1 300 1 10 0 1)
SF-ADJUSTMENT _"Fade from %" '(100 0 100 1 10 0 0)
SF-ADJUSTMENT _"Fade to %" '(0 0 100 1 10 0 0)
SF-TOGGLE _"Use growing selection" FALSE
SF-TOGGLE _"Apply generated layermask" FALSE
SF-TOGGLE _"Clear unselected maskarea" TRUE)
(script-fu-register
"script-fu-fade-outline"
_"<Image>/Script-Fu/Selection/_Fade Outline..."
"Blend the Layers outline border from one alpha value (opaque) to another (transparent) by generating a Layermask"
"Wolfgang Hofer <hof@hotbot.com>"
"Wolfgang Hofer"
"10 Nov 1999"
"RGB* GRAY*"
SF-IMAGE "The image" 0
SF-DRAWABLE "The layer" 0
SF-ADJUSTMENT _"Border size" '(10 1 300 1 10 0 1)
SF-ADJUSTMENT _"Fade from %" '(100 0 100 1 10 0 0)
SF-ADJUSTMENT _"Fade to %" '(0 0 100 1 10 0 0)
SF-TOGGLE _"Use growing selection" FALSE
SF-TOGGLE _"Apply generated layermask" FALSE
SF-TOGGLE _"Clear unselected maskarea" TRUE)
(script-fu-menu-register "script-fu-fade-outline"
_"<Image>/Script-Fu/Selection")

13
plug-ins/script-fu/scripts/flatland.scm
View File

@ -57,15 +57,18 @@
))
(script-fu-register "script-fu-flatland"
_"<Toolbox>/Xtns/Script-Fu/Patterns/_Flatland..."
_"_Flatland..."
"A Land Pattern"
"Adrian Likins <aklikins@eos.ncsu.edu>"
"Adrian Likins"
"1997"
""
SF-ADJUSTMENT _"Image width" '(256 10 2000 1 10 0 1)
SF-ADJUSTMENT _"Image width" '(256 10 2000 1 10 0 1)
SF-ADJUSTMENT _"Image height" '(256 10 2000 1 10 0 1)
SF-ADJUSTMENT _"Random seed" '(80 1 2000000 1 10 0 1)
SF-ADJUSTMENT _"Random seed" '(80 1 2000000 1 10 0 1)
SF-ADJUSTMENT _"Detail level" '(3 1 15 1 10 1 0)
SF-ADJUSTMENT _"Scale X" '(4 0.1 16 0.1 2 1 1)
SF-ADJUSTMENT _"Scale Y" '(4 0.1 16 0.1 2 1 1))
SF-ADJUSTMENT _"Scale X" '(4 0.1 16 0.1 2 1 1)
SF-ADJUSTMENT _"Scale Y" '(4 0.1 16 0.1 2 1 1))
(script-fu-menu-register "script-fu-flatland"
_"<Toolbox>/Xtns/Script-Fu/Patterns")

5
plug-ins/script-fu/scripts/font-map.scm
View File

@ -127,7 +127,7 @@
(gimp-context-pop)))
(script-fu-register "script-fu-font-map"
_"<Toolbox>/Xtns/Script-Fu/Utils/_Font Map..."
_"_Font Map..."
"Generate a listing of fonts matching a filter"
"Spencer Kimball"
"Spencer Kimball"
@ -141,3 +141,6 @@
SF-ADJUSTMENT _"_Border (pixels)" '(10 0 200 1 10 0 1)
SF-OPTION _"_Color scheme" '(_"Black on white"
_"Active colors"))
(script-fu-menu-register "script-fu-font-map"
_"<Toolbox>/Xtns/Script-Fu/Utils")

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

@ -81,17 +81,19 @@
(script-fu-register "script-fu-frosty-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/_Frosty..."
_"_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-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-COLOR _"Background color" '(255 255 255))
(script-fu-menu-register "script-fu-frosty-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-frosty-logo text
size
@ -107,14 +109,16 @@
(gimp-display-new img)))
(script-fu-register "script-fu-frosty-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/_Frosty..."
_"_Frosty..."
"Frozen logos with drop shadows"
"Spencer Kimball & Ed Mackey"
"Spencer Kimball & Ed Mackey"
"1997"
""
SF-STRING _"Text" "The GIMP"
SF-STRING _"Text" "The GIMP"
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT _"Font" "Becker"
SF-COLOR _"Background color" '(255 255 255)
)
SF-FONT _"Font" "Becker"
SF-COLOR _"Background color" '(255 255 255))
(script-fu-menu-register "script-fu-frosty-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

39
plug-ins/script-fu/scripts/fuzzyborder.scm
View File

@ -144,24 +144,23 @@
(gimp-selection-none inImage)
)
; Register the function with the GIMP:
(script-fu-register "script-fu-fuzzy-border"
_"_Fuzzy Border..."
"Fade border to chosen color"
"Chris Gutteridge"
"1998, Chris Gutteridge / ECS dept, University of Southampton, England."
"3rd April 1998"
"RGB* GRAY*"
SF-IMAGE "The image" 0
SF-DRAWABLE "The layer" 0
SF-COLOR _"Color" '(255 255 255)
SF-ADJUSTMENT _"Border size" '(16 1 300 1 10 0 1)
SF-TOGGLE _"Blur border" TRUE
SF-ADJUSTMENT _"Granularity (1 is Low)" '(4 1 16 0.25 5 2 0)
SF-TOGGLE _"Add shadow" FALSE
SF-ADJUSTMENT _"Shadow weight (%)" '(100 0 100 1 10 0 0)
SF-TOGGLE _"Work on copy" TRUE
SF-TOGGLE _"Flatten image" TRUE)
(script-fu-register
"script-fu-fuzzy-border"
_"<Image>/Script-Fu/Decor/_Fuzzy Border..."
"Fade border to chosen color"
"Chris Gutteridge"
"1998, Chris Gutteridge / ECS dept, University of Southampton, England."
"3rd April 1998"
"RGB* GRAY*"
SF-IMAGE "The image" 0
SF-DRAWABLE "The layer" 0
SF-COLOR _"Color" '(255 255 255)
SF-ADJUSTMENT _"Border size" '(16 1 300 1 10 0 1)
SF-TOGGLE _"Blur border" TRUE
SF-ADJUSTMENT _"Granularity (1 is Low)" '(4 1 16 0.25 5 2 0)
SF-TOGGLE _"Add shadow" FALSE
SF-ADJUSTMENT _"Shadow weight (%)" '(100 0 100 1 10 0 0)
SF-TOGGLE _"Work on copy" TRUE
SF-TOGGLE _"Flatten image" TRUE
)
(script-fu-menu-register "script-fu-fuzzy-border"
_"<Image>/Script-Fu/Decor")

49
plug-ins/script-fu/scripts/gimp-headers.scm
View File

@ -132,41 +132,46 @@
(script-fu-register "script-fu-big-header-gimp-org"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org/_Big Header..."
_"_Big Header..."
"Big Gimp.org Header"
"Adrian Likins & Jens Lautenbacher"
"Adrian Likins & Jens Lautenbacher"
"1997"
""
SF-STRING _"Text" "gimp.org"
SF-FONT _"Font" "Serif"
SF-STRING _"Text" "gimp.org"
SF-FONT _"Font" "Serif"
SF-ADJUSTMENT _"Font size (pixels)" '(50 2 1000 1 10 0 1)
SF-COLOR _"Text color" '(82 108 159)
SF-COLOR _"Highlight color" '(190 220 250)
SF-COLOR _"Dark color" '(46 74 92)
SF-COLOR _"Shadow color" '(0 0 0)
SF-TOGGLE _"Autocrop" TRUE
SF-TOGGLE _"Remove background" TRUE
SF-TOGGLE _"Index image" TRUE
SF-ADJUSTMENT _"Number of colors" '(15 2 255 1 10 0 1))
SF-COLOR _"Text color" '(82 108 159)
SF-COLOR _"Highlight color" '(190 220 250)
SF-COLOR _"Dark color" '(46 74 92)
SF-COLOR _"Shadow color" '(0 0 0)
SF-TOGGLE _"Autocrop" TRUE
SF-TOGGLE _"Remove background" TRUE
SF-TOGGLE _"Index image" TRUE
SF-ADJUSTMENT _"Number of colors" '(15 2 255 1 10 0 1))
(script-fu-menu-register "script-fu-big-header-gimp-org"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org")
(script-fu-register "script-fu-small-header-gimp-org"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org/_Small Header..."
_"_Small Header..."
"Small Gimp.org Header"
"Adrian Likins & Jens Lautenbacher"
"Adrian Likins & Jens Lautenbacher"
"1997"
""
SF-STRING _"Text" "gimp.org"
SF-FONT _"Font" "Sans"
SF-STRING _"Text" "gimp.org"
SF-FONT _"Font" "Sans"
SF-ADJUSTMENT _"Font size (pixels)" '(24 2 1000 1 10 0 1)
SF-COLOR _"Text color" '(135 220 220)
SF-COLOR _"Highlight color" '(210 240 245)
SF-COLOR _"Dark color" '(46 74 92)
SF-COLOR _"Shadow color" '(0 0 0)
SF-TOGGLE _"Autocrop" TRUE
SF-TOGGLE _"Remove background" TRUE
SF-TOGGLE _"Index image" TRUE
SF-ADJUSTMENT _"Number of colors" '(15 2 255 1 10 0 1)
SF-COLOR _"Text color" '(135 220 220)
SF-COLOR _"Highlight color" '(210 240 245)
SF-COLOR _"Dark color" '(46 74 92)
SF-COLOR _"Shadow color" '(0 0 0)
SF-TOGGLE _"Autocrop" TRUE
SF-TOGGLE _"Remove background" TRUE
SF-TOGGLE _"Index image" TRUE
SF-ADJUSTMENT _"Number of colors" '(15 2 255 1 10 0 1)
SF-ADJUSTMENT _"Select-by-color threshold" '(1 1 256 1 10 0 1))
(script-fu-menu-register "script-fu-small-header-gimp-org"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org")

56
plug-ins/script-fu/scripts/gimp-labels.scm
View File

@ -105,56 +105,70 @@
(script-fu-register "script-fu-tube-button-label-gimp-org"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org/_Tube Button Label..."
_"_Tube Button Label..."
"Tube Button Label Header for gimp.org"
"Adrian Likins & Jens Lautenbacher"
"Adrian Likins & Jens Lautenbacher"
"1997"
""
SF-STRING _"Text" "?"
SF-STRING _"Text" "?"
SF-TOGGLE _"Remove background" TRUE
SF-TOGGLE _"Index image" TRUE)
SF-TOGGLE _"Index image" TRUE)
(script-fu-menu-register "script-fu-tube-button-label-gimp-org"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org")
(script-fu-register "script-fu-tube-subbutton-label-gimp-org"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org/T_ube Sub-Button Label..."
_"T_ube Sub-Button Label..."
"Tube Button Label Header for gimp.org"
"Adrian Likins & Jens Lautenbacher"
"Adrian Likins & Jens Lautenbacher"
"1997"
""
SF-STRING _"Text" "?"
SF-STRING _"Text" "?"
SF-TOGGLE _"Remove background" TRUE
SF-TOGGLE _"Index image" TRUE)
SF-TOGGLE _"Index image" TRUE)
(script-fu-menu-register "script-fu-tube-subbutton-label-gimp-org"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org")
(script-fu-register "script-fu-tube-subsubbutton-label-gimp-org"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org/Tub_e Sub-Sub-Button Label..."
_"Tub_e Sub-Sub-Button Label..."
"Tube Button Label Header for gimp.org"
"Adrian Likins & Jens Lautenbacher"
"Adrian Likins & Jens Lautenbacher"
"1997"
""
SF-STRING _"Text" "?"
SF-STRING _"Text" "?"
SF-TOGGLE _"Remove background" TRUE
SF-TOGGLE _"Index image" TRUE)
SF-TOGGLE _"Index image" TRUE)
(script-fu-menu-register "script-fu-tube-subsubbutton-label-gimp-org"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org")
(script-fu-register "script-fu-labels-gimp-org"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org/_General Tube Labels..."
_"_General Tube Labels..."
"Tube Button Label Header for gimp.org"
"Adrian Likins & Jens Lautenbacher"
"Adrian Likins & Jens Lautenbacher"
"1997"
""
SF-STRING _"Text" "Gimp.Org"
SF-FONT _"Font" "Sans"
SF-STRING _"Text" "Gimp.Org"
SF-FONT _"Font" "Sans"
SF-ADJUSTMENT _"Font size (pixels)" '(18 2 1000 1 10 0 1)
SF-COLOR _"Text color" '(130 165 235)
SF-COLOR _"Shadow color" '(0 0 0)
SF-COLOR _"Background color" '(255 255 255)
SF-TOGGLE _"Remove background" TRUE
SF-TOGGLE _"Index image" TRUE
SF-ADJUSTMENT _"Number of colors" '(15 2 255 1 10 0 1)
SF-COLOR _"Text color" '(130 165 235)
SF-COLOR _"Shadow color" '(0 0 0)
SF-COLOR _"Background color" '(255 255 255)
SF-TOGGLE _"Remove background" TRUE
SF-TOGGLE _"Index image" TRUE
SF-ADJUSTMENT _"Number of colors" '(15 2 255 1 10 0 1)
SF-ADJUSTMENT _"Select-by-color threshold" '(1 1 256 1 10 0 1)
SF-ADJUSTMENT _"Offset X" '(8 0 50 1 10 0 1)
SF-ADJUSTMENT _"Offset Y" '(0 0 50 1 10 0 1)
SF-ADJUSTMENT _"Height" '(30 2 1000 1 10 0 1))
SF-ADJUSTMENT _"Offset X" '(8 0 50 1 10 0 1)
SF-ADJUSTMENT _"Offset Y" '(0 0 50 1 10 0 1)
SF-ADJUSTMENT _"Height" '(30 2 1000 1 10 0 1))
(script-fu-menu-register "script-fu-labels-gimp-org"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Classic.Gimp.Org")

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

@ -173,7 +173,7 @@
(script-fu-register "script-fu-glossy-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Glo_ssy..."
_"Glo_ssy..."
"Creates anything you can create with it :)"
"Hrvoje Horvat (hhorvat@open.hr)"
"Hrvoje Horvat"
@ -198,6 +198,9 @@
SF-ADJUSTMENT _"Shadow X offset" '(8 0 100 1 10 0 1)
SF-ADJUSTMENT _"Shadow Y offset" '(8 0 100 1 10 0 1))
(script-fu-menu-register "script-fu-glossy-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-glossy-logo text
size
@ -237,7 +240,7 @@
(gimp-display-new img)))
(script-fu-register "script-fu-glossy-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Glo_ssy..."
_"Glo_ssy..."
"Creates anything you can create with it :)"
"Hrvoje Horvat (hhorvat@open.hr)"
"Hrvoje Horvat"
@ -262,3 +265,6 @@
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))
(script-fu-menu-register "script-fu-glossy-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

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

@ -67,17 +67,20 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-glowing-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Glo_wing Hot..."
_"Glo_wing Hot..."
"Glowing hot logos"
"Spencer Kimball"
"Spencer Kimball"
"1997"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
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)
)
SF-COLOR _"Background color" '(7 0 20))
(script-fu-menu-register "script-fu-glowing-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-glowing-logo text
size
@ -92,14 +95,16 @@
(gimp-display-new img)))
(script-fu-register "script-fu-glowing-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Glo_wing Hot..."
_"Glo_wing Hot..."
"Glowing hot logos"
"Spencer Kimball"
"Spencer Kimball"
"1997"
""
SF-STRING _"Text" "GLOWING"
SF-STRING _"Text" "GLOWING"
SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "Slogan"
SF-COLOR _"Background color" '(7 0 20)
)
SF-FONT _"Font" "Slogan"
SF-COLOR _"Background color" '(7 0 20))
(script-fu-menu-register "script-fu-glowing-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

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

@ -88,7 +88,7 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-gradient-bevel-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Gradient Beve_l..."
_"Gradient Beve_l..."
"Makes Shiny Bevelly text"
"Brian McFee <keebler@wco.com>"
"Brian McFee"
@ -101,6 +101,10 @@
SF-ADJUSTMENT _"Bevel width" '(2.5 1 200 1 10 1 1)
SF-COLOR _"Background color" '(255 255 255))
(script-fu-menu-register "script-fu-gradient-bevel-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-gradient-bevel-logo text
size
font
@ -119,7 +123,7 @@
(gimp-display-new img)))
(script-fu-register "script-fu-gradient-bevel-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Gradient Beve_l..."
_"Gradient Beve_l..."
"Makes Shiny Bevelly text"
"Brian McFee <keebler@wco.com>"
"Brian McFee"
@ -131,3 +135,6 @@
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))
(script-fu-menu-register "script-fu-gradient-bevel-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

5
plug-ins/script-fu/scripts/gradient-example.scm
View File

@ -56,7 +56,7 @@
(gimp-context-pop)))
(script-fu-register "script-fu-gradient-example"
_"<Toolbox>/Xtns/Script-Fu/Utils/Custom _Gradient..."
_"Custom _Gradient..."
"Create an example image of a custom gradient"
"Federico Mena Quintero"
"Federico Mena Quintero"
@ -65,3 +65,6 @@
SF-ADJUSTMENT _"Width" '(400 1 2000 1 10 0 1)
SF-ADJUSTMENT _"Height" '(30 1 2000 1 10 0 1)
SF-TOGGLE _"Gradient reverse" FALSE)
(script-fu-menu-register "script-fu-gradient-example"
_"<Toolbox>/Xtns/Script-Fu/Utils")

8
plug-ins/script-fu/scripts/grid-system.scm
View File

@ -83,7 +83,7 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-grid-system"
_"<Image>/Script-Fu/Render/_Grid..."
_"_Grid..."
"Draw grid as specified by X-DIVIDES (list of propotions relative to the drawable) and Y-DIVIDES. The color and width of grid is detemined by the current settings of brush."
"Shuji Narazaki <narazaki@InetQ.or.jp>"
"Shuji Narazaki"
@ -92,7 +92,7 @@
SF-IMAGE "Image to use" 0
SF-DRAWABLE "Drawable to draw grid" 0
SF-VALUE _"X divisions" script-fu-grid-system-x-divides
SF-VALUE _"Y divisions" script-fu-grid-system-y-divides
)
SF-VALUE _"Y divisions" script-fu-grid-system-y-divides)
;;; grid-system.scm ends here
(script-fu-menu-register "script-fu-grid-system"
_"<Image>/Script-Fu/Render")

5
plug-ins/script-fu/scripts/guides-from-selection.scm
View File

@ -24,7 +24,7 @@
(gimp-displays-flush)))))
(script-fu-register "script-fu-guides-from-selection"
_"<Image>/Image/Guides/New Guides from _Selection"
_"New Guides from _Selection"
_"Creates four Guides around the bounding box of the current selection."
"Alan Horkan"
"Alan Horkan, 2004. Public Domain."
@ -32,3 +32,6 @@
""
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0)
(script-fu-menu-register "script-fu-guides-from-selection"
"<Image>/Image/Guides")

5
plug-ins/script-fu/scripts/guides-new-percent.scm
View File

@ -24,7 +24,7 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-guide-new-percent"
_"<Image>/Image/Guides/New Guide (by _Percent)..."
_"New Guide (by _Percent)..."
"Add a single Line Guide with the specified postion. Position specified as a percent of the image size."
"Alan Horkan"
"Alan Horkan, 2004"
@ -35,3 +35,6 @@
SF-OPTION _"Direction" '(_"Horizontal"
_"Vertical")
SF-ADJUSTMENT _"Position (in %)" '(50 0 100 1 10 0 1))
(script-fu-menu-register "script-fu-guide-new-percent"
"<Image>/Image/Guides")

5
plug-ins/script-fu/scripts/guides-new.scm
View File

@ -21,7 +21,7 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-guide-new"
_"<Image>/Image/Guides/New _Guide..."
_"New _Guide..."
"Add a single Line Guide with the specified postion and orientation. Postion is specified in Pixels (px)."
"Alan Horkan"
"Alan Horkan, 2004. Public Domain."
@ -32,3 +32,6 @@
SF-OPTION _"Direction" '(_"Horizontal"
_"Vertical")
SF-ADJUSTMENT "Position" '(0 0 1000 1 10 0 1))
(script-fu-menu-register "script-fu-guide-new"
"<Image>/Image/Guides")

5
plug-ins/script-fu/scripts/guides-remove-all.scm
View File

@ -14,7 +14,7 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-guides-remove"
_"<Image>/Image/Guides/_Remove all Guides"
_"_Remove all Guides"
"Removes all horizontal and vertical guides."
"Alan Horkan"
"Alan Horkan, 2004. Public Domain."
@ -22,3 +22,6 @@
""
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0)
(script-fu-menu-register "script-fu-guides-remove"
"<Image>/Image/Guides")

39
plug-ins/script-fu/scripts/hsv-graph.scm
View File

@ -330,24 +330,23 @@
(gimp-context-pop)))
(script-fu-register
"script-fu-hsv-graph"
_"<Image>/Script-Fu/Utils/Draw _HSV Graph..."
"Draph the graph of H/S/V values on the drawable"
"Shuji Narazaki <narazaki@InetQ.or.jp>"
"Shuji Narazaki"
"1997"
"RGB*"
SF-IMAGE "Image to analyze" 0
SF-DRAWABLE "Drawable to analyze" 0
SF-ADJUSTMENT _"Graph scale" (cons script-fu-hsv-graph-scale '(0.1 5 0.1 1 1 1))
SF-ADJUSTMENT _"BG opacity" (cons script-fu-hsv-graph-opacity '(0 100 1 10 0 1))
SF-TOGGLE _"Use selection bounds instead of belows" script-fu-hsv-graph-bounds?
SF-TOGGLE _"From top-left to bottom-right" script-fu-hsv-graph-left2right?
SF-ADJUSTMENT _"Start X" (cons script-fu-hsv-graph-beg-x '(0 5000 1 10 0 1))
SF-ADJUSTMENT _"Start Y" (cons script-fu-hsv-graph-beg-y '(0 5000 1 10 0 1))
SF-ADJUSTMENT _"End X" (cons script-fu-hsv-graph-end-x '(0 5000 1 10 0 1))
SF-ADJUSTMENT _"End Y" (cons script-fu-hsv-graph-end-y '(0 5000 1 10 0 1))
)
(script-fu-register "script-fu-hsv-graph"
_"Draw _HSV Graph..."
"Draph the graph of H/S/V values on the drawable"
"Shuji Narazaki <narazaki@InetQ.or.jp>"
"Shuji Narazaki"
"1997"
"RGB*"
SF-IMAGE "Image to analyze" 0
SF-DRAWABLE "Drawable to analyze" 0
SF-ADJUSTMENT _"Graph scale" (cons script-fu-hsv-graph-scale '(0.1 5 0.1 1 1 1))
SF-ADJUSTMENT _"BG opacity" (cons script-fu-hsv-graph-opacity '(0 100 1 10 0 1))
SF-TOGGLE _"Use selection bounds instead of belows" script-fu-hsv-graph-bounds?
SF-TOGGLE _"From top-left to bottom-right" script-fu-hsv-graph-left2right?
SF-ADJUSTMENT _"Start X" (cons script-fu-hsv-graph-beg-x '(0 5000 1 10 0 1))
SF-ADJUSTMENT _"Start Y" (cons script-fu-hsv-graph-beg-y '(0 5000 1 10 0 1))
SF-ADJUSTMENT _"End X" (cons script-fu-hsv-graph-end-x '(0 5000 1 10 0 1))
SF-ADJUSTMENT _"End Y" (cons script-fu-hsv-graph-end-y '(0 5000 1 10 0 1)))
;;; hsv-graph.scm ends here
(script-fu-menu-register "script-fu-hsv-graph"
_"<Image>/Script-Fu/Utils")

15
plug-ins/script-fu/scripts/i26-gunya2.scm
View File

@ -84,17 +84,18 @@
(script-fu-register "script-fu-i26-gunya2"
_"<Toolbox>/Xtns/Script-Fu/Logos/Imigre-26..."
_"Imigre-26..."
"Two-colored text by hand"
"Shuji Narazaki"
"Shuji Narazaki"
"1997"
""
SF-STRING _"Text" "The GIMP"
SF-COLOR _"Text color" '(255 0 0)
SF-COLOR _"Frame color" '(0 34 255)
SF-FONT _"Font" "Becker"
SF-STRING _"Text" "The GIMP"
SF-COLOR _"Text color" '(255 0 0)
SF-COLOR _"Frame color" '(0 34 255)
SF-FONT _"Font" "Becker"
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
SF-ADJUSTMENT _"Frame size" '(2 1 20 1 5 0 1))
SF-ADJUSTMENT _"Frame size" '(2 1 20 1 5 0 1))
;;; i26-gunya2.scm ends here
(script-fu-menu-register "script-fu-i26-gunya2"
_"<Toolbox>/Xtns/Script-Fu/Logos")

45
plug-ins/script-fu/scripts/image-structure.scm
View File

@ -139,27 +139,26 @@
(gimp-context-pop)))
(script-fu-register
"script-fu-show-image-structure"
_"<Image>/Script-Fu/Utils/Show Image _Structure..."
"Show the layer structure of the image"
"Shuji Narazaki <narazaki@InetQ.or.jp>"
"Shuji Narazaki"
"1997"
"RGB*, GRAY*"
SF-IMAGE "image" 0
SF-DRAWABLE "Drawable (unused)" 0
SF-TOGGLE _"Create new image" script-fu-show-image-structure-new-image?
SF-ADJUSTMENT _"Space between layers" (cons script-fu-show-image-structure-space '(0 1000 1 10 0 1))
SF-ADJUSTMENT _"Shear length" (cons script-fu-show-image-structure-shear-length '(1 1000 1 10 0 1))
SF-ADJUSTMENT _"Outer border" (cons script-fu-show-image-structure-border '(0 250 1 10 0 1))
SF-TOGGLE _"Apply layer mask (or discard)" script-fu-show-image-structure-apply-layer-mask?
SF-TOGGLE _"Insert layer names" script-fu-show-image-structure-with-layer-name?
SF-TOGGLE _"Padding for transparent regions" script-fu-show-image-structure-with-pad?
SF-COLOR _"Pad color" script-fu-show-image-structure-padding-color
SF-ADJUSTMENT _"Pad opacity" (cons script-fu-show-image-structure-padding-opacity '(0 100 1 10 1 0))
SF-TOGGLE _"Make new background" script-fu-show-image-structure-with-background?
SF-COLOR _"Background color" script-fu-show-image-structure-background-color
)
(script-fu-register "script-fu-show-image-structure"
_"Show Image _Structure..."
"Show the layer structure of the image"
"Shuji Narazaki <narazaki@InetQ.or.jp>"
"Shuji Narazaki"
"1997"
"RGB*, GRAY*"
SF-IMAGE "image" 0
SF-DRAWABLE "Drawable (unused)" 0
SF-TOGGLE _"Create new image" script-fu-show-image-structure-new-image?
SF-ADJUSTMENT _"Space between layers" (cons script-fu-show-image-structure-space '(0 1000 1 10 0 1))
SF-ADJUSTMENT _"Shear length" (cons script-fu-show-image-structure-shear-length '(1 1000 1 10 0 1))
SF-ADJUSTMENT _"Outer border" (cons script-fu-show-image-structure-border '(0 250 1 10 0 1))
SF-TOGGLE _"Apply layer mask (or discard)" script-fu-show-image-structure-apply-layer-mask?
SF-TOGGLE _"Insert layer names" script-fu-show-image-structure-with-layer-name?
SF-TOGGLE _"Padding for transparent regions" script-fu-show-image-structure-with-pad?
SF-COLOR _"Pad color" script-fu-show-image-structure-padding-color
SF-ADJUSTMENT _"Pad opacity" (cons script-fu-show-image-structure-padding-opacity '(0 100 1 10 1 0))
SF-TOGGLE _"Make new background" script-fu-show-image-structure-with-background?
SF-COLOR _"Background color" script-fu-show-image-structure-background-color)
;;; image-structure.scm ends here
(script-fu-menu-register "script-fu-show-image-structure"
_"<Image>/Script-Fu/Utils")

19
plug-ins/script-fu/scripts/land.scm
View File

@ -68,18 +68,21 @@
))
(script-fu-register "script-fu-land"
_"<Toolbox>/Xtns/Script-Fu/Patterns/_Land..."
_"_Land..."
"A Topgraphic map pattern"
"Adrian Likins <aklikins@eos.ncsu.edu>"
"Adrian Likins"
"1997"
""
SF-ADJUSTMENT _"Image width" '(256 10 1000 1 10 0 1)
SF-ADJUSTMENT _"Image width" '(256 10 1000 1 10 0 1)
SF-ADJUSTMENT _"Image height" '(256 10 1000 1 10 0 1)
SF-ADJUSTMENT _"Random seed" '(32 0 15000000 1 10 0 1)
SF-ADJUSTMENT _"Random seed" '(32 0 15000000 1 10 0 1)
SF-ADJUSTMENT _"Detail level" '(4 1 15 1 5 0 0)
SF-ADJUSTMENT _"Land height" '(60 1 65 1 10 0 1)
SF-ADJUSTMENT _"Sea depth" '(4 1 65 1 10 0 1)
SF-ADJUSTMENT _"Scale X" '(4 0.1 16 1 5 0.1 0)
SF-ADJUSTMENT _"Scale Y" '(4 0.1 16 1 5 0.1 0)
SF-GRADIENT _"Gradient" "Land 1")
SF-ADJUSTMENT _"Land height" '(60 1 65 1 10 0 1)
SF-ADJUSTMENT _"Sea depth" '(4 1 65 1 10 0 1)
SF-ADJUSTMENT _"Scale X" '(4 0.1 16 1 5 0.1 0)
SF-ADJUSTMENT _"Scale Y" '(4 0.1 16 1 5 0.1 0)
SF-GRADIENT _"Gradient" "Land 1")
(script-fu-menu-register "script-fu-land"
_"<Toolbox>/Xtns/Script-Fu/Patterns")

23
plug-ins/script-fu/scripts/lava.scm
View File

@ -98,18 +98,21 @@
(gimp-context-pop)))
(script-fu-register "script-fu-lava"
_"<Image>/Script-Fu/Render/_Lava..."
_"_Lava..."
"Fills the current selection with lava."
"Adrian Likins <adrian@gimp.org>"
"Adrian Likins"
"10/12/97"
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Seed" '(10 1 30000 1 10 0 1)
SF-ADJUSTMENT _"Size" '(10 0 100 1 10 0 1)
SF-ADJUSTMENT _"Roughness" '(7 3 50 1 10 0 0)
SF-GRADIENT _"Gradient" "German flag smooth"
SF-TOGGLE _"Keep selection" TRUE
SF-TOGGLE _"Separate layer" TRUE
SF-TOGGLE _"Use current gradient" FALSE)
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Seed" '(10 1 30000 1 10 0 1)
SF-ADJUSTMENT _"Size" '(10 0 100 1 10 0 1)
SF-ADJUSTMENT _"Roughness" '(7 3 50 1 10 0 0)
SF-GRADIENT _"Gradient" "German flag smooth"
SF-TOGGLE _"Keep selection" TRUE
SF-TOGGLE _"Separate layer" TRUE
SF-TOGGLE _"Use current gradient" FALSE)
(script-fu-menu-register "script-fu-lava"
_"<Image>/Script-Fu/Render")

32
plug-ins/script-fu/scripts/line-nova.scm
View File

@ -69,19 +69,19 @@
(gimp-image-undo-group-end img)
(gimp-displays-flush)))
(script-fu-register
"script-fu-line-nova"
_"<Image>/Script-Fu/Render/Line _Nova..."
"Line Nova. Draw lines with Foreground color from the center of image to the edges. 1st undo cancels bucket-fill. 2nd undo gets orignal selection."
"Shuji Narazaki <narazaki@gimp.org>"
"Shuji Narazaki"
"1997,1998"
""
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Number of lines" '(200 40 1000 1 1 0 1)
SF-ADJUSTMENT _"Sharpness (degrees)" '(1.0 0.0 10.0 0.1 1 1 1)
SF-ADJUSTMENT _"Offset radius" '(100 0 2000 1 1 0 1)
SF-ADJUSTMENT _"Randomness" '(30 0 2000 1 1 0 1)
)
;;; line-nova.scm ends here
(script-fu-register "script-fu-line-nova"
_"Line _Nova..."
"Line Nova. Draw lines with Foreground color from the center of image to the edges. 1st undo cancels bucket-fill. 2nd undo gets orignal selection."
"Shuji Narazaki <narazaki@gimp.org>"
"Shuji Narazaki"
"1997,1998"
""
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Number of lines" '(200 40 1000 1 1 0 1)
SF-ADJUSTMENT _"Sharpness (degrees)" '(1.0 0.0 10.0 0.1 1 1 1)
SF-ADJUSTMENT _"Offset radius" '(100 0 2000 1 1 0 1)
SF-ADJUSTMENT _"Randomness" '(30 0 2000 1 1 0 1))
(script-fu-menu-register "script-fu-line-nova"
_"<Image>/Script-Fu/Render")

40
plug-ins/script-fu/scripts/mkbrush.scm
View File

@ -57,7 +57,7 @@
(gimp-context-set-brush name)))
(script-fu-register "script-fu-make-brush-rectangular"
_"<Toolbox>/Xtns/Script-Fu/Make Brush/_Rectangular..."
_"_Rectangular..."
"Create size of brush"
"Seth Burgess <sjburges@ou.edu>"
"Seth Burgess"
@ -68,6 +68,9 @@
SF-ADJUSTMENT _"Height" '(20 1 200 1 10 0 1)
SF-ADJUSTMENT _"Spacing" '(25 1 100 1 10 1 0))
(script-fu-menu-register "script-fu-make-brush-rectangular"
_"<Toolbox>/Xtns/Script-Fu/Make Brush")
(define (script-fu-make-brush-rectangular-feathered name width height
feathering spacing)
@ -114,17 +117,20 @@
(gimp-context-set-brush name)))
(script-fu-register "script-fu-make-brush-rectangular-feathered"
_"<Toolbox>/Xtns/Script-Fu/Make Brush/Re_ctangular, Feathered..."
"Create size of brush"
"Seth Burgess <sjburges@ou.edu>"
"Seth Burgess"
"1997"
""
SF-STRING _"Name" "Rectangle"
SF-ADJUSTMENT _"Width" '(20 1 200 1 10 0 1)
SF-ADJUSTMENT _"Height" '(20 1 200 1 10 0 1)
SF-ADJUSTMENT _"Feathering" '(4 1 100 1 10 0 1)
SF-ADJUSTMENT _"Spacing" '(25 1 100 1 10 1 0))
_"Re_ctangular, Feathered..."
"Create size of brush"
"Seth Burgess <sjburges@ou.edu>"
"Seth Burgess"
"1997"
""
SF-STRING _"Name" "Rectangle"
SF-ADJUSTMENT _"Width" '(20 1 200 1 10 0 1)
SF-ADJUSTMENT _"Height" '(20 1 200 1 10 0 1)
SF-ADJUSTMENT _"Feathering" '(4 1 100 1 10 0 1)
SF-ADJUSTMENT _"Spacing" '(25 1 100 1 10 1 0))
(script-fu-menu-register "script-fu-make-brush-rectangular-feathered"
_"<Toolbox>/Xtns/Script-Fu/Make Brush")
(define (script-fu-make-brush-elliptical name width height spacing)
@ -161,7 +167,7 @@
(gimp-context-set-brush name)))
(script-fu-register "script-fu-make-brush-elliptical"
_"<Toolbox>/Xtns/Script-Fu/Make Brush/_Elliptical..."
_"_Elliptical..."
"Create size of brush"
"Seth Burgess <sjburges@ou.edu>"
"Seth Burgess"
@ -172,6 +178,9 @@
SF-ADJUSTMENT _"Height" '(20 1 200 1 10 0 1)
SF-ADJUSTMENT _"Spacing" '(25 1 100 1 10 1 0))
(script-fu-menu-register "script-fu-make-brush-elliptical"
_"<Toolbox>/Xtns/Script-Fu/Make Brush")
(define (script-fu-make-brush-elliptical-feathered name width height
feathering spacing)
@ -220,7 +229,7 @@
(gimp-context-set-brush name)))
(script-fu-register "script-fu-make-brush-elliptical-feathered"
_"<Toolbox>/Xtns/Script-Fu/Make Brush/Elli_ptical, Feathered..."
_"Elli_ptical, Feathered..."
"Makes a feathered elliptical brush of specified size"
"Seth Burgess <sjburges@ou.edu>"
"Seth Burgess"
@ -231,3 +240,6 @@
SF-ADJUSTMENT _"Height" '(20 1 200 1 10 0 1)
SF-ADJUSTMENT _"Feathering" '(4 1 100 1 10 0 1)
SF-ADJUSTMENT _"Spacing" '(25 1 100 1 10 1 0))
(script-fu-menu-register "script-fu-make-brush-elliptical-feathered"
_"<Toolbox>/Xtns/Script-Fu/Make Brush")

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

@ -176,19 +176,22 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-neon-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/N_eon..."
_"N_eon..."
"Neon logos"
"Spencer Kimball"
"Spencer Kimball"
"1997"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
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
)
SF-COLOR _"Glow color" '(38 211 255)
SF-TOGGLE _"Create shadow" FALSE)
(script-fu-menu-register "script-fu-neon-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-neon-logo text
size
@ -206,16 +209,18 @@
(gimp-display-new img)))
(script-fu-register "script-fu-neon-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/N_eon..."
_"N_eon..."
"Neon logos"
"Spencer Kimball"
"Spencer Kimball"
"1997"
""
SF-STRING _"Text" "NEON"
SF-STRING _"Text" "NEON"
SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "Blippo"
SF-COLOR _"Background color" '(0 0 0)
SF-COLOR _"Glow color" '(38 211 255)
SF-TOGGLE _"Create shadow" FALSE
)
SF-FONT _"Font" "Blippo"
SF-COLOR _"Background color" '(0 0 0)
SF-COLOR _"Glow color" '(38 211 255)
SF-TOGGLE _"Create shadow" FALSE)
(script-fu-menu-register "script-fu-neon-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

19
plug-ins/script-fu/scripts/news-text.scm
View File

@ -64,17 +64,20 @@
(gimp-context-pop)))
(script-fu-register "script-fu-newsprint-text"
_"<Toolbox>/Xtns/Script-Fu/Logos/Newsprint Text..."
"Apply a screen to text"
_"Newsprint Text..."
"Apply a screen to text"
"Austin Donnelly"
"Austin Donnelly"
"1998"
""
SF-STRING _"Text" "Newsprint"
SF-FONT _"Font" "Sans"
SF-STRING _"Text" "Newsprint"
SF-FONT _"Font" "Sans"
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
SF-ADJUSTMENT _"Cell size (pixels)" '(7 1 100 1 10 0 1)
SF-ADJUSTMENT _"Density (%)" '(60 0 100 1 10 0 0)
SF-ADJUSTMENT _"Blur radius" '(0 0 100 1 5 0 0)
SF-COLOR _"Text color" '(0 0 0)
SF-COLOR _"Background color" '(255 255 255))
SF-ADJUSTMENT _"Density (%)" '(60 0 100 1 10 0 0)
SF-ADJUSTMENT _"Blur radius" '(0 0 100 1 5 0 0)
SF-COLOR _"Text color" '(0 0 0)
SF-COLOR _"Background color" '(255 255 255))
(script-fu-menu-register "script-fu-newsprint-text"
_"<Toolbox>/Xtns/Script-Fu/Logos")

39
plug-ins/script-fu/scripts/old-photo.scm
View File

@ -80,24 +80,23 @@
(gimp-displays-flush theImage)
)
; Register the function with the GIMP:
(script-fu-register "script-fu-old-photo"
_"_Old Photo..."
"Makes the image look like an old photo. A border size of 0 means no border."
"Chris Gutteridge"
"1998, Chris Gutteridge / ECS dept, University of Southampton, England."
"16th April 1998"
"RGB* GRAY*"
SF-IMAGE "The image" 0
SF-DRAWABLE "The layer" 0
SF-TOGGLE _"Defocus" TRUE
SF-ADJUSTMENT _"Border size" '(20 0 300 1 10 0 1)
; since this plug-in uses the fuzzy-border plug-in, I used the
; values of the latter, with the exception of the initial value
; and the 'minimum' value.
SF-TOGGLE _"Sepia" TRUE
SF-TOGGLE _"Mottle" FALSE
SF-TOGGLE _"Work on copy" TRUE)
(script-fu-register
"script-fu-old-photo"
_"<Image>/Script-Fu/Decor/_Old Photo..."
"Makes the image look like an old photo. A border size of 0 means no border."
"Chris Gutteridge"
"1998, Chris Gutteridge / ECS dept, University of Southampton, England."
"16th April 1998"
"RGB* GRAY*"
SF-IMAGE "The image" 0
SF-DRAWABLE "The layer" 0
SF-TOGGLE _"Defocus" TRUE
SF-ADJUSTMENT _"Border size" '(20 0 300 1 10 0 1)
; since this plug-in uses the fuzzy-border plug-in, I used the
; values of the latter, with the exception of the initial value
; and the 'minimum' value.
SF-TOGGLE _"Sepia" TRUE
SF-TOGGLE _"Mottle" FALSE
SF-TOGGLE _"Work on copy" TRUE
)
(script-fu-menu-register "script-fu-old-photo"
_"<Image>/Script-Fu/Decor")

19
plug-ins/script-fu/scripts/perspective-shadow.scm
View File

@ -175,19 +175,22 @@
(gimp-context-pop)))
(script-fu-register "script-fu-perspective-shadow"
_"<Image>/Script-Fu/Shadow/_Perspective..."
_"_Perspective..."
"Add a perspective shadow"
"Sven Neumann <sven@gimp.org>"
"Sven Neumann"
"2000/11/08"
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Angle" '(45 0 180 1 10 1 0)
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Angle" '(45 0 180 1 10 1 0)
SF-ADJUSTMENT _"Relative distance of horizon" '(5 0 24 .1 1 1 1)
SF-ADJUSTMENT _"Relative length of shadow" '(1 0 24 .1 1 1 1)
SF-ADJUSTMENT _"Blur radius" '(3 0 1024 1 10 0 0)
SF-COLOR _"Color" '(0 0 0)
SF-ADJUSTMENT _"Opacity" '(80 0 100 1 10 0 0)
SF-OPTION _"Interpolation" '(_"None" _"Linear" _"Cubic")
SF-ADJUSTMENT _"Blur radius" '(3 0 1024 1 10 0 0)
SF-COLOR _"Color" '(0 0 0)
SF-ADJUSTMENT _"Opacity" '(80 0 100 1 10 0 0)
SF-OPTION _"Interpolation" '(_"None" _"Linear" _"Cubic")
SF-TOGGLE _"Allow resizing" FALSE)
(script-fu-menu-register "script-fu-perspective-shadow"
_"<Image>/Script-Fu/Shadow")

5
plug-ins/script-fu/scripts/predator.scm
View File

@ -107,7 +107,7 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-predator"
_"<Image>/Script-Fu/Alchemy/_Predator..."
_"_Predator..."
"Looks like images from the movie Predator"
"Adrian Likins <adrian@gimp.org>"
"Adrian Likins"
@ -120,3 +120,6 @@
SF-ADJUSTMENT _"Pixel amount" '(3 1 16 1 1 0 0)
SF-TOGGLE _"Keep selection" TRUE
SF-TOGGLE _"Separate layer" TRUE)
(script-fu-menu-register "script-fu-predator"
_"<Image>/Script-Fu/Alchemy")

5
plug-ins/script-fu/scripts/pupi-button.scm
View File

@ -180,7 +180,7 @@
(gimp-context-pop)))
(script-fu-register "script-fu-round-button"
_"<Toolbox>/Xtns/Script-Fu/Buttons/_Round Button..."
_"_Round Button..."
"Round button"
"Arturo Espinosa (stolen from quartic's beveled button)"
"Arturo Espinosa & Federico Mena Quintero"
@ -202,3 +202,6 @@
SF-TOGGLE _"Not pressed" TRUE
SF-TOGGLE _"Not pressed (active)" TRUE
SF-TOGGLE _"Pressed" TRUE)
(script-fu-menu-register "script-fu-round-button"
_"<Toolbox>/Xtns/Script-Fu/Buttons")

7
plug-ins/script-fu/scripts/rendermap.scm
View File

@ -73,7 +73,7 @@
(gimp-context-pop)))
(script-fu-register "script-fu-render-map"
_"<Toolbox>/Xtns/Script-Fu/Patterns/Render _Map..."
_"Render _Map..."
"Another pattern which resembles a map"
"Chris Gutteridge: cjg@ecs.soton.ac.uk"
"28th April 1998"
@ -84,4 +84,7 @@
SF-GRADIENT _"Gradient" "Land and Sea"
SF-TOGGLE _"Gradient reverse" FALSE
SF-OPTION _"Behaviour" '(_"Tile"
_"Detail in Middle"))
_"Detail in Middle"))
(script-fu-menu-register "script-fu-render-map"
_"<Toolbox>/Xtns/Script-Fu/Patterns")

17
plug-ins/script-fu/scripts/ripply-anim.scm
View File

@ -110,14 +110,19 @@
(gimp-context-pop)))
(script-fu-register "script-fu-ripply-anim"
_"<Image>/Script-Fu/Animators/_Rippling..."
_"_Rippling..."
"Ripple any image by creating animation frames as layers"
"Adam D. Moss (adam@foxbox.org)"
"Adam D. Moss"
"1997"
"RGB* GRAY*"
SF-IMAGE "Image to animage" 0
SF-DRAWABLE "Drawable to animate" 0
SF-ADJUSTMENT _"Rippling strength" '(3 0 256 1 10 1 0)
SF-ADJUSTMENT _"Number of frames" '(15 0 256 1 10 0 1)
SF-OPTION _"Edge behaviour" '(_"Wrap" _"Smear" _"Black"))
SF-IMAGE "Image to animage" 0
SF-DRAWABLE "Drawable to animate" 0
SF-ADJUSTMENT _"Rippling strength" '(3 0 256 1 10 1 0)
SF-ADJUSTMENT _"Number of frames" '(15 0 256 1 10 0 1)
SF-OPTION _"Edge behaviour" '(_"Wrap"
_"Smear"
_"Black"))
(script-fu-menu-register "script-fu-ripply-anim"
_"<Image>/Script-Fu/Animators")

17
plug-ins/script-fu/scripts/round-corners.scm
View File

@ -122,18 +122,21 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-round-corners"
_"<Image>/Script-Fu/Decor/_Round Corners..."
_"_Round Corners..."
"Round the corners of an image and optionally adds a drop-shadow and a background"
"Sven Neumann <sven@gimp.org>"
"Sven Neumann"
"1999/12/21"
"RGB GRAY"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Edge radius" '(15 0 4096 1 10 0 1)
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Edge radius" '(15 0 4096 1 10 0 1)
SF-TOGGLE _"Add drop-shadow" TRUE
SF-ADJUSTMENT _"Shadow X offset" '(8 -4096 4096 1 10 0 1)
SF-ADJUSTMENT _"Shadow Y offset" '(8 -4096 4096 1 10 0 1)
SF-ADJUSTMENT _"Blur radius" '(15 0 1024 1 10 0 1)
SF-TOGGLE _"Add background" TRUE
SF-TOGGLE _"Work on copy" TRUE)
SF-ADJUSTMENT _"Blur radius" '(15 0 1024 1 10 0 1)
SF-TOGGLE _"Add background" TRUE
SF-TOGGLE _"Work on copy" TRUE)
(script-fu-menu-register "script-fu-round-corners"
_"<Image>/Script-Fu/Decor")

18
plug-ins/script-fu/scripts/script-fu-util.scm
View File

@ -19,13 +19,11 @@
; The resulting image has the selected layer size.
; Copyright (C) 2002 Chauk-Mean PROUM
;
(define (script-fu-util-image-resize-from-layer image layer)
(let*
((width (car (gimp-drawable-width layer)))
(height (car (gimp-drawable-height layer)))
(posx (- (car (gimp-drawable-offsets layer))))
(posy (- (cadr (gimp-drawable-offsets layer)))))
(gimp-image-resize image width height posx posy)
)
)
(define (script-fu-util-image-resize-from-layer image
layer)
(let*
((width (car (gimp-drawable-width layer)))
(height (car (gimp-drawable-height layer)))
(posx (- (car (gimp-drawable-offsets layer))))
(posy (- (cadr (gimp-drawable-offsets layer)))))
(gimp-image-resize image width height posx posy)))

5
plug-ins/script-fu/scripts/select-to-brush.scm
View File

@ -112,7 +112,7 @@
(gimp-context-set-brush name)))
(script-fu-register "script-fu-selection-to-brush"
_"<Image>/Script-Fu/Selection/To _Brush..."
_"To _Brush..."
"Convert a selection to a brush"
"Adrian Likins <adrian@gimp.org>"
"Adrian Likins"
@ -123,3 +123,6 @@
SF-STRING _"Brush name" "My Brush"
SF-STRING _"File name" "mybrush"
SF-ADJUSTMENT _"Spacing" '(25 0 1000 1 1 1 0))
(script-fu-menu-register "script-fu-selection-to-brush"
_"<Image>/Script-Fu/Selection")

7
plug-ins/script-fu/scripts/select-to-image.scm
View File

@ -66,11 +66,14 @@
(gimp-context-pop)))
(script-fu-register "script-fu-selection-to-image"
_"<Image>/Script-Fu/Selection/To _Image"
_"To _Image"
"Convert a selection to an image"
"Adrian Likins <adrian@gimp.org>"
"Adrian Likins"
"10/07/97"
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0)
(script-fu-menu-register "script-fu-selection-to-image"
_"<Image>/Script-Fu/Selection")

5
plug-ins/script-fu/scripts/select-to-pattern.scm
View File

@ -72,7 +72,7 @@
(gimp-displays-flush))
(script-fu-register "script-fu-selection-to-pattern"
_"<Image>/Script-Fu/Selection/To _Pattern..."
_"To _Pattern..."
"Convert a selection to a pattern"
"Cameron Gregory <cameron@bloke.com>"
"Cameron Gregory"
@ -82,3 +82,6 @@
SF-DRAWABLE "Drawable" 0
SF-STRING _"Pattern name" "My Pattern"
SF-STRING _"Filename" "mypattern")
(script-fu-menu-register "script-fu-selection-to-pattern"
_"<Image>/Script-Fu/Selection")

14
plug-ins/script-fu/scripts/selection-round.scm
View File

@ -147,7 +147,7 @@
(script-fu-register "script-fu-selection-rounded-rectangle"
_"<Image>/Select/Rounded R_ectangle..."
_"Rounded R_ectangle..."
"Converts the current selection, to a rectangular selection with rounded edges. The radius is a percentage of half the selection width or height, whichever is smaller. Select 'Concave' if you want the round edges will to be indented. Round Edges works by subtracting and adding circles to the selection. "
"Alan Horkan, Sven Neumann" ; authors
"Sven Neumann" ; copyright
@ -155,10 +155,13 @@
"*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Radius (%)" '(50 0 100 1 10 0 0)
SF-TOGGLE _"Concave" FALSE)
(script-fu-menu-register "script-fu-selection-rounded-rectangle"
"<Image>/Select")
(script-fu-register "script-fu-selection-round"
""
"Rounds the active selection. This procedure exists for backward compatibility only. Please use script-fu-selection-rounded-rectangle instead."
@ -166,7 +169,6 @@
"Sven Neumann" ; copyright
"1998/02/06"
"*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT "Relative radius" '(1 0 128 .1 1 1 1))
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT "Relative radius" '(1 0 128 .1 1 1 1))

19
plug-ins/script-fu/scripts/slide.scm
View File

@ -229,16 +229,19 @@
(gimp-context-pop)))
(script-fu-register "script-fu-slide"
_"<Image>/Script-Fu/Decor/_Slide..."
_"_Slide..."
"Gives the image the look of a slide"
"Sven Neumann <sven@gimp.org>"
"Sven Neumann"
"2004/03/28"
"RGB GRAY"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-STRING _"Text" "The GIMP"
SF-STRING _"Number" "32"
SF-FONT _"Font" "Serif"
SF-COLOR _"Font color" '(255 180 0)
SF-TOGGLE _"Work on copy" TRUE)
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-STRING _"Text" "The GIMP"
SF-STRING _"Number" "32"
SF-FONT _"Font" "Serif"
SF-COLOR _"Font color" '(255 180 0)
SF-TOGGLE _"Work on copy" TRUE)
(script-fu-menu-register "script-fu-slide"
_"<Image>/Script-Fu/Decor")

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

@ -178,21 +178,24 @@
(gimp-context-pop)))
(script-fu-register "script-fu-sota-chrome-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/SOTA Chrome..."
_"SOTA Chrome..."
"State of the art chromed logos"
"Spencer Kimball"
"Spencer Kimball"
"1997"
""
SF-ADJUSTMENT _"Chrome saturation" '(-80 -100 100 1 10 0 0)
SF-ADJUSTMENT _"Chrome lightness" '(-47 -100 100 1 10 0 0)
SF-ADJUSTMENT _"Chrome factor" '(.75 0 1 .1 .01 2 0)
SF-STRING _"Text" "The GIMP"
SF-ADJUSTMENT _"Chrome saturation" '(-80 -100 100 1 10 0 0)
SF-ADJUSTMENT _"Chrome lightness" '(-47 -100 100 1 10 0 0)
SF-ADJUSTMENT _"Chrome factor" '(.75 0 1 .1 .01 2 0)
SF-STRING _"Text" "The GIMP"
SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "RoostHeavy"
SF-FILENAME _"Environment map"
(string-append ""
gimp-data-directory
"/scripts/images/beavis.jpg")
SF-COLOR _"Highlight balance" '(211 95 0)
SF-COLOR _"Chrome balance" '(0 0 0))
SF-COLOR _"Highlight balance" '(211 95 0)
SF-COLOR _"Chrome balance" '(0 0 0))
(script-fu-menu-register "script-fu-sota-chrome-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

15
plug-ins/script-fu/scripts/speed-text.scm
View File

@ -78,15 +78,18 @@
(gimp-context-pop)))
(script-fu-register "script-fu-speed-text"
_"<Toolbox>/Xtns/Script-Fu/Logos/Speed Text..."
_"Speed Text..."
"give text a speedy effect"
"Austin Donnelly"
"Austin Donnelly"
"1998"
""
SF-STRING _"Text" "Speed!"
SF-FONT _"Font" "Charter"
SF-STRING _"Text" "Speed!"
SF-FONT _"Font" "Charter"
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
SF-ADJUSTMENT _"Density (%)" '(80 0 100 1 10 0 0)
SF-COLOR _"Text color" '(0 0 0)
SF-COLOR _"Background color" '(255 255 255))
SF-ADJUSTMENT _"Density (%)" '(80 0 100 1 10 0 0)
SF-COLOR _"Text color" '(0 0 0)
SF-COLOR _"Background color" '(255 255 255))
(script-fu-menu-register "script-fu-speed-text"
_"<Toolbox>/Xtns/Script-Fu/Logos")

5
plug-ins/script-fu/scripts/sphere.scm
View File

@ -65,7 +65,7 @@
(gimp-context-pop)))
(script-fu-register "script-fu-sphere"
_"<Toolbox>/Xtns/Script-Fu/Misc/_Sphere..."
_"_Sphere..."
"Simple sphere with a drop shadow"
"Spencer Kimball"
"Spencer Kimball"
@ -76,3 +76,6 @@
SF-TOGGLE _"Shadow" TRUE
SF-COLOR _"Background color" '(255 255 255)
SF-COLOR _"Sphere color" '(255 0 0))
(script-fu-menu-register "script-fu-sphere"
_"<Toolbox>/Xtns/Script-Fu/Misc")

33
plug-ins/script-fu/scripts/spinning-globe.scm
View File

@ -104,21 +104,20 @@
)
)
; Register the function with the GIMP:
(script-fu-register "script-fu-spinning-globe"
_"_Spinning Globe..."
"Maps the image on an animated spinning globe"
"Chris Gutteridge"
"1998, Chris Gutteridge / ECS dept, University of Southampton, England."
"16th April 1998"
"RGB* GRAY*"
SF-IMAGE "The Image" 0
SF-DRAWABLE "The Layer" 0
SF-ADJUSTMENT _"Frames" '(10 1 360 1 10 0 1)
SF-TOGGLE _"Turn from left to right" FALSE
SF-TOGGLE _"Transparent background" TRUE
SF-ADJUSTMENT _"Index to n colors (0 = remain RGB)" '(63 0 256 1 10 0 1)
SF-TOGGLE _"Work on copy" TRUE)
(script-fu-register
"script-fu-spinning-globe"
_"<Image>/Script-Fu/Animators/_Spinning Globe..."
"Maps the image on an animated spinning globe"
"Chris Gutteridge"
"1998, Chris Gutteridge / ECS dept, University of Southampton, England."
"16th April 1998"
"RGB* GRAY*"
SF-IMAGE "The Image" 0
SF-DRAWABLE "The Layer" 0
SF-ADJUSTMENT _"Frames" '(10 1 360 1 10 0 1)
SF-TOGGLE _"Turn from left to right" FALSE
SF-TOGGLE _"Transparent background" TRUE
SF-ADJUSTMENT _"Index to n colors (0 = remain RGB)" '(63 0 256 1 10 0 1)
SF-TOGGLE _"Work on copy" TRUE
)
(script-fu-menu-register "script-fu-spinning-globe"
_"<Image>/Script-Fu/Animators")

75
plug-ins/script-fu/scripts/spyrogimp.scm
View File

@ -317,46 +317,45 @@
)
(script-fu-register "script-fu-spyrogimp"
_"<Image>/Script-Fu/Render/_Spyrogimp..."
_"Draws Spirographs, Epitrochoids and Lissajous Curves. More info at http://netword.com/*spyrogimp"
"Elad Shahar <elad@wisdom.weizmann.ac.il>"
"Elad Shahar"
"June 2003"
"RGB*, INDEXED*, GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
_"_Spyrogimp..."
_"Draws Spirographs, Epitrochoids and Lissajous Curves. More info at http://netword.com/*spyrogimp"
"Elad Shahar <elad@wisdom.weizmann.ac.il>"
"Elad Shahar"
"June 2003"
"RGB*, INDEXED*, GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-OPTION _"Type" '(_"Spyrograph"
_"Epitrochoid"
_"Lissajous")
SF-OPTION _"Shape" '(_"Circle"
_"Frame"
_"Triangle"
_"Square"
_"Pentagon"
_"Hexagon"
_"Polygon: 7 sides"
_"Polygon: 8 sides"
_"Polygon: 9 sides"
_"Polygon: 10 sides")
SF-ADJUSTMENT _"Outer teeth" '(90 1 120 1 10 0 0)
SF-ADJUSTMENT _"Inner teeth" '(70 1 120 1 10 0 0)
SF-ADJUSTMENT _"Margin (pixels)" '(0 -10000 10000 1 10 0 1)
SF-ADJUSTMENT _"Hole ratio" '(0.4 0.0 1.0 0.01 0.1 2 0)
SF-ADJUSTMENT _"Start angle" '(0 0 359 1 10 0 0)
SF-OPTION _"Type" '(_"Spyrograph"
_"Epitrochoid"
_"Lissajous")
SF-OPTION _"Shape" '(_"Circle"
_"Frame"
_"Triangle"
_"Square"
_"Pentagon"
_"Hexagon"
_"Polygon: 7 sides"
_"Polygon: 8 sides"
_"Polygon: 9 sides"
_"Polygon: 10 sides")
SF-ADJUSTMENT _"Outer teeth" '(90 1 120 1 10 0 0)
SF-ADJUSTMENT _"Inner teeth" '(70 1 120 1 10 0 0)
SF-ADJUSTMENT _"Margin (pixels)" '(0 -10000 10000 1 10 0 1)
SF-ADJUSTMENT _"Hole ratio" '(0.4 0.0 1.0 0.01 0.1 2 0)
SF-ADJUSTMENT _"Start angle" '(0 0 359 1 10 0 0)
SF-OPTION _"Tool" '(_"Pencil"
_"Brush"
_"Airbrush")
SF-BRUSH _"Brush" '("Circle (01)" 1.0 -1 0)
SF-OPTION _"Tool" '(_"Pencil"
_"Brush"
_"Airbrush")
SF-BRUSH _"Brush" '("Circle (01)" 1.0 -1 0)
SF-OPTION _"Color method" '(_"Solid Color"
_"Gradient: Loop Sawtooth"
_"Gradient: Loop Triangle")
SF-COLOR _"Color" '(0 0 0)
SF-GRADIENT _"Gradient" "Deep Sea"
)
SF-OPTION _"Color method" '(_"Solid Color"
_"Gradient: Loop Sawtooth"
_"Gradient: Loop Triangle")
SF-COLOR _"Color" '(0 0 0)
SF-GRADIENT _"Gradient" "Deep Sea")
;; End of syprogimp.scm
(script-fu-menu-register "script-fu-spyrogimp"
_"<Image>/Script-Fu/Render")

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

@ -73,18 +73,20 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-starburst-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Starb_urst..."
_"Starb_urst..."
"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-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)
)
SF-COLOR _"Burst color" '(60 196 33)
SF-COLOR _"Background color" '(255 255 255))
(script-fu-menu-register "script-fu-starburst-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-starburst-logo text size fontname burst-color bg-color)
@ -100,15 +102,17 @@
(gimp-display-new img)))
(script-fu-register "script-fu-starburst-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Starb_urst..."
_"Starb_urst..."
"Starburst as inspired by GIMP News"
"Spencer Kimball & Xach Beane"
"Spencer Kimball & Xach Beane"
"1997"
""
SF-STRING _"Text" "GIMP"
SF-STRING _"Text" "GIMP"
SF-ADJUSTMENT _"Font size (pixels)" '(150 0 512 1 10 0 1)
SF-FONT _"Font" "Blippo"
SF-COLOR _"Burst color" '(60 196 33)
SF-COLOR _"Background color" '(255 255 255)
)
SF-FONT _"Font" "Blippo"
SF-COLOR _"Burst color" '(60 196 33)
SF-COLOR _"Background color" '(255 255 255))
(script-fu-menu-register "script-fu-starburst-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

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

@ -122,7 +122,7 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-starscape-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/Sta_rscape..."
_"Sta_rscape..."
"Starscape using the Nova plug-in"
"Spencer Kimball"
"Spencer Kimball"
@ -133,6 +133,9 @@
SF-ADJUSTMENT _"Effect size (pixels * 4)" '(150 1 1000 1 10 0 1)
SF-COLOR _"Glow color" '(28 65 188))
(script-fu-menu-register "script-fu-starscape-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-starscape-logo text
size
@ -149,7 +152,7 @@
(gimp-display-new img)))
(script-fu-register "script-fu-starscape-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/Sta_rscape..."
_"Sta_rscape..."
"Starscape using the Nova plug-in"
"Spencer Kimball"
"Spencer Kimball"
@ -159,3 +162,6 @@
SF-ADJUSTMENT _"Font size (pixels)" '(150 1 1000 1 10 0 1)
SF-FONT _"Font" "Engraver"
SF-COLOR _"Glow color" '(28 65 188))
(script-fu-menu-register "script-fu-starscape-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

21
plug-ins/script-fu/scripts/swirltile.scm
View File

@ -44,18 +44,21 @@
(gimp-context-pop)))
(script-fu-register "script-fu-swirl-tile"
_"<Toolbox>/Xtns/Script-Fu/Patterns/Swirl-_Tile..."
_"Swirl-_Tile..."
"Create an interesting swirled tile"
"Adrian Likins <aklikins@eos.ncsu.edu>"
"Adrian Likins"
"1997"
""
SF-ADJUSTMENT _"Depth" '(10 0 64 1 1 0 0)
SF-ADJUSTMENT _"Azimuth" '(135 0 360 1 10 0 0)
SF-ADJUSTMENT _"Elevation" '(45 0 90 1 10 0 0)
SF-ADJUSTMENT _"Blur radius" '(3 0 128 1 10 0 0)
SF-ADJUSTMENT _"Height" '(256 0 1024 1 10 0 1)
SF-ADJUSTMENT _"Width" '(256 0 1024 1 10 0 1)
SF-ADJUSTMENT _"Whirl amount" '(320 0 360 1 10 0 0)
SF-ADJUSTMENT _"Roughness" '(.5 0 1 .1 .01 2 1)
SF-ADJUSTMENT _"Depth" '(10 0 64 1 1 0 0)
SF-ADJUSTMENT _"Azimuth" '(135 0 360 1 10 0 0)
SF-ADJUSTMENT _"Elevation" '(45 0 90 1 10 0 0)
SF-ADJUSTMENT _"Blur radius" '(3 0 128 1 10 0 0)
SF-ADJUSTMENT _"Height" '(256 0 1024 1 10 0 1)
SF-ADJUSTMENT _"Width" '(256 0 1024 1 10 0 1)
SF-ADJUSTMENT _"Whirl amount" '(320 0 360 1 10 0 0)
SF-ADJUSTMENT _"Roughness" '(.5 0 1 .1 .01 2 1)
SF-COLOR _"Background color" '(255 255 255))
(script-fu-menu-register "script-fu-swirl-tile"
_"<Toolbox>/Xtns/Script-Fu/Patterns")

9
plug-ins/script-fu/scripts/swirly-pattern.scm
View File

@ -77,12 +77,15 @@
(gimp-context-pop)))
(script-fu-register "script-fu-swirly-pattern"
_"<Toolbox>/Xtns/Script-Fu/Patterns/_Swirly..."
_"_Swirly..."
"Create a swirly pattern"
"Federico Mena Quintero"
"Federico Mena Quintero"
"June 1997"
""
SF-ADJUSTMENT _"Quarter size" '(20 0 2048 1 10 0 1)
SF-ADJUSTMENT _"Whirl angle" '(90 0 360 1 1 0 0)
SF-ADJUSTMENT _"Quarter size" '(20 0 2048 1 10 0 1)
SF-ADJUSTMENT _"Whirl angle" '(90 0 360 1 1 0 0)
SF-ADJUSTMENT _"Number of times to whirl" '(4 0 128 1 1 0 1))
(script-fu-menu-register "script-fu-swirly-pattern"
_"<Toolbox>/Xtns/Script-Fu/Patterns")

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

@ -92,21 +92,23 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-t-o-p-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/_Particle Trace..."
_"_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-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)
)
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))
(script-fu-menu-register "script-fu-t-o-p-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-t-o-p-logo text
@ -128,20 +130,20 @@
(gimp-display-new img)))
(script-fu-register "script-fu-t-o-p-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/_Particle Trace..."
_"_Particle Trace..."
"Trace of Particles Effect"
"Shuji Narazaki (narazaki@InetQ.or.jp)"
"Shuji Narazaki"
"1997"
""
SF-STRING _"Text" "The GIMP"
SF-STRING _"Text" "The GIMP"
SF-ADJUSTMENT _"Font size (pixels)" '(100 1 1000 1 10 0 1)
SF-FONT _"Font" "Becker"
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)
)
SF-FONT _"Font" "Becker"
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))
; end of t-o-p.scm
(script-fu-menu-register "script-fu-t-o-p-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

33
plug-ins/script-fu/scripts/text-circle.scm
View File

@ -133,21 +133,20 @@
(gimp-display-new img)
(gimp-displays-flush)))
(script-fu-register
"script-fu-text-circle"
_"<Toolbox>/Xtns/Script-Fu/Logos/Text Circle..."
"Render the specified text along the perimeter of a circle"
"Shuji Narazaki <narazaki@gimp.org>"
"Shuji Narazaki"
"1997-1998"
""
SF-STRING _"Text" "The GNU Image Manipulation Program Version 2.0 "
SF-ADJUSTMENT _"Radius" '(80 1 8000 1 1 0 1)
SF-ADJUSTMENT _"Start angle" '(0 -180 180 1 1 0 1)
SF-ADJUSTMENT _"Fill angle" '(360 -360 360 1 1 0 1)
SF-ADJUSTMENT _"Font size (pixels)" '(18 1 1000 1 1 0 1)
SF-TOGGLE _"Antialias" TRUE
SF-FONT _"Font" "Sans"
)
(script-fu-register "script-fu-text-circle"
_"Text Circle..."
"Render the specified text along the perimeter of a circle"
"Shuji Narazaki <narazaki@gimp.org>"
"Shuji Narazaki"
"1997-1998"
""
SF-STRING _"Text" "The GNU Image Manipulation Program Version 2.2 "
SF-ADJUSTMENT _"Radius" '(80 1 8000 1 1 0 1)
SF-ADJUSTMENT _"Start angle" '(0 -180 180 1 1 0 1)
SF-ADJUSTMENT _"Fill angle" '(360 -360 360 1 1 0 1)
SF-ADJUSTMENT _"Font size (pixels)" '(18 1 1000 1 1 0 1)
SF-TOGGLE _"Antialias" TRUE
SF-FONT _"Font" "Sans")
;; text-circle.scm ends here
(script-fu-menu-register "script-fu-text-circle"
_"<Toolbox>/Xtns/Script-Fu/Logos")

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

@ -111,7 +111,7 @@
(gimp-displays-flush)))
(script-fu-register "script-fu-textured-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo/_Textured..."
_"_Textured..."
"Creates textured logos with blended backgrounds, highlights, and shadows"
"Spencer Kimball"
"Spencer Kimball"
@ -122,12 +122,16 @@
SF-ADJUSTMENT _"Border size (pixels)" '(20 1 100 1 10 0 1)
SF-PATTERN _"Pattern" "Fibers"
SF-OPTION _"Mosaic tile type" '(_"Squares"
_"Hexagons"
_"Octagons")
_"Hexagons"
_"Octagons")
SF-COLOR _"Background color" '(255 255 255)
SF-COLOR _"Starting blend" '(32 106 0)
SF-COLOR _"Ending blend" '(0 0 106))
(script-fu-menu-register "script-fu-textured-logo-alpha"
_"<Image>/Script-Fu/Alpha to Logo")
(define (script-fu-textured-logo text
size
fontname
@ -148,7 +152,7 @@
(gimp-display-new img)))
(script-fu-register "script-fu-textured-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos/_Textured..."
_"_Textured..."
"Creates textured logos with blended backgrounds, highlights, and shadows"
"Spencer Kimball"
"Spencer Kimball"
@ -164,3 +168,6 @@
SF-COLOR _"Background color" '(255 255 255)
SF-COLOR _"Starting blend" '(32 106 0)
SF-COLOR _"Ending blend" '(0 0 106))
(script-fu-menu-register "script-fu-textured-logo"
_"<Toolbox>/Xtns/Script-Fu/Logos")

32
plug-ins/script-fu/scripts/tileblur.scm
View File

@ -55,22 +55,20 @@
)
)
; Register the function with the GIMP:
(script-fu-register
"script-fu-tile-blur"
_"<Image>/Filters/Blur/_Tileable Blur..."
"Blurs image edges so that the final result tiles seamlessly"
"Chris Gutteridge"
"1998, Chris Gutteridge / ECS dept, University of Southampton, England."
"25th April 1998"
"RGB*"
SF-IMAGE "The Image" 0
SF-DRAWABLE "The Layer" 0
SF-ADJUSTMENT _"Radius" '(5 0 128 1 1 0 0)
SF-TOGGLE _"Blur vertically" TRUE
SF-TOGGLE _"Blur horizontally" TRUE
SF-OPTION _"Blur type" '(_"IIR" _"RLE")
)
(script-fu-register "script-fu-tile-blur"
_"_Tileable Blur..."
"Blurs image edges so that the final result tiles seamlessly"
"Chris Gutteridge"
"1998, Chris Gutteridge / ECS dept, University of Southampton, England."
"25th April 1998"
"RGB*"
SF-IMAGE "The Image" 0
SF-DRAWABLE "The Layer" 0
SF-ADJUSTMENT _"Radius" '(5 0 128 1 1 0 0)
SF-TOGGLE _"Blur vertically" TRUE
SF-TOGGLE _"Blur horizontally" TRUE
SF-OPTION _"Blur type" '(_"IIR" _"RLE"))
(script-fu-menu-register "script-fu-tile-blur"
"<Image>/Filters/Blur")

5
plug-ins/script-fu/scripts/title-header.scm
View File

@ -158,7 +158,7 @@
(gimp-context-pop)))
(script-fu-register "script-fu-title-header"
_"<Toolbox>/Xtns/Script-Fu/Logos/Web Title Header..."
_"Web Title Header..."
"Web title header"
"Federico Mena Quintero"
"Federico Mena Quintero"
@ -168,3 +168,6 @@
SF-ADJUSTMENT _"Font size (pixels)" '(32 2 256 1 10 0 0)
SF-FONT _"Font" "Sans"
SF-TOGGLE _"Gradient reverse" FALSE)
(script-fu-menu-register "script-fu-title-header"
_"<Toolbox>/Xtns/Script-Fu/Logos")

18
plug-ins/script-fu/scripts/truchet.scm
View File

@ -147,18 +147,20 @@
(gimp-context-pop)))
(script-fu-register "script-fu-truchet"
_"<Toolbox>/Xtns/Script-Fu/Patterns/T_ruchet..."
_"T_ruchet..."
"Create a Truchet pattern \n\nWorks best with even sized thicknesses"
"Adrian Likins <aklikins@eos.ncsu.edu>"
"Adrian Likins"
"1997"
""
SF-ADJUSTMENT _"Block size" '(32 2 512 1 10 1 1)
SF-ADJUSTMENT _"Thickness" '(2 1 512 1 10 1 1)
SF-COLOR _"Background color" '(255 255 255)
SF-COLOR _"Foreground color" '(0 0 0)
SF-ADJUSTMENT _"Block size" '(32 2 512 1 10 1 1)
SF-ADJUSTMENT _"Thickness" '(2 1 512 1 10 1 1)
SF-COLOR _"Background color" '(255 255 255)
SF-COLOR _"Foreground color" '(0 0 0)
SF-ADJUSTMENT _"Number of X tiles" '(5 1 512 1 10 1 1)
SF-ADJUSTMENT _"Number of Y tiles" '(5 1 512 1 10 1 1)
)
SF-ADJUSTMENT _"Number of Y tiles" '(5 1 512 1 10 1 1))
(script-fu-menu-register "script-fu-truchet"
_"<Toolbox>/Xtns/Script-Fu/Patterns")

6
plug-ins/script-fu/scripts/unsharp-mask.scm
View File

@ -66,8 +66,9 @@
(gimp-image-undo-enable new-image)
(gimp-displays-flush)))
(script-fu-register "script-fu-unsharp-mask"
_"<Image>/Script-Fu/Alchemy/_Unsharp Mask..."
_"_Unsharp Mask..."
"Make a sharp image of IMAGE's DRAWABLE by applying unsharp mask method"
"Shuji Narazaki <narazaki@gimp.org>"
"Shuji Narazaki"
@ -77,3 +78,6 @@
SF-DRAWABLE "Drawable to apply" 0
SF-ADJUSTMENT _"Mask size" '(5 1 100 1 1 0 1)
SF-ADJUSTMENT _"Mask opacity" '(50 0 100 1 1 0 1))
(script-fu-menu-register "script-fu-unsharp-mask"
_"<Image>/Script-Fu/Alchemy")

10
plug-ins/script-fu/scripts/waves-anim.scm
View File

@ -85,16 +85,20 @@
(gimp-image-undo-enable image)
(gimp-display-new image)))
(script-fu-register "script-fu-waves-anim"
_"<Image>/Script-Fu/Animators/_Waves..."
_"_Waves..."
"Animate an image like a stone's been thrown into it"
"Sven Neumann <sven@gimp.org>"
"Sven Neumann"
"1997/13/12"
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Amplitude" '(10 1 101 1 10 1 0)
SF-ADJUSTMENT _"Wavelength" '(10 .10 100 1 10 1 0)
SF-ADJUSTMENT _"Number of frames" '(6 1 512 1 10 0 1)
SF-TOGGLE _"Invert direction" FALSE)
(script-fu-menu-register "script-fu-waves-anim"
_"<Image>/Script-Fu/Animators")

24
plug-ins/script-fu/scripts/weave.scm
View File

@ -384,19 +384,23 @@
(gimp-context-pop)))
(script-fu-register "script-fu-weave"
_"<Image>/Script-Fu/Alchemy/_Weave..."
_"_Weave..."
"Weave effect like Alien Skin"
"Federico Mena Quintero"
"Federico Mena Quintero"
"June 1997"
"RGB* GRAY*"
SF-IMAGE "Image to Weave" 0
SF-DRAWABLE "Drawable to Weave" 0
SF-ADJUSTMENT _"Ribbon width" '(30 0 256 1 10 1 1)
SF-ADJUSTMENT _"Ribbon spacing" '(10 0 256 1 10 1 1)
SF-ADJUSTMENT _"Shadow darkness" '(75 0 100 1 10 1 1)
SF-ADJUSTMENT _"Shadow depth" '(75 0 100 1 10 1 1)
SF-ADJUSTMENT _"Thread length" '(200 0 256 1 10 1 1)
SF-ADJUSTMENT _"Thread density" '(50 0 100 1 10 1 1)
SF-ADJUSTMENT _"Thread intensity" '(100 0 512 1 10 1 1))
SF-IMAGE "Image to Weave" 0
SF-DRAWABLE "Drawable to Weave" 0
SF-ADJUSTMENT _"Ribbon width" '(30 0 256 1 10 1 1)
SF-ADJUSTMENT _"Ribbon spacing" '(10 0 256 1 10 1 1)
SF-ADJUSTMENT _"Shadow darkness" '(75 0 100 1 10 1 1)
SF-ADJUSTMENT _"Shadow depth" '(75 0 100 1 10 1 1)
SF-ADJUSTMENT _"Thread length" '(200 0 256 1 10 1 1)
SF-ADJUSTMENT _"Thread density" '(50 0 100 1 10 1 1)
SF-ADJUSTMENT _"Thread intensity" '(100 0 512 1 10 1 1))
(script-fu-menu-register "script-fu-weave"
_"<Image>/Script-Fu/Alchemy")

22
plug-ins/script-fu/scripts/web-browser.scm
View File

@ -28,26 +28,38 @@
(define (gimp-online-plug-in-web-site)
(plug-in-web-browser "http://registry.gimp.org"))
(script-fu-register "gimp-online-main-web-site"
_"<Toolbox>/Help/The GIMP Online/_Main Web Site"
_"_Main Web Site"
"Link to http://www.gimp.org"
"Henrik Brix Andersen <brix@gimp.org>"
"Henrik Brix Andersen <brix@gimp.org>"
"2003"
"")
(script-fu-menu-register "gimp-online-main-web-site"
_"<Toolbox>/Help/The GIMP Online")
(script-fu-register "gimp-online-developer-web-site"
_"<Toolbox>/Help/The GIMP Online/_Developer Web Site"
"Link to http://www.gimp.org"
_"_Developer Web Site"
"Link to http://developer.gimp.org"
"Henrik Brix Andersen <brix@gimp.org>"
"Henrik Brix Andersen <brix@gimp.org>"
"2003"
"")
(script-fu-menu-register "gimp-online-developer-web-site"
_"<Toolbox>/Help/The GIMP Online")
(script-fu-register "gimp-online-plug-in-web-site"
_"<Toolbox>/Help/The GIMP Online/Plug-in _Registry"
"Link to http://www.gimp.org"
_"Plug-in _Registry"
"Link to http://registry.gimp.org"
"Henrik Brix Andersen <brix@gimp.org>"
"Henrik Brix Andersen <brix@gimp.org>"
"2003"
"")
(script-fu-menu-register "gimp-online-plug-in-web-site"
_"<Toolbox>/Help/The GIMP Online")

24
plug-ins/script-fu/scripts/xach-effect.scm
View File

@ -111,24 +111,24 @@
(script-fu-register "script-fu-xach-effect"
_"<Image>/Script-Fu/Shadow/_Xach-Effect..."
_"_Xach-Effect..."
"Add a subtle translucent 3-d effect to the current selection or alpha channel"
"Adrian Likins <adrian@gimp.org>"
"Adrian Likins"
"9/28/97"
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Highlight X offset" '(-1 -100 100 1 10 0 1)
SF-ADJUSTMENT _"Highlight Y offset" '(-1 -100 100 1 10 0 1)
SF-COLOR _"Highlight color" '(255 255 255)
SF-ADJUSTMENT _"Highlight opacity" '(66 0 255 1 10 0 0)
SF-COLOR _"Drop shadow color" '(0 0 0)
SF-ADJUSTMENT _"Drop shadow opacity" '(100 0 100 1 10 0 0)
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Highlight X offset" '(-1 -100 100 1 10 0 1)
SF-ADJUSTMENT _"Highlight Y offset" '(-1 -100 100 1 10 0 1)
SF-COLOR _"Highlight color" '(255 255 255)
SF-ADJUSTMENT _"Highlight opacity" '(66 0 255 1 10 0 0)
SF-COLOR _"Drop shadow color" '(0 0 0)
SF-ADJUSTMENT _"Drop shadow opacity" '(100 0 100 1 10 0 0)
SF-ADJUSTMENT _"Drop shadow blur radius" '(12 0 255 1 10 0 1)
SF-ADJUSTMENT _"Drop shadow X offset" '(5 0 255 1 10 0 1)
SF-ADJUSTMENT _"Drop shadow Y offset" '(5 0 255 1 10 0 1)
SF-TOGGLE _"Keep selection" TRUE)
SF-TOGGLE _"Keep selection" TRUE)
(script-fu-menu-register "script-fu-xach-effect"
_"<Image>/Script-Fu/Shadow")