Commit 0d7c0cf9 authored by Kevin Cozens's avatar Kevin Cozens Committed by Kevin Cozens

Updated

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

	* TODO: Updated

	* scripts/*.scm: Updated based on changes found/made while reviewing
	the Script-Fu scripts in CVS GIMP.
parent e2ef9a4c
2006-10-15 Kevin Cozens <kcozens@cvs.gnome.org>
* TODO: Updated
* scripts/*.scm: Updated based on changes found/made while reviewing
the Script-Fu scripts in CVS GIMP.
2006-10-13 Kevin Cozens <kcozens@cvs.gnome.org>
* tinyscheme/scheme.c: Use more descriptive message when display a
......
......@@ -6,6 +6,7 @@
.scm as ones containing Scheme code.
- Is tiny-fu-util-image-resize-from-layer still needed or can the built-in
function 'Fit Canvas to Layers' be used instead?
- Get some examples of how to work with parasites in Scheme.
In tiny-fu-scripts.c
- Check number of items in list for SF_ADJUSTMENT type
......
......@@ -80,8 +80,9 @@
(temp-img (car (gimp-image-new tempSize tempSize RGB)))
(temp-draw (car (gimp-layer-new temp-img tempSize tempSize
RGB-IMAGE "Jabar" 100 NORMAL-MODE)))
(temp-draw2 (car (gimp-layer-new temp-img tempSize tempSize
RGB-IMAGE "Jabar" 100 NORMAL-MODE))))
(temp-draw2 (car (gimp-layer-new temp-img tempSize tempSize
RGB-IMAGE "Jabar" 100 NORMAL-MODE)))
)
(gimp-image-undo-disable temp-img)
(gimp-image-add-layer temp-img temp-draw 0)
......@@ -172,8 +173,8 @@
RGB-IMAGE "Johnson" 100 NORMAL-MODE)))
(tiledraw2 (car (gimp-layer-new tile size size
RGB-IMAGE "Cooper" 100 NORMAL-MODE)))
(Xindex)
(Yindex)
(Xindex 0)
(Yindex 0)
)
(gimp-context-push)
......
......@@ -55,7 +55,7 @@
keep-bump-layer)
(let* (
(index 0)
(index 1)
(bevelling-whole-image FALSE)
(greyness 0)
(thickness (abs thickness))
......@@ -188,8 +188,8 @@
"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
......
......@@ -107,16 +107,18 @@
"Border-Layer" 100 NORMAL-MODE))))
(gimp-context-push)
(gimp-image-undo-group-start img)
(gimp-drawable-fill layer TRANSPARENT-FILL)
(gimp-image-add-layer img layer 0)
(gimp-image-undo-group-start img)
(gimp-image-resize img
width
height
xsize
ysize)
(gimp-image-add-layer img layer 0)
(gimp-drawable-fill layer TRANSPARENT-FILL)
(gimp-context-set-background (adjcolour colour dvalue))
(gimp-free-select img
10
......@@ -157,8 +159,9 @@
(gimp-edit-fill layer BACKGROUND-FILL)
(gimp-selection-none img)
(gimp-image-undo-group-end img)
(gimp-context-pop)
(gimp-displays-flush)
(gimp-context-pop)
)
)
......
......@@ -160,14 +160,13 @@
(gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-context-set-background old-bg)
(gimp-context-set-foreground old-fg)
(if (= flatten TRUE)
(gimp-image-flatten img))
(gimp-image-flatten img)
)
(gimp-image-undo-enable img)
(gimp-context-pop)
(gimp-display-new img)
(gimp-context-pop)
)
)
......
......@@ -85,8 +85,9 @@
(gimp-image-flatten img)
)
(gimp-image-undo-enable img)
(gimp-context-pop)
(gimp-display-new img)
(gimp-context-pop)
)
)
......
......@@ -73,7 +73,7 @@
(layer-width img-width)
(img-width (+ img-width glow-radius))
(img-height (+ img-height glow-radius))
(img (car (gimp-image-new img-width img-height RGB)))
(img (car (gimp-image-new img-width img-height RGB)))
(bg-layer (car (gimp-layer-new img
img-width img-height RGBA-IMAGE
"Background" 100 NORMAL-MODE)))
......@@ -139,8 +139,9 @@
(gimp-image-flatten img)
)
(gimp-context-pop)
(gimp-display-new img)
(gimp-context-pop)
)
)
......
......@@ -98,8 +98,9 @@
; Clean up and exit.
(gimp-drawable-set-visible logo-layer 0)
(gimp-image-set-active-layer img bands-layer)
(gimp-context-pop)
(gimp-displays-flush)
(gimp-context-pop)
)
)
......
......@@ -31,6 +31,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)
......@@ -60,6 +61,7 @@
(gimp-layer-translate shadow-layer 3 3)
(gimp-layer-translate highlight-layer (- posx 2) (- posy 2))
(gimp-drawable-set-name highlight-layer "Highlight")
(gimp-context-pop)
)
)
......
......@@ -82,6 +82,7 @@
)
(gimp-context-push)
(gimp-image-undo-disable img)
; Create bumpmap layer
......@@ -132,8 +133,9 @@
(gimp-selection-none img)
(gimp-image-undo-enable img)
(gimp-context-pop)
(gimp-display-new img)
(gimp-context-pop)
)
)
......
......@@ -19,6 +19,7 @@
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
(define (script-fu-beveled-pattern-arrow size orientation pattern)
(define (make-point x y)
......@@ -85,6 +86,7 @@
)
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-add-layer img background -1)
(gimp-image-add-layer img bumpmap -1)
......@@ -138,8 +140,9 @@
(gimp-image-flatten img)
(gimp-image-undo-enable img)
(gimp-context-pop)
(gimp-display-new img)
(gimp-context-pop)
)
)
......
......@@ -19,6 +19,7 @@
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
(define (script-fu-beveled-pattern-bullet diameter pattern transparent)
(let* (
(img (car (gimp-image-new diameter diameter RGB)))
......@@ -27,6 +28,7 @@
)
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-add-layer img background -1)
(gimp-image-add-layer img bumpmap -1)
......@@ -72,20 +74,23 @@
(gimp-image-undo-enable img)
(gimp-display-new img)
(gimp-context-pop)
)
)
(script-fu-register "script-fu-beveled-pattern-bullet"
_"_Bullet..."
_"Create a beveled pattern bullet for webpages"
"Federico Mena Quintero"
"Federico Mena Quintero"
"July 1997"
""
SF-ADJUSTMENT _"Diameter" '(16 1 150 1 10 0 1)
SF-PATTERN _"Pattern" "Wood"
SF-TOGGLE _"Transparent background" FALSE)
_"_Bullet..."
_"Create a beveled pattern bullet for webpages"
"Federico Mena Quintero"
"Federico Mena Quintero"
"July 1997"
""
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/Web Page Themes/Beveled Pattern")
......@@ -62,6 +62,7 @@
)
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-add-layer img background 1)
(gimp-image-add-layer img bumpmap 1)
......@@ -108,25 +109,26 @@
(gimp-image-flatten img)
(gimp-image-undo-enable img)
(gimp-context-pop)
(gimp-display-new img)
(gimp-context-pop)
)
)
(script-fu-register "script-fu-beveled-pattern-button"
_"B_utton..."
_"Create a beveled pattern button for webpages"
"Federico Mena Quintero"
"Federico Mena Quintero"
"July 1997"
""
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
_"B_utton..."
_"Create a beveled pattern button for webpages"
"Federico Mena Quintero"
"Federico Mena Quintero"
"July 1997"
""
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
)
(script-fu-menu-register "script-fu-beveled-pattern-button"
......
......@@ -31,8 +31,8 @@
(let* (
(img (car (gimp-image-new 10 10 RGB)))
(textl
(car
(gimp-text-fontname img -1 0 0 text 0 TRUE text-size PIXELS font)))
(car
(gimp-text-fontname img -1 0 0 text 0 TRUE text-size PIXELS font)))
(width (car (gimp-drawable-width textl)))
(height (car (gimp-drawable-height textl)))
......@@ -42,6 +42,7 @@
)
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img background 1)
......@@ -52,7 +53,8 @@
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL)
(gimp-context-set-pattern pattern)
(gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill background
PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
; Create bumpmap layer
......@@ -90,24 +92,25 @@
(gimp-image-flatten img))
(gimp-image-undo-enable img)
(gimp-context-pop)
(gimp-display-new img)
(gimp-context-pop)
)
)
(script-fu-register "script-fu-beveled-pattern-heading"
_"H_eading..."
_"Create a beveled pattern heading for webpages"
"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-TOGGLE _"Transparent background" FALSE
_"H_eading..."
_"Create a beveled pattern heading for webpages"
"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-TOGGLE _"Transparent background" FALSE
)
(script-fu-menu-register "script-fu-beveled-pattern-heading"
......
......@@ -28,6 +28,7 @@
)
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-add-layer img background -1)
(gimp-image-add-layer img bumpmap -1)
......@@ -61,8 +62,9 @@
(gimp-image-remove-layer img bumpmap)
(gimp-image-undo-enable img)
(gimp-context-pop)
(gimp-display-new img)
(gimp-context-pop)
)
)
......@@ -74,8 +76,8 @@
"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"
)
......
......@@ -229,11 +229,11 @@
"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-TOGGLE _"Looped" TRUE
)
(script-fu-menu-register "script-fu-blend-anim"
......
......@@ -107,13 +107,15 @@
blend-gradient-reverse)
(begin
(gimp-context-push)
(gimp-image-undo-group-start img)
(apply-blended-logo-effect img logo-layer b-size bg-color
blend-mode blend-fg blend-bg
blend-gradient blend-gradient-reverse)
(gimp-image-undo-group-end img)
(gimp-context-pop)
(gimp-displays-flush)
(gimp-context-pop)
)
)
......@@ -158,6 +160,7 @@
(text-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font)))
)
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-context-set-foreground text-color)
(gimp-layer-set-lock-alpha text-layer TRUE)
......@@ -166,8 +169,9 @@
blend-mode blend-fg blend-bg
blend-gradient blend-gradient-reverse)
(gimp-image-undo-enable img)
(gimp-context-pop)
(gimp-display-new img)
(gimp-context-pop)
)
)
......
......@@ -29,6 +29,7 @@
(bg-layer (car (gimp-layer-new img width height RGBA-IMAGE "Background" 100 NORMAL-MODE)))
(blur-layer (car (gimp-layer-new img width height RGBA-IMAGE "Blur" 100 NORMAL-MODE))))
(gimp-context-push)
(script-fu-util-image-resize-from-layer img logo-layer)
(gimp-image-add-layer img bg-layer 1)
(gimp-image-add-layer img blur-layer 1)
......@@ -56,11 +57,13 @@
(gimp-brightness-contrast logo-layer 0 127)
(gimp-selection-none img)
(gimp-layer-set-lock-alpha logo-layer FALSE)
(plug-in-bump-map 1 img logo-layer blur-layer 135 50 10 0 0 0 30 TRUE FALSE 0)
(plug-in-bump-map 1 img logo-layer blur-layer
135 50 10 0 0 0 30 TRUE FALSE 0)
(gimp-layer-set-offsets blur-layer 5 5)
(gimp-invert blur-layer)
(gimp-layer-set-opacity blur-layer 50.0)
(gimp-image-set-active-layer img logo-layer)
(gimp-context-pop)
)
)
......@@ -85,10 +88,10 @@
"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)
)
......@@ -111,18 +114,18 @@
"<Image>/Filters/Alpha to Logo")
(script-fu-register "script-fu-bovinated-logo"
_"Bo_vination..."
_"Create a logo with text in the style of 'cow spots'"
"Brian McFee <keebler@wco.com>"
"Brian McFee"
"April 1998"
""
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)
_"Bo_vination..."
_"Create a logo with text in the style of 'cow spots'"
"Brian McFee <keebler@wco.com>"
"Brian McFee"
"April 1998"
""
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)
)
(script-fu-menu-register "script-fu-bovinated-logo"
......
......@@ -20,11 +20,11 @@
(define (script-fu-camo-pattern inSize inGrain inColor1 inColor2 inColor3 inSmooth inFlatten)
(let* (
(theWidth inSize)
(theHeight inSize)
(theImage (car(gimp-image-new theWidth theHeight RGB)))
(theImage (car (gimp-image-new theWidth theHeight RGB)))
(baseLayer (car (gimp-layer-new theImage theWidth theHeight RGBA-IMAGE "Background" 100 NORMAL-MODE)))
(thickLayer)
(thinLayer)
......@@ -32,6 +32,7 @@
)
(gimp-context-push)
(gimp-image-add-layer theImage baseLayer 0)
(set! thickLayer (car (gimp-layer-new theImage theWidth theHeight RGBA-IMAGE "Camo Thick Layer" 100 NORMAL-MODE)))
......@@ -76,8 +77,9 @@
(if (= inFlatten TRUE)
(gimp-image-flatten theImage)
)
(gimp-context-pop)
(gimp-display-new theImage)
(gimp-context-pop)
)
)
......
......@@ -77,6 +77,7 @@
)
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-add-layer img layer1 0)
......@@ -147,8 +148,8 @@
(gimp-context-set-background '(255 255 255))
(gimp-edit-fill csl-mask BACKGROUND-FILL)
(set! inset-layer (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-add-layer img inset-layer 1)
(set! inset-layer (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-add-layer img inset-layer 1)
(set! il-mask (car (gimp-layer-create-mask inset-layer ADD-BLACK-MASK)))
(gimp-layer-add-mask inset-layer il-mask)
......@@ -169,9 +170,10 @@
(gimp-drawable-set-name cast-shadow-layer "Cast Shadow")
(gimp-drawable-set-name inset-layer "Inset")
(gimp-display-new img)
(gimp-image-undo-enable img)
(gimp-context-pop)
(gimp-display-new img)
)
)
......@@ -182,9 +184,9 @@
"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
)
......
......@@ -51,6 +51,7 @@
)
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-image-set-filename img "")
......@@ -149,9 +150,10 @@
(gimp-drawable-set-name cast-shadow-layer "Cast Shadow")
(gimp-drawable-set-name inset-layer "Inset")
(gimp-display-new img)
(gimp-image-undo-enable img)
(gimp-context-pop)
(gimp-display-new img)
)
)
......
......@@ -31,6 +31,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)
......@@ -51,6 +52,7 @@
(gimp-rect-select img 0 0 width 1 CHANNEL-OP-ADD FALSE 0)
(gimp-edit-clear logo-layer)
(gimp-selection-none img)
(gimp-context-pop)
)
)
......@@ -68,15 +70,15 @@
)
(script-fu-register "script-fu-chalk-logo-alpha"
_"_Chalk..."
_"Create a chalk drawing effect for the selected region (or alpha)"
"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)
_"_Chalk..."
_"Create a chalk drawing effect for the selected region (or alpha)"
"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)
)
(script-fu-menu-register "script-fu-chalk-logo-alpha"
......@@ -95,29 +97,31 @@
)
(gimp-context-push)
(gimp-image-undo-disable img)
(gimp-context-set-foreground chalk-color)
(gimp-layer-set-lock-alpha text-layer TRUE)
(gimp-edit-fill text-layer FOREGROUND-FILL)
(apply-chalk-logo-effect img text-layer bg-color)
(gimp-image-undo-enable img)
(gimp-context-pop)
(gimp-display-new img)
(gimp-context-pop)
)
)
(script-fu-register "script-fu-chalk-logo"
_"_Chalk..."
_"Create a logo resembling chalk scribbled on a blackboard"
"Manish Singh <msingh@uclink4.berkeley.edu>"
"Manish Singh"
"October 1997"
""
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)
_"_Chalk..."
_"Create a logo resembling chalk scribbled on a blackboard"
"Manish Singh <msingh@uclink4.berkeley.edu>"
"Manish Singh"
"October 1997"
""
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)
)
(script-fu-menu-register "script-fu-chalk-logo"
......