Commit 85553f84 authored by Kevin Cozens's avatar Kevin Cozens Committed by Kevin Cozens

Updated the scripts to bring them in-line with the current versions being

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

	* scripts/*.scm: Updated the scripts to bring them in-line with the
	current versions being used in Script-Fu.
parent 8a6c7117
2006-10-24 Kevin Cozens <kcozens@cvs.gnome.org>
* scripts/*.scm: Updated the scripts to bring them in-line with the
current versions being used in Script-Fu.
2006-10-16 Kevin Cozens <kcozens@cvs.gnome.org>
* TODO: Updated.
......
......@@ -31,19 +31,20 @@
s-offset-x
s-offset-y)
(let* (
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(bg-layer (car (gimp-layer-new img width height
RGB-IMAGE "Background" 100 NORMAL-MODE)))
(pattern (car (gimp-layer-new img width height
RGBA-IMAGE "Pattern" 100 NORMAL-MODE)))
(layer2)
(layer3)
(pattern-mask)
(floating-sel)
)
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(bg-layer (car (gimp-layer-new img width height
RGB-IMAGE "Background" 100 NORMAL-MODE)))
(pattern (car (gimp-layer-new img width height
RGBA-IMAGE "Pattern" 100 NORMAL-MODE)))
(layer2)
(layer3)
(pattern-mask)
(floating-sel)
)
(gimp-context-push)
(gimp-selection-none img)
(script-fu-util-image-resize-from-layer img logo-layer)
(gimp-image-add-layer img pattern 1)
......@@ -67,7 +68,7 @@
(gimp-selection-all img)
(gimp-context-set-pattern text-pattern)
(gimp-edit-bucket-fill pattern PATTERN-BUCKET-FILL
NORMAL-MODE 100 0 FALSE 0 0)
NORMAL-MODE 100 0 FALSE 0 0)
(plug-in-bump-map noninteractive img pattern layer2
110.0 45.0 4 0 0 0 0 TRUE FALSE 0)
......@@ -88,6 +89,7 @@
(gimp-drawable-set-visible layer2 FALSE)
(gimp-drawable-set-visible pattern TRUE)
;;(set! final (car (gimp-image-flatten img)))
(gimp-context-pop)
)
)
......@@ -119,20 +121,21 @@
"Hrvoje Horvat"
"07 April, 1998"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-PATTERN "Pattern" "Parque #1"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-PATTERN _"Pattern" "Parque #1"
SF-ADJUSTMENT _"Outline blur radius" '(5 1 200 1 10 0 1)
SF-ADJUSTMENT _"Shadow blur radius" '(10 1 200 1 10 0 1)
SF-ADJUSTMENT _"Shadow blur radius" '(10 1 200 1 10 0 1)
SF-ADJUSTMENT _"Bumpmap (alpha layer) blur radius" '(5 1 200 1 10 0 1)
SF-TOGGLE _"Default bumpmap settings" TRUE
SF-ADJUSTMENT _"Shadow X offset" '(0 0 200 1 5 0 1)
SF-ADJUSTMENT _"Shadow Y offset" '(0 0 200 1 5 0 1)
SF-ADJUSTMENT _"Shadow X offset" '(0 0 200 1 5 0 1)
SF-ADJUSTMENT _"Shadow Y offset" '(0 0 200 1 5 0 1)
)
(script-fu-menu-register "script-fu-3d-outline-logo-alpha"
"<Image>/Filters/Alpha to Logo")
(define (script-fu-3d-outline-logo text-pattern
text
size
......@@ -164,16 +167,16 @@
"Hrvoje Horvat"
"07 April, 1998"
""
SF-PATTERN "Pattern" "Parque #1"
SF-STRING _"Text" "The Gimp"
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT _"Font" "RoostHeavy"
SF-PATTERN _"Pattern" "Parque #1"
SF-STRING _"Text" "GIMP"
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT _"Font" "RoostHeavy"
SF-ADJUSTMENT _"Outline blur radius" '(5 1 200 1 10 0 1)
SF-ADJUSTMENT _"Shadow blur radius" '(10 1 200 1 10 0 1)
SF-ADJUSTMENT _"Shadow blur radius" '(10 1 200 1 10 0 1)
SF-ADJUSTMENT _"Bumpmap (alpha layer) blur radius" '(5 1 200 1 10 0 1)
SF-TOGGLE _"Default bumpmap settings" TRUE
SF-ADJUSTMENT _"Shadow X offset" '(0 0 200 1 5 0 1)
SF-ADJUSTMENT _"Shadow Y offset" '(0 0 200 1 5 0 1)
SF-ADJUSTMENT _"Shadow X offset" '(0 0 200 1 5 0 1)
SF-ADJUSTMENT _"Shadow Y offset" '(0 0 200 1 5 0 1)
)
(script-fu-menu-register "script-fu-3d-outline-logo"
......
......@@ -178,6 +178,7 @@
)
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-undo-disable tile)
......@@ -194,6 +195,7 @@
(create-tile tile tiledraw1 tiledraw2 size thickness
backcolor begincolor endcolor supersample)
(while (<= Xindex xtiles)
(while (<= Yindex ytiles)
(if (= (rand 2) 0)
......@@ -210,8 +212,9 @@
(gimp-image-delete tile)
(gimp-image-undo-enable img)
(gimp-context-pop)
(gimp-display-new img)
(gimp-context-pop)
)
)
......
......@@ -65,6 +65,7 @@
(offsets (gimp-drawable-offsets pic-layer))
(width (car (gimp-drawable-width pic-layer)))
(height (car (gimp-drawable-height pic-layer)))
; Bumpmap has a one pixel border on each side
(bump-layer (car (gimp-layer-new image
(+ width 2)
......@@ -73,8 +74,8 @@
"Bumpmap"
100
NORMAL-MODE)))
(select)
(bevelling-whole-image)
(select)
)
(gimp-context-push)
......@@ -104,7 +105,7 @@
(gimp-selection-all image)
)
)
)
)
; Store it for later.
(set! select (car (gimp-selection-save image)))
......@@ -176,23 +177,24 @@
(gimp-image-undo-group-end image)
)
(gimp-context-pop)
(gimp-displays-flush)
(gimp-context-pop)
)
)
(script-fu-register "script-fu-add-bevel"
_"Add B_evel..."
_"Add a bevelled border to an image"
"Andrew Donkin <ard@cs.waikato.ac.nz>"
"Andrew Donkin"
"1997/11/06"
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Thickness" '(5 0 30 1 2 0 0)
SF-TOGGLE _"Work on copy" TRUE
SF-TOGGLE _"Keep bump layer" FALSE
_"Add B_evel..."
_"Add a beveled border to an image"
"Andrew Donkin <ard@cs.waikato.ac.nz>"
"Andrew Donkin"
"1997/11/06"
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Thickness" '(5 0 30 1 2 0 0)
SF-TOGGLE _"Work on copy" TRUE
SF-TOGGLE _"Keep bump layer" FALSE
)
(script-fu-menu-register "script-fu-add-bevel"
......
......@@ -33,7 +33,7 @@
)
(define (adjcolour col delta)
(map (lambda (x) (deltacolour x delta)) col)
(mapcar (lambda (x) (deltacolour x delta)) col)
)
(define (gen_top_array xsize ysize owidth oheight width height)
......@@ -102,7 +102,8 @@
(oheight (car (gimp-image-height img)))
(width (+ owidth (* 2 xsize)))
(height (+ oheight (* 2 ysize)))
(layer (car (gimp-layer-new img width height
(layer (car (gimp-layer-new img
width height
(car (gimp-drawable-type-with-alpha adraw))
"Border-Layer" 100 NORMAL-MODE))))
......@@ -166,18 +167,18 @@
)
(script-fu-register "script-fu-addborder"
_"Add _Border..."
"Add a border around an image"
"Andy Thomas <alt@picnic.demon.co.uk>"
"Andy Thomas"
"6/10/97"
"*"
SF-IMAGE "Input image" 0
SF-DRAWABLE "Input drawable" 0
SF-ADJUSTMENT _"Border X size" '(12 1 250 1 10 0 1)
SF-ADJUSTMENT _"Border Y size" '(12 1 250 1 10 0 1)
SF-COLOR _"Border color" '(38 31 207)
SF-ADJUSTMENT _"Delta value on color" '(25 1 255 1 10 0 1)
_"Add _Border..."
_"Add a border around an image"
"Andy Thomas <alt@picnic.demon.co.uk>"
"Andy Thomas"
"6/10/97"
"*"
SF-IMAGE "Input image" 0
SF-DRAWABLE "Input drawable" 0
SF-ADJUSTMENT _"Border X size" '(12 1 250 1 10 0 1)
SF-ADJUSTMENT _"Border Y size" '(12 1 250 1 10 0 1)
SF-COLOR _"Border color" '(38 31 207)
SF-ADJUSTMENT _"Delta value on color" '(25 1 255 1 10 0 1)
)
(script-fu-menu-register "script-fu-addborder"
......
......@@ -129,6 +129,7 @@
)
(gimp-context-push)
(gimp-image-undo-disable img)
;(gimp-image-resize img (+ length height) (+ height height) 0 0)
(gimp-image-add-layer img bg-layer 1)
......@@ -171,17 +172,17 @@
)
(script-fu-register "script-fu-alien-glow-right-arrow"
_"_Arrow..."
_"Create an arrow graphic with an eerie glow for web pages"
"Adrian Likins"
"Adrian Likins"
"1997"
""
SF-ADJUSTMENT _"Size" '(32 5 150 1 10 0 1)
SF-OPTION _"Orientation" '(_"Right" _"Left" _"Up" _"Down")
SF-COLOR _"Glow color" '(63 252 0)
SF-COLOR _"Background color" "black"
SF-TOGGLE _"Flatten image" TRUE
_"_Arrow..."
_"Create an arrow graphic with an eerie glow for web pages"
"Adrian Likins"
"Adrian Likins"
"1997"
""
SF-ADJUSTMENT _"Size" '(32 5 150 1 10 0 1)
SF-OPTION _"Orientation" '(_"Right" _"Left" _"Up" _"Down")
SF-COLOR _"Glow color" '(63 252 0)
SF-COLOR _"Background color" "black"
SF-TOGGLE _"Flatten image" TRUE
)
(script-fu-menu-register "script-fu-alien-glow-right-arrow"
......
......@@ -33,13 +33,14 @@
RGBA-IMAGE "Ruler" 100 NORMAL-MODE)))
(glow-layer (car (gimp-layer-new img
(+ length height) (+ height height)
RGBA-IMAGE "ALien Glow" 100 NORMAL-MODE)))
RGBA-IMAGE "Alien Glow" 100 NORMAL-MODE)))
(bg-layer (car (gimp-layer-new img
(+ length height) (+ height height)
RGB-IMAGE "Backround" 100 NORMAL-MODE)))
RGB-IMAGE "Background" 100 NORMAL-MODE)))
)
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-resize img (+ length height) (+ height height) 0 0)
(gimp-image-add-layer img bg-layer 1)
......@@ -52,7 +53,9 @@
(gimp-edit-clear glow-layer)
(gimp-edit-clear ruler-layer)
(gimp-rect-select img (/ height 2) (/ height 2) length height CHANNEL-OP-REPLACE FALSE 0)
(gimp-rect-select img
(/ height 2) (/ height 2)
length height CHANNEL-OP-REPLACE FALSE 0)
(gimp-context-set-foreground '(79 79 79))
(gimp-context-set-background '(0 0 0))
......@@ -72,8 +75,9 @@
(if (= flatten TRUE)
(gimp-image-flatten img))
(gimp-context-pop)
(gimp-display-new img)
(gimp-context-pop)
)
)
......
......@@ -46,6 +46,7 @@
)
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-resize img diameter diameter 0 0)
(gimp-image-add-layer img bg-layer 1)
......@@ -92,16 +93,16 @@
)
(script-fu-register "script-fu-alien-glow-bullet"
_"_Bullet..."
_"Create a bullet graphic with an eerie glow for web pages"
"Adrian Likins"
"Adrian Likins"
"1997"
""
SF-ADJUSTMENT _"Radius" '(16 1 100 1 10 0 1)
SF-COLOR _"Glow color" '(63 252 0)
SF-COLOR _"Background color" '(0 0 0)
SF-TOGGLE _"Flatten image" TRUE
_"_Bullet..."
_"Create a bullet graphic with an eerie glow for web pages"
"Adrian Likins"
"Adrian Likins"
"1997"
""
SF-ADJUSTMENT _"Radius" '(16 1 100 1 10 0 1)
SF-COLOR _"Glow color" '(63 252 0)
SF-COLOR _"Background color" "black"
SF-TOGGLE _"Flatten image" TRUE
)
(script-fu-menu-register "script-fu-alien-glow-bullet"
......
......@@ -86,6 +86,7 @@
)
(gimp-context-push)
(gimp-image-undo-disable img)
; Create bumpmap layer
......@@ -146,21 +147,21 @@
)
(script-fu-register "script-fu-alien-glow-button"
_"B_utton..."
_"Create a button graphic with an eerie glow for web pages"
"Adrian Likins"
"Adrian Likins"
"July 1997"
""
SF-STRING _"Text" "Hello world!"
SF-FONT _"Font" "Sans Bold"
SF-ADJUSTMENT _"Font size (pixels)" '(22 2 100 1 1 0 1)
SF-COLOR _"Text color" '(0 0 0)
SF-COLOR _"Glow color" '(63 252 0)
SF-COLOR _"Background color" '(0 0 0)
SF-ADJUSTMENT _"Padding" '(6 1 100 1 10 0 1)
SF-ADJUSTMENT _"Glow radius" '(10 1 200 1 10 0 1)
SF-TOGGLE _"Flatten image" TRUE
_"B_utton..."
_"Create a button graphic with an eerie glow for web pages"
"Adrian Likins"
"Adrian Likins"
"July 1997"
""
SF-STRING _"Text" "Hello world!"
SF-FONT _"Font" "Sans Bold"
SF-ADJUSTMENT _"Font size (pixels)" '(22 2 100 1 1 0 1)
SF-COLOR _"Text color" "black"
SF-COLOR _"Glow color" '(63 252 0)
SF-COLOR _"Background color" "black"
SF-ADJUSTMENT _"Padding" '(6 1 100 1 10 0 1)
SF-ADJUSTMENT _"Glow radius" '(10 1 200 1 10 0 1)
SF-TOGGLE _"Flatten image" TRUE
)
(script-fu-menu-register "script-fu-alien-glow-button"
......
......@@ -20,6 +20,7 @@
)
(gimp-context-push)
(gimp-selection-none img)
(script-fu-util-image-resize-from-layer img logo-layer)
(gimp-image-add-layer img bg-layer 1)
......@@ -42,36 +43,41 @@
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE
0 0 1 1)
(gimp-context-pop)
)
)
(define (script-fu-alien-glow-logo-alpha img
logo-layer
size
glow-color)
(gimp-image-undo-group-start img)
(apply-alien-glow-logo-effect img logo-layer size glow-color)
(gimp-image-undo-group-end img)
(gimp-displays-flush)
(begin
(gimp-image-undo-group-start img)
(apply-alien-glow-logo-effect img logo-layer size glow-color)
(gimp-image-undo-group-end img)
(gimp-displays-flush)
)
)
(script-fu-register "script-fu-alien-glow-logo-alpha"
_"Alien _Glow..."
_"Add an eerie glow around the selected region (or alpha)"
"Spencer Kimball"
"Spencer Kimball"
"1997"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Glow size (pixels * 4)" '(150 2 1000 1 10 0 1)
SF-COLOR _"Glow color" '(63 252 0)
_"Alien _Glow..."
_"Add an eerie glow around the selected region (or alpha)"
"Spencer Kimball"
"Spencer Kimball"
"1997"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Glow size (pixels * 4)" '(150 2 1000 1 10 0 1)
SF-COLOR _"Glow color" '(63 252 0)
)
(script-fu-menu-register "script-fu-alien-glow-logo-alpha"
"<Image>/Filters/Alpha to Logo")
(define (script-fu-alien-glow-logo text
size
font
......@@ -81,7 +87,9 @@
(border (/ size 4))
(grow (/ size 30))
(feather (/ size 4))
(text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS font)))
(text-layer (car (gimp-text-fontname img
-1 0 0 text border TRUE
size PIXELS font)))
(width (car (gimp-drawable-width text-layer)))
(height (car (gimp-drawable-height text-layer)))
)
......@@ -94,16 +102,16 @@
)
(script-fu-register "script-fu-alien-glow-logo"
_"Alien _Glow..."
_"Create a logo with an alien glow around the text"
"Spencer Kimball"
"Spencer Kimball"
"1997"
""
SF-STRING _"Text" "ALIEN"
SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "Sans Bold"
SF-COLOR _"Glow color" '(63 252 0)
_"Alien _Glow..."
_"Create a logo with an alien glow around the text"
"Spencer Kimball"
"Spencer Kimball"
"1997"
""
SF-STRING _"Text" "ALIEN"
SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "Sans Bold"
SF-COLOR _"Glow color" '(63 252 0)
)
(script-fu-menu-register "script-fu-alien-glow-logo"
......
......@@ -46,6 +46,7 @@
)
(gimp-context-push)
(script-fu-util-image-resize-from-layer img logo-layer)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img bands-layer 1)
......@@ -104,6 +105,7 @@
)
)
(define (script-fu-alien-neon-logo-alpha img
logo-layer
fg-color
......@@ -112,12 +114,14 @@
gap-size
num-bands
do-fade)
(begin
(begin
(gimp-image-undo-group-start img)
(apply-alien-neon-logo-effect img logo-layer fg-color bg-color
band-size gap-size num-bands do-fade)
(gimp-image-undo-group-end img)
(gimp-displays-flush)))
(gimp-displays-flush)
)
)
(script-fu-register "script-fu-alien-neon-logo-alpha"
_"Alien _Neon..."
......@@ -126,19 +130,20 @@
"Raphael Quinet"
"1999-2000"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-COLOR _"Glow color" '(0 255 0)
SF-COLOR _"Background color" '(0 0 0)
SF-ADJUSTMENT _"Width of bands" '(2 1 60 1 10 0 0)
SF-ADJUSTMENT _"Width of gaps" '(2 1 60 1 10 0 0)
SF-ADJUSTMENT _"Number of bands" '(7 1 100 1 10 0 1)
SF-TOGGLE _"Fade away" TRUE
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-COLOR _"Glow color" "green"
SF-COLOR _"Background color" "black"
SF-ADJUSTMENT _"Width of bands" '(2 1 60 1 10 0 0)
SF-ADJUSTMENT _"Width of gaps" '(2 1 60 1 10 0 0)
SF-ADJUSTMENT _"Number of bands" '(7 1 100 1 10 0 1)
SF-TOGGLE _"Fade away" TRUE
)
(script-fu-menu-register "script-fu-alien-neon-logo-alpha"
"<Image>/Filters/Alpha to Logo")
(define (script-fu-alien-neon-logo text
size
fontname
......@@ -162,24 +167,22 @@
)
(script-fu-register "script-fu-alien-neon-logo"
_"Alien _Neon..."
_"Create a logo with psychedelic outlines around the text"
"Raphael Quinet (quinet@gamers.org)"
"Raphael Quinet"
"1999-2000"
""
SF-STRING _"Text" "The GIMP"
SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "Blippo"
SF-COLOR _"Glow color" '(0 255 0)
SF-COLOR _"Background color" '(0 0 0)
SF-ADJUSTMENT _"Width of bands" '(2 1 60 1 10 0 0)
SF-ADJUSTMENT _"Width of gaps" '(2 1 60 1 10 0 0)
SF-ADJUSTMENT _"Number of bands" '(7 1 100 1 10 0 1)
SF-TOGGLE _"Fade away" TRUE
_"Alien _Neon..."
_"Create a logo with psychedelic outlines around the text"
"Raphael Quinet (quinet@gamers.org)"
"Raphael Quinet"
"1999-2000"
""
SF-STRING _"Text" "GIMP"
SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "Blippo"
SF-COLOR _"Glow color" "green"
SF-COLOR _"Background color" "black"
SF-ADJUSTMENT _"Width of bands" '(2 1 60 1 10 0 0)
SF-ADJUSTMENT _"Width of gaps" '(2 1 60 1 10 0 0)
SF-ADJUSTMENT _"Number of bands" '(7 1 100 1 10 0 1)
SF-TOGGLE _"Fade away" TRUE
)
(script-fu-menu-register "script-fu-alien-neon-logo"
"<Toolbox>/Xtns/Logos")
; end
......@@ -13,6 +13,7 @@
)
(gimp-context-push)
(gimp-selection-none img)
(script-fu-util-image-resize-from-layer img logo-layer)
(gimp-image-add-layer img shadow-layer 1)
......@@ -36,10 +37,12 @@
0 0 width height)
(gimp-layer-translate shadow-layer 3 3)
(gimp-context-pop)
)
)
(define (script-fu-basic1-logo-alpha img
logo-layer
bg-color
......@@ -61,7 +64,7 @@
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-COLOR _"Background color" '(255 255 255)
SF-COLOR _"Background color" "white"
SF-COLOR _"Text color" '(6 6 206)
)
......@@ -92,10 +95,10 @@
"Spencer Kimball"
"1996"
""
SF-STRING _"Text" "The Gimp"
SF-STRING _"Text" "GIMP"
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT _"Font" "Dragonwick"
SF-COLOR _"Background color" '(255 255 255)
SF-COLOR _"Background color" "white"
SF-COLOR _"Text color" '(6 6 206)
)
......
......@@ -70,10 +70,12 @@
logo-layer
bg-color
text-color)
(gimp-image-undo-group-start img)
(apply-basic2-logo-effect img logo-layer bg-color text-color)
(gimp-image-undo-group-end img)
(gimp-displays-flush)
(begin
(gimp-image-undo-group-start img)
(apply-basic2-logo-effect img logo-layer bg-color text-color)
(gimp-image-undo-group-end img)
(gimp-displays-flush)
)
)
(script-fu-register "script-fu-basic2-logo-alpha"
......@@ -83,10 +85,10 @@
"Spencer Kimball"
"1996"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-COLOR _"Background color" '(255 255 255)
SF-COLOR _"Text color" '(206 6 50)
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-COLOR _"Background color" "white"
SF-COLOR _"Text color" '(206 6 50)
)
(define (script-fu-basic2-logo text
......@@ -116,10 +118,10 @@
"Spencer Kimball"
"1996"
""
SF-STRING _"Text" "TINY-FU"
SF-STRING _"Text" "SCRIPT-FU"
SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
SF-FONT _"Font" "Sans Bold"
SF-COLOR _"Background color" '(255 255 255)
SF-COLOR _"Background color" "white"
SF-COLOR _"Text color" '(206 6 50)
)
......
......@@ -140,21 +140,22 @@
)
(script-fu-register "script-fu-button00"
_"Simple _Beveled Button..."
_"Create a simple, beveled button graphic for webpages"
"Federico Mena Quintero"
"Federico Mena Quintero"
"June 1997"
""
SF-STRING _"Text" "Hello world!"
SF-ADJUSTMENT _"Font size (pixels)" '(16 2 100 1 1 0 1)