Commit c52e3386 authored by Kevin Cozens's avatar Kevin Cozens Committed by Kevin Cozens

The changes below (except for init.scm) were found during the work of

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

	The changes below (except for init.scm) were found during the work
	of updating the GIMP Script-Fu plug-in to become Tiny-Fu.

	* tiny-fu/tiny-fu-console.c
	* tiny-fu/tiny-fu-interface.c
	* tiny-fu/tiny-fu-scripts.c
	* tiny-fu/tiny-fu-server.c
	* tiny-fu/tiny-fu-text-console.c
	* tiny-fu/tiny-fu.c: Various minor bug fixes and changes to bring
	Tiny-Fu up-to-date with changes made in Script-Fu.

	* scripts/*.scm: Applied patch from Saul Goode with review and
	localisation of Script-Fu procedure blurbs (bug #351283). Also
	some formatting changes.

	* tinyscheme/init.scm: Updated based on version 1.38 of TinyScheme.
parent 1deeead8
2006-06-09 Kevin Cozens <kcozens@cvs.gnome.org>
2006-10-12 Kevin Cozens <kcozens@cvs.gnome.org>
The changes below (except for init.scm) were found during the work
of updating the GIMP Script-Fu plug-in to become Tiny-Fu.
* tiny-fu/tiny-fu-console.c
* tiny-fu/tiny-fu-interface.c
* tiny-fu/tiny-fu-scripts.c
* tiny-fu/tiny-fu-server.c
* tiny-fu/tiny-fu-text-console.c
* tiny-fu/tiny-fu.c: Various minor bug fixes and changes to bring
Tiny-Fu up-to-date with changes made in Script-Fu.
* scripts/*.scm: Applied patch from Saul Goode with review and
localisation of Script-Fu procedure blurbs (bug #351283). Also
some formatting changes.
* tinyscheme/init.scm: Updated based on version 1.38 of TinyScheme.
2006-10-09 Kevin Cozens <kcozens@cvs.gnome.org>
* scripts/script-fu-compat.init: Added 'butlast' and 'last'.
......
......@@ -93,14 +93,14 @@
)
(define (script-fu-3d-outline-logo-alpha img
logo-layer
text-pattern
outline-blur-radius
shadow-blur-radius
bump-map-blur-radius
noninteractive
s-offset-x
s-offset-y)
logo-layer
text-pattern
outline-blur-radius
shadow-blur-radius
bump-map-blur-radius
noninteractive
s-offset-x
s-offset-y)
(begin
(gimp-image-undo-group-start img)
(apply-3d-outline-logo-effect img logo-layer text-pattern
......@@ -114,7 +114,7 @@
(script-fu-register "script-fu-3d-outline-logo-alpha"
_"3D _Outline..."
"Creates outlined texts with drop shadow"
_"Outline the selected region (or alpha) with a pattern and add a drop shadow"
"Hrvoje Horvat (hhorvat@open.hr)"
"Hrvoje Horvat"
"07 April, 1998"
......@@ -134,19 +134,19 @@
"<Image>/Filters/Alpha to Logo")
(define (script-fu-3d-outline-logo text-pattern
text
size
font
outline-blur-radius
shadow-blur-radius
bump-map-blur-radius
noninteractive
s-offset-x
s-offset-y)
text
size
font
outline-blur-radius
shadow-blur-radius
bump-map-blur-radius
noninteractive
s-offset-x
s-offset-y)
(let* (
(img (car (gimp-image-new 256 256 RGB)))
(text-layer (car (gimp-text-fontname img -1 0 0 text 30 TRUE size PIXELS font)))
)
(img (car (gimp-image-new 256 256 RGB)))
(text-layer (car (gimp-text-fontname img -1 0 0 text 30 TRUE size PIXELS font)))
)
(gimp-image-undo-disable img)
(apply-3d-outline-logo-effect img text-layer text-pattern
outline-blur-radius shadow-blur-radius
......@@ -159,7 +159,7 @@
(script-fu-register "script-fu-3d-outline-logo"
_"3D _Outline..."
"Creates outlined texts with drop shadow"
_"Create a logo with outlined text and a drop shadow"
"Hrvoje Horvat (hhorvat@open.hr)"
"Hrvoje Horvat"
"07 April, 1998"
......
......@@ -154,13 +154,13 @@
(define (script-fu-3dtruchet size
thickness
backcolor
begincolor
endcolor
supersample
xtiles
ytiles)
thickness
backcolor
begincolor
endcolor
supersample
xtiles
ytiles)
(let* (
(width (* size xtiles))
(height (* size ytiles))
......@@ -216,7 +216,7 @@
(script-fu-register "script-fu-3dtruchet"
_"3_D Truchet..."
"3D Truchet pattern"
_"Create an image filled with a 3D Truchet pattern"
"Adrian Likins <aklikins@eos.ncsu.edu>"
"Adrian Likins"
"1997"
......
......@@ -49,10 +49,10 @@
;
(define (script-fu-add-bevel img
drawable
thickness
work-on-copy
keep-bump-layer)
drawable
thickness
work-on-copy
keep-bump-layer)
(let* (
(index 0)
......@@ -183,7 +183,7 @@
(script-fu-register "script-fu-add-bevel"
_"Add B_evel..."
"Add a bevel to an image"
_"Add a bevelled border to an image"
"Andrew Donkin <ard@cs.waikato.ac.nz>"
"Andrew Donkin"
"1997/11/06"
......
......@@ -173,16 +173,13 @@
(script-fu-register "script-fu-alien-glow-right-arrow"
_"_Arrow..."
"Create an X-file deal"
_"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-OPTION _"Orientation" '(_"Right" _"Left" _"Up" _"Down")
SF-COLOR _"Glow color" '(63 252 0)
SF-COLOR _"Background color" "black"
SF-TOGGLE _"Flatten image" TRUE
......
......@@ -80,7 +80,7 @@
(script-fu-register "script-fu-alien-glow-horizontal-ruler"
_"_Hrule..."
"Create an Hrule with the Alien Glow look"
_"Create an Hrule graphic with an eerie glow for web pages"
"Adrian Likins"
"Adrian Likins"
"1997"
......
......@@ -20,9 +20,9 @@
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
(define (script-fu-alien-glow-bullet radius
glow-color
bg-color
flatten)
glow-color
bg-color
flatten)
(define (center-ellipse img cx cy rx ry op aa feather frad)
(gimp-ellipse-select img (- cx rx) (- cy ry) (+ rx rx) (+ ry ry)
......@@ -92,7 +92,7 @@
(script-fu-register "script-fu-alien-glow-bullet"
_"_Bullet..."
"Create a Bullet with an Alien Glow theme for web pages"
_"Create a bullet graphic with an eerie glow for web pages"
"Adrian Likins"
"Adrian Likins"
"1997"
......
......@@ -24,14 +24,14 @@
(define (script-fu-alien-glow-button text
font
size
text-color
glow-color
bg-color
padding
glow-radius
flatten)
font
size
text-color
glow-color
bg-color
padding
glow-radius
flatten)
(define (text-width extents)
(car extents))
......@@ -146,7 +146,7 @@
(script-fu-register "script-fu-alien-glow-button"
_"B_utton..."
"Button with an eerie glow"
_"Create a button graphic with an eerie glow for web pages"
"Adrian Likins"
"Adrian Likins"
"July 1997"
......
......@@ -47,9 +47,9 @@
)
(define (script-fu-alien-glow-logo-alpha img
logo-layer
size
glow-color)
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)
......@@ -58,7 +58,7 @@
(script-fu-register "script-fu-alien-glow-logo-alpha"
_"Alien _Glow..."
"Create an X-Files-esque logo with the specified glow color"
_"Add an eerie glow around the selected region (or alpha)"
"Spencer Kimball"
"Spencer Kimball"
"1997"
......@@ -73,9 +73,9 @@
"<Image>/Filters/Alpha to Logo")
(define (script-fu-alien-glow-logo text
size
font
glow-color)
size
font
glow-color)
(let* (
(img (car (gimp-image-new 256 256 RGB)))
(border (/ size 4))
......@@ -95,7 +95,7 @@
(script-fu-register "script-fu-alien-glow-logo"
_"Alien _Glow..."
"Create an X-Files-esque logo with the specified glow color"
_"Create a logo with an alien glow around the text"
"Spencer Kimball"
"Spencer Kimball"
"1997"
......
......@@ -104,14 +104,14 @@
)
(define (script-fu-alien-neon-logo-alpha img
logo-layer
fg-color
bg-color
band-size
gap-size
num-bands
do-fade)
(begin
logo-layer
fg-color
bg-color
band-size
gap-size
num-bands
do-fade)
(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)
......@@ -120,7 +120,7 @@
(script-fu-register "script-fu-alien-neon-logo-alpha"
_"Alien _Neon..."
"Creates a psychedelic effect with outlines of the specified color around the letters"
_"Add psychedelic outlines to the selected region (or alpha)"
"Raphael Quinet (quinet@gamers.org)"
"Raphael Quinet"
"1999-2000"
......@@ -139,14 +139,14 @@
"<Image>/Filters/Alpha to Logo")
(define (script-fu-alien-neon-logo text
size
fontname
fg-color
bg-color
band-size
gap-size
num-bands
do-fade)
size
fontname
fg-color
bg-color
band-size
gap-size
num-bands
do-fade)
(let* (
(img (car (gimp-image-new 256 256 RGB)))
(fade-size (- (* (+ band-size gap-size) num-bands) 1))
......@@ -162,7 +162,7 @@
(script-fu-register "script-fu-alien-neon-logo"
_"Alien _Neon..."
"Creates a psychedelic effect with outlines of the specified color around the letters"
_"Create a logo with psychedelic outlines around the text"
"Raphael Quinet (quinet@gamers.org)"
"Raphael Quinet"
"1999-2000"
......
......@@ -41,9 +41,9 @@
)
(define (script-fu-basic1-logo-alpha img
logo-layer
bg-color
text-color)
logo-layer
bg-color
text-color)
(begin
(gimp-image-undo-group-start img)
(apply-basic1-logo-effect img logo-layer bg-color text-color)
......@@ -54,7 +54,7 @@
(script-fu-register "script-fu-basic1-logo-alpha"
_"_Basic I..."
"Creates a simple logo with a drop shadow"
_"Add a gradient effect, a drop shadow, and a background to the selected region (or alpha)"
"Spencer Kimball"
"Spencer Kimball"
"1996"
......@@ -69,10 +69,10 @@
"<Image>/Filters/Alpha to Logo")
(define (script-fu-basic1-logo text
size
font
bg-color
text-color)
size
font
bg-color
text-color)
(let* (
(img (car (gimp-image-new 256 256 RGB)))
(text-layer (car (gimp-text-fontname img -1 0 0 text 10 TRUE size PIXELS font)))
......@@ -87,7 +87,7 @@
(script-fu-register "script-fu-basic1-logo"
_"_Basic I..."
"Creates a simple logo with a drop shadow"
_"Create a plain text logo with a gradient effect, a drop shadow, and a background"
"Spencer Kimball"
"Spencer Kimball"
"1996"
......
......@@ -65,9 +65,9 @@
)
(define (script-fu-basic2-logo-alpha img
logo-layer
bg-color
text-color)
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)
......@@ -76,7 +76,7 @@
(script-fu-register "script-fu-basic2-logo-alpha"
_"B_asic II..."
"Creates a simple logo with a shadow and a highlight"
_"Add a shadow and a highlight to the selected region (or alpha)"
"Spencer Kimball"
"Spencer Kimball"
"1996"
......@@ -88,10 +88,10 @@
)
(define (script-fu-basic2-logo text
size
font
bg-color
text-color)
size
font
bg-color
text-color)
(let* (
(img (car (gimp-image-new 256 256 RGB)))
(text-layer (car (gimp-text-fontname img -1 0 0 text 10 TRUE size PIXELS font)))
......@@ -109,7 +109,7 @@
(script-fu-register "script-fu-basic2-logo"
_"B_asic II..."
"Creates a simple logo with a shadow and a highlight"
_"Create a simple logo with a shadow and a highlight"
"Spencer Kimball"
"Spencer Kimball"
"1996"
......
......@@ -50,19 +50,19 @@
x1 y1 x2 y2))
(define (script-fu-button00 text
size
font
ul-color
lr-color
text-color
padding
bevel-width
pressed)
size
font
ul-color
lr-color
text-color
padding
bevel-width
pressed)
(let* (
(text-extents (gimp-text-get-extents-fontname text
size
PIXELS
font))
size
PIXELS
font))
(ascent (text-ascent text-extents))
(descent (text-descent text-extents))
......@@ -139,7 +139,7 @@
(script-fu-register "script-fu-button00"
_"Simple _Beveled Button..."
"Simple beveled button"
_"Create a simple, beveled button graphic for webpages"
"Federico Mena Quintero"
"Federico Mena Quintero"
"June 1997"
......
......@@ -19,7 +19,6 @@
; 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)
......@@ -147,7 +146,7 @@
(script-fu-register "script-fu-beveled-pattern-arrow"
_"_Arrow..."
"Beveled pattern arrow"
_"Create a beveled pattern arrow for webpages"
"Federico Mena Quintero"
"Federico Mena Quintero"
"July 1997"
......
......@@ -19,7 +19,6 @@
; 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)))
......@@ -79,7 +78,7 @@
(script-fu-register "script-fu-beveled-pattern-bullet"
_"_Bullet..."
"Beveled pattern bullet"
_"Create a beveled pattern bullet for webpages"
"Federico Mena Quintero"
"Federico Mena Quintero"
"July 1997"
......
......@@ -116,7 +116,7 @@
(script-fu-register "script-fu-beveled-pattern-button"
_"B_utton..."
"Beveled pattern button"
_"Create a beveled pattern button for webpages"
"Federico Mena Quintero"
"Federico Mena Quintero"
"July 1997"
......
......@@ -98,7 +98,7 @@
(script-fu-register "script-fu-beveled-pattern-heading"
_"H_eading..."
"Beveled pattern heading"
_"Create a beveled pattern heading for webpages"
"Federico Mena Quintero"
"Federico Mena Quintero"
"July 1997"
......
......@@ -69,7 +69,7 @@
(script-fu-register "script-fu-beveled-pattern-hrule"
_"_Hrule..."
"Beveled pattern hrule"
_"Create a beveled pattern hrule for webpages"
"Federico Mena Quintero"
"Federico Mena Quintero"
"July 1997"
......
......@@ -38,10 +38,10 @@
(define (script-fu-blend-anim img
drawable
frames
max-blur
looped)
drawable
frames
max-blur
looped)
(let* (
(max-blur (max max-blur 0))
(frames (max frames 0))
......@@ -224,7 +224,7 @@
(script-fu-register "script-fu-blend-anim"
_"_Blend..."
"Blend two or more layers over a background, so that an animation can be saved"
_"Create intermediate layers to blend two or more layers over a background as an animation"
"Sven Neumann <sven@gimp.org>"
"Sven Neumann"
"1999/12/21"
......
......@@ -97,14 +97,14 @@
)
(define (script-fu-blended-logo-alpha img
logo-layer
b-size
bg-color
blend-mode
blend-fg
blend-bg
blend-gradient
blend-gradient-reverse)
logo-layer
b-size
bg-color
blend-mode
blend-fg
blend-bg
blend-gradient
blend-gradient-reverse)
(begin
(gimp-context-push)
(gimp-image-undo-group-start img)
......@@ -120,7 +120,7 @@
(script-fu-register "script-fu-blended-logo-alpha"
_"Blen_ded..."
"Creates logos with blended backgrounds, highlights, and shadows"
_"Add blended backgrounds, highlights, and shadows to the selected region (or alpha)"
"Spencer Kimball"
"Spencer Kimball"
"1996"
......@@ -173,7 +173,7 @@
(script-fu-register "script-fu-blended-logo"
_"Blen_ded..."
"Creates logos with blended backgrounds, highlights, and shadows"
_"Create a logo with blended backgrounds, highlights, and shadows"
"Spencer Kimball"
"Spencer Kimball"
"1996"
......
......@@ -80,7 +80,7 @@
(script-fu-register "script-fu-bovinated-logo-alpha"
_"Bo_vination..."
"Makes Cow-spotted logos"
_"Add 'cow spots' to the selected region (or alpha)"
"Brian McFee <keebler@wco.com>"
"Brian McFee"
"April 1998"
......@@ -93,11 +93,11 @@
)
(define (script-fu-bovinated-logo text
size
font
spots-x
spots-y
bg-color)
size
font
spots-x
spots-y
bg-color)
(let* ((img (car (gimp-image-new 256 256 RGB)))
(border (/ size 4))
(text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS font))))
......@@ -112,7 +112,7 @@
(script-fu-register "script-fu-bovinated-logo"
_"Bo_vination..."
"Makes Cow-spotted logos"
_"Create a logo with text in the style of 'cow spots'"
"Brian McFee <keebler@wco.com>"
"Brian McFee"
"April 1998"
......
......@@ -12,15 +12,15 @@
;
(define (script-fu-burn-in-anim org-img
org-layer
glow-color
fadeout
bl-width
corona-width
after-glow
show-glow
optimize
speed)
org-layer
glow-color
fadeout
bl-width
corona-width
after-glow
show-glow
optimize
speed)
(let* (
;--- main variable: "bl-x" runs from 0 to layer-width
......@@ -215,7 +215,7 @@
(script-fu-register "script-fu-burn-in-anim"
_"B_urn-In..."
"Burn-in like effect on a fg (text) layer and a bg layer; V2.1"
_"Create intermediate layers to produce an animated 'burn-in' transition between two layers"
"Roland Berger roland@fuchur.leute.server.de"
"Roland Berger"
"January 2001"
......
......@@ -88,7 +88,7 @@
(script-fu-register
"script-fu-camo-pattern"
_"_Camouflage..."
"Camouflage pattern"
_"Create an image filled with a camouflage pattern"
"Chris Gutteridge: cjg@ecs.soton.ac.uk"
"28th April 1998"
"Chris Gutteridge / ECS @ University of Southampton, England"
......
......@@ -157,7 +157,7 @@
(script-fu-register "script-fu-carved-logo"
_"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."
_"Create a logo with text raised above or carved in to the specified background image"
"Spencer Kimball"
"Spencer Kimball"
"1997"
......
......@@ -57,8 +57,8 @@
(define (script-fu-chalk-logo-alpha img
logo-layer
bg-color)
logo-layer
bg-color)
(begin
(gimp-image-undo-group-start img)
(apply-chalk-logo-effect img logo-layer bg-color)
......@@ -69,7 +69,7 @@
(script-fu-register "script-fu-chalk-logo-alpha"
_"_Chalk..."
"Chalk scribbled logos"
_"Create a chalk drawing effect for the selected region (or alpha)"
"Manish Singh <msingh@uclink4.berkeley.edu>"
"Manish Singh"
"October 1997"
......@@ -84,10 +84,10 @@
(define (script-fu-chalk-logo text
size
font
bg-color
chalk-color)
size
font