Commit 59e94b10 authored by Kevin Cozens's avatar Kevin Cozens Committed by Kevin Cozens

This update brings Tiny-Fu in sync with the Script-Fu plug-in in the 2.4.0

2007-10-29  Kevin Cozens  <kcozens@cvs.gnome.org>

	This update brings Tiny-Fu in sync with the Script-Fu plug-in
	in the 2.4.0 version of GIMP.

	* autogen.sh: Added support for automake 1.10.

	* configure.in: Updated glib/gtk2 needed to match GIMP requirements.

	* ftx/ftx.c:
	* re/split.c
	* re/re.c
	* re/main.c
	* scripts/*.scm
	* tiny-fu/*.[ch]
	* tinyscheme/CHANGES
	* tinyscheme/Manual.txt
	* tinyscheme/*.[ch]
	* tinyscheme/init.scm: Copied files from Script-Fu plug-in of GIMP.

	* tiny-fu/Makefile.am: Added -DSTANDALONE=0 needed by updated code.

	* po/Makefile.in.in: Copied file from Script-Fu plug-in of GIMP.

	* po/POTFILES.in: Updated list of files.

svn path=/trunk/; revision=374
parent a3fd8a73
2007-10-29 Kevin Cozens <kcozens@cvs.gnome.org>
This update brings Tiny-Fu in sync with the Script-Fu plug-in
in the 2.4.0 version of GIMP.
* autogen.sh: Added support for automake 1.10.
* configure.in: Updated glib/gtk2 needed to match GIMP requirements.
* ftx/ftx.c:
* re/split.c
* re/re.c
* re/main.c
* scripts/*.scm
* tiny-fu/*.[ch]
* tinyscheme/CHANGES
* tinyscheme/Manual.txt
* tinyscheme/*.[ch]
* tinyscheme/init.scm: Copied files from Script-Fu plug-in of GIMP.
* tiny-fu/Makefile.am: Added -DSTANDALONE=0 needed by updated code.
* po/Makefile.in.in: Copied file from Script-Fu plug-in of GIMP.
* po/POTFILES.in: Updated list of files.
2007-10-29 Kevin Cozens <kcozens@cvs.gnome.org>
* scripts/fade-outline.scm: removed this script. Fixes bug #466382.
......
......@@ -98,6 +98,9 @@ echo -n "checking for automake >= $AUTOMAKE_REQUIRED_VERSION ... "
if ($AUTOMAKE --version) < /dev/null > /dev/null 2>&1; then
AUTOMAKE=$AUTOMAKE
ACLOCAL=$ACLOCAL
elif (automake-1.10 --version) < /dev/null > /dev/null 2>&1; then
AUTOMAKE=automake-1.10
ACLOCAL=aclocal-1.10
elif (automake-1.9 --version) < /dev/null > /dev/null 2>&1; then
AUTOMAKE=automake-1.9
ACLOCAL=aclocal-1.9
......
......@@ -19,9 +19,9 @@ m4_define([tiny_fu_stable],
m4_if(m4_eval(plugin_minor_version % 2), [0], [yes], [no]))
dnl required versions of other packages
m4_define([glib_required_version], [2.10.2])
m4_define([gtk_required_version], [2.8.17])
m4_define([gimp_required_version], [2.3.10])
m4_define([glib_required_version], [2.12.3])
m4_define([gtk_required_version], [2.10.13])
m4_define([gimp_required_version], [2.4.0])
AC_INIT([plugin_name], [plugin_version])
......
......@@ -6,8 +6,12 @@
* LICENSE file.
*/
#include "config.h"
#include <sys/stat.h>
#if HAVE_UNISTD_H
#include <unistd.h>
#endif
#include <time.h>
#include <glib.h>
......@@ -36,6 +40,19 @@ file_type_constants[] = {
{ NULL, 0 }
};
pointer foreign_fileexists(scheme *sc, pointer args);
pointer foreign_filetype(scheme *sc, pointer args);
pointer foreign_filesize(scheme *sc, pointer args);
pointer foreign_filedelete(scheme *sc, pointer args);
pointer foreign_diropenstream(scheme *sc, pointer args);
pointer foreign_dirreadentry(scheme *sc, pointer args);
pointer foreign_dirrewind(scheme *sc, pointer args);
pointer foreign_dirclosestream(scheme *sc, pointer args);
pointer foreign_time(scheme *sc, pointer args);
pointer foreign_gettimeofday(scheme *sc, pointer args);
pointer foreign_usleep(scheme *sc, pointer args);
void init_ftx (scheme *sc);
pointer foreign_fileexists(scheme *sc, pointer args)
{
......@@ -234,7 +251,7 @@ pointer foreign_time(scheme *sc, pointer args)
if (args != sc->NIL)
return sc->F;
#if 1
#if 1
time(&now);
now_tm = localtime(&now);
#else
......
# Files from the Gimp distribution which have already been
# Files from the Tiny-Fu distribution which have already been
# marked to allow runtime translation of messages
tiny-fu/tiny-fu.c
[encoding: UTF-8]
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-interface.c
tiny-fu/ts-wrapper.c
ftx/ftx.c
re/debug.c
re/re.c
re/regcomp.c
re/regerror.c
re/regexec.c
re/regfree.c
re/split.c
tinyscheme/scheme.c
scripts/ts-helloworld.scm
scripts/contactsheet.scm
tiny-fu/tiny-fu.c
scripts/3d-outline.scm
scripts/3dTruchet.scm
scripts/add-bevel.scm
......@@ -46,8 +32,8 @@ scripts/blended-logo.scm
scripts/bovinated-logo.scm
scripts/burn-in-anim.scm
scripts/camo.scm
scripts/carved-logo.scm
scripts/carve-it.scm
scripts/carved-logo.scm
scripts/chalk.scm
scripts/chip-away.scm
scripts/chrome-it.scm
......@@ -57,12 +43,11 @@ scripts/clothify.scm
scripts/coffee.scm
scripts/comic-logo.scm
scripts/coolmetal-logo.scm
scripts/copy-visible.scm
scripts/crystal-logo.scm
scripts/difference-clouds.scm
scripts/distress-selection.scm
scripts/drop-shadow.scm
scripts/erase-rows.scm
scripts/fade-outline.scm
scripts/flatland.scm
scripts/font-map.scm
scripts/frosty-logo.scm
......@@ -87,16 +72,20 @@ scripts/mkbrush.scm
scripts/neon-logo.scm
scripts/news-text.scm
scripts/old-photo.scm
scripts/paste-as-brush.scm
scripts/paste-as-pattern.scm
scripts/perspective-shadow.scm
scripts/predator.scm
scripts/pupi-button.scm
scripts/rendermap.scm
scripts/reverse-layers.scm
scripts/ripply-anim.scm
scripts/round-corners.scm
scripts/selection-round.scm
scripts/script-fu-set-cmap.scm
scripts/select-to-brush.scm
scripts/select-to-image.scm
scripts/select-to-pattern.scm
scripts/selection-round.scm
scripts/slide.scm
scripts/sota-chrome-logo.scm
scripts/speed-text.scm
......@@ -108,12 +97,9 @@ scripts/starscape-logo.scm
scripts/swirltile.scm
scripts/swirly-pattern.scm
scripts/t-o-p-logo.scm
scripts/test-sphere.scm
scripts/text-circle.scm
scripts/textured-logo.scm
scripts/tileblur.scm
scripts/script-fu-util.scm
scripts/script-fu-set-cmap.scm
scripts/title-header.scm
scripts/truchet.scm
scripts/unsharp-mask.scm
......
......@@ -4,7 +4,7 @@
#include <assert.h>
#include <stdlib.h>
#include "regex.h"
#include "split.h"
#include "main.ih"
char *progname;
......@@ -17,8 +17,6 @@ int eopts = 0;
regoff_t startoff = 0;
regoff_t endoff = 0;
extern int split();
extern void regprint();
/*
......@@ -82,7 +80,7 @@ char *argv[];
eprint(err), len, sizeof(erbuf), erbuf);
exit(status);
}
regprint(&re, stdout);
regprint(&re, stdout);
if (optind >= argc) {
regfree(&re);
......
/* re.c */
/* Henry Spencer's implementation of Regular Expressions,
used for TinyScheme */
/* Refurbished by Stephen Gildea */
#include "regex.h"
#include "tinyscheme/scheme-private.h"
#if defined(_WIN32)
#define EXPORT __declspec( dllexport )
#else
#define EXPORT
#endif
/* Since not exported */
#define T_STRING 1
static void set_vector_elem(pointer vec, int ielem, pointer newel) {
int n=ielem/2;
if(ielem%2==0) {
vec[1+n]._object._cons._car=newel;
} else {
vec[1+n]._object._cons._cdr=newel;
}
}
pointer foreign_re_match(scheme *sc, pointer args) {
pointer retval=sc->F;
int retcode;
regex_t rt;
pointer first_arg, second_arg;
pointer third_arg=sc->NIL;
char *string;
char *pattern;
int num=0;
if(!((args != sc->NIL) && sc->vptr->is_string((first_arg = sc->vptr->pair_car(args)))
&& (args=sc->vptr->pair_cdr(args))
&& sc->vptr->is_pair(args) && sc->vptr->is_string((second_arg = sc->vptr->pair_car(args))))) {
return sc->F;
}
pattern = sc->vptr->string_value(first_arg);
string = sc->vptr->string_value(second_arg);
args=sc->vptr->pair_cdr(args);
if(args!=sc->NIL) {
if(!(sc->vptr->is_pair(args) && sc->vptr->is_vector((third_arg = sc->vptr->pair_car(args))))) {
return sc->F;
} else {
num=third_arg->_object._number.value.ivalue;
}
}
if(regcomp(&rt,pattern,REG_EXTENDED)!=0) {
return sc->F;
}
if(num==0) {
retcode=regexec(&rt,string,0,0,0);
} else {
regmatch_t *pmatch=malloc((num+1)*sizeof(regmatch_t));
if(pmatch!=0) {
retcode=regexec(&rt,string,num+1,pmatch,0);
if(retcode==0) {
int i;
for(i=0; i<num; i++) {
#undef cons
set_vector_elem(third_arg, i,
sc->vptr->cons(sc, sc->vptr->mk_integer(sc, pmatch[i].rm_so),
sc->vptr->mk_integer(sc, pmatch[i].rm_eo)));
}
}
free(pmatch);
} else {
sc->no_memory=1;
retcode=-1;
}
}
if(retcode==0) {
retval=sc->T;
}
regfree(&rt);
return(retval);
}
static char* utilities=";; return the substring of STRING matched in MATCH-VECTOR, \n"
";; the Nth subexpression match (default 0).\n"
"(define (re-match-nth string match-vector . n)\n"
" (let ((n (if (pair? n) (car n) 0)))\n"
" (substring string (car (vector-ref match-vector n))\n"
" (cdr (vector-ref match-vector n)))))\n"
"(define (re-before-nth string match-vector . n)\n"
" (let ((n (if (pair? n) (car n) 0)))\n"
" (substring string 0 (car (vector-ref match-vector n)))))\n"
"(define (re-after-nth string match-vector . n)\n"
" (let ((n (if (pair? n) (car n) 0)))\n"
" (substring string (cdr (vector-ref match-vector n))\n"
" (string-length string))))\n";
EXPORT void init_re(scheme *sc) {
sc->vptr->scheme_define(sc,sc->global_env,sc->vptr->mk_symbol(sc,"re-match"),sc->vptr->mk_foreign_func(sc, foreign_re_match));
/* sc->vptr->load_string(sc,utilities);*/
}
/* re.c */
/* Henry Spencer's implementation of Regular Expressions,
used for TinyScheme */
/* Refurbished by Stephen Gildea */
#include "regex.h"
#include "tinyscheme/scheme-private.h"
#if defined(_WIN32)
#define EXPORT __declspec( dllexport )
#else
#define EXPORT
#endif
/* Since not exported */
#define T_STRING 1
pointer foreign_re_match(scheme *sc, pointer args);
EXPORT void init_re(scheme *sc);
static void set_vector_elem(pointer vec, int ielem, pointer newel) {
int n=ielem/2;
if(ielem%2==0) {
vec[1+n]._object._cons._car=newel;
} else {
vec[1+n]._object._cons._cdr=newel;
}
}
pointer foreign_re_match(scheme *sc, pointer args) {
pointer retval=sc->F;
int retcode;
regex_t rt;
pointer first_arg, second_arg;
pointer third_arg=sc->NIL;
char *string;
char *pattern;
int num=0;
if(!((args != sc->NIL) && sc->vptr->is_string((first_arg = sc->vptr->pair_car(args)))
&& (args=sc->vptr->pair_cdr(args))
&& sc->vptr->is_pair(args) && sc->vptr->is_string((second_arg = sc->vptr->pair_car(args))))) {
return sc->F;
}
pattern = sc->vptr->string_value(first_arg);
string = sc->vptr->string_value(second_arg);
args=sc->vptr->pair_cdr(args);
if(args!=sc->NIL) {
if(!(sc->vptr->is_pair(args) && sc->vptr->is_vector((third_arg = sc->vptr->pair_car(args))))) {
return sc->F;
} else {
num=third_arg->_object._number.value.ivalue;
}
}
if(regcomp(&rt,pattern,REG_EXTENDED)!=0) {
return sc->F;
}
if(num==0) {
retcode=regexec(&rt,string,0,0,0);
} else {
regmatch_t *pmatch=malloc((num+1)*sizeof(regmatch_t));
if(pmatch!=0) {
retcode=regexec(&rt,string,num+1,pmatch,0);
if(retcode==0) {
int i;
for(i=0; i<num; i++) {
#undef cons
set_vector_elem(third_arg, i,
sc->vptr->cons(sc, sc->vptr->mk_integer(sc, pmatch[i].rm_so),
sc->vptr->mk_integer(sc, pmatch[i].rm_eo)));
}
}
free(pmatch);
} else {
sc->no_memory=1;
retcode=-1;
}
}
if(retcode==0) {
retval=sc->T;
}
regfree(&rt);
return(retval);
}
#if 0
static char* utilities=";; return the substring of STRING matched in MATCH-VECTOR, \n"
";; the Nth subexpression match (default 0).\n"
"(define (re-match-nth string match-vector . n)\n"
" (let ((n (if (pair? n) (car n) 0)))\n"
" (substring string (car (vector-ref match-vector n))\n"
" (cdr (vector-ref match-vector n)))))\n"
"(define (re-before-nth string match-vector . n)\n"
" (let ((n (if (pair? n) (car n) 0)))\n"
" (substring string 0 (car (vector-ref match-vector n)))))\n"
"(define (re-after-nth string match-vector . n)\n"
" (let ((n (if (pair? n) (car n) 0)))\n"
" (substring string (cdr (vector-ref match-vector n))\n"
" (string-length string))))\n";
#endif
void init_re(scheme *sc) {
sc->vptr->scheme_define(sc,sc->global_env,sc->vptr->mk_symbol(sc,"re-match"),sc->vptr->mk_foreign_func(sc, foreign_re_match));
/* sc->vptr->load_string(sc,utilities);*/
}
#include <stdio.h>
#include <string.h>
#include "split.h"
/*
- split - divide a string into fields, like awk split()
= int split(char *string, char *fields[], int nfields, char *sep);
......
......@@ -56,14 +56,14 @@
(gimp-context-set-foreground '(0 0 0))
(gimp-edit-fill logo-layer FOREGROUND-FILL)
(gimp-layer-set-lock-alpha logo-layer FALSE)
(plug-in-gauss-iir 1 img logo-layer outline-blur-radius TRUE TRUE)
(plug-in-gauss-iir RUN-NONINTERACTIVE img logo-layer outline-blur-radius TRUE TRUE)
(gimp-drawable-set-visible pattern FALSE)
(set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
(plug-in-edge 1 img layer2 2 1 0)
(plug-in-edge RUN-NONINTERACTIVE img layer2 2 1 0)
(set! layer3 (car (gimp-layer-copy layer2 TRUE)))
(gimp-image-add-layer img layer3 2)
(plug-in-gauss-iir 1 img layer2 bump-map-blur-radius TRUE TRUE)
(plug-in-gauss-iir RUN-NONINTERACTIVE img layer2 bump-map-blur-radius TRUE TRUE)
(gimp-selection-all img)
(gimp-context-set-pattern text-pattern)
......@@ -82,7 +82,7 @@
(gimp-layer-remove-mask pattern MASK-APPLY)
(gimp-invert layer3)
(plug-in-gauss-iir 1 img layer3 shadow-blur-radius TRUE TRUE)
(plug-in-gauss-iir RUN-NONINTERACTIVE img layer3 shadow-blur-radius TRUE TRUE)
(gimp-drawable-offset layer3 0 1 s-offset-x s-offset-y)
......
......@@ -107,7 +107,7 @@
(gimp-edit-blend temp-draw FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
supersample 3 .2 TRUE
supersample 3 0.2 TRUE
size size (* size 2) (/ size 2))
(center-ellipse temp-img size (* size 2) outer-radius outer-radius
......@@ -124,7 +124,7 @@
(gimp-edit-blend temp-draw2 FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE
supersample 3 .2 TRUE
supersample 3 0.2 TRUE
size size (* size 2) (* size 2))
(gimp-selection-none temp-img)
......
......@@ -37,7 +37,7 @@
; 1.01: now works on offset layers.
; 1.02: has crop-pixel-border option to trim one pixel off each edge of the
; bevelled image. Bumpmapping leaves edge pixels unchanged, which
; looks bad. Oddly, this is not apparant in the GIMP - you have to
; looks bad. Oddly, this is not apparant in GIMP - you have to
; save the image and load it into another viewer. First noticed in
; Nutscrape.
; Changed path (removed "filters/").
......@@ -70,7 +70,7 @@
(bump-layer (car (gimp-layer-new image
(+ width 2)
(+ height 2)
GRAY
RGB-IMAGE
"Bumpmap"
100
NORMAL-MODE)))
......@@ -99,7 +99,7 @@
(if (eq? 0 (car (gimp-selection-bounds image)))
(begin
(set! bevelling-whole-image TRUE) ; ...so we can restore things properly, and crop.
(if (car (gimp-drawable-has-alpha pic-layer))
(if (= 1 (car (gimp-drawable-has-alpha pic-layer)))
(gimp-selection-layer-alpha pic-layer)
(gimp-selection-all image)
)
......@@ -139,13 +139,13 @@
(gimp-selection-none image)
; To further lessen jaggies?
;(plug-in-gauss-rle 1 image bump-layer thickness TRUE TRUE)
;(plug-in-gauss-rle RUN-NONINTERACTIVE image bump-layer thickness TRUE TRUE)
;
; BUMPMAP INVOCATION:
;
(plug-in-bump-map 1 image pic-layer bump-layer 125 45 3 0 0 0 0 TRUE FALSE 1)
(plug-in-bump-map RUN-NONINTERACTIVE image pic-layer bump-layer 125 45 3 0 0 0 0 TRUE FALSE 1)
;------------------------------------------------------------
;
......@@ -188,7 +188,7 @@
"Andrew Donkin <ard@cs.waikato.ac.nz>"
"Andrew Donkin"
"1997/11/06"
"RGB* GRAY*"
"RGB*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Thickness" '(5 0 30 1 2 0 0)
......@@ -196,5 +196,4 @@
SF-TOGGLE _"Keep bump layer" FALSE
)
(script-fu-menu-register "script-fu-add-bevel"
"<Image>/Filters/Decor")
(script-fu-menu-register "script-fu-add-bevel" "<Image>/Filters/Decor")
......@@ -24,79 +24,80 @@
; If > 255 set to 255
; Return the new value
(define (deltacolour col delta)
(let* ((newcol (+ col delta)))
(if (< newcol 0) (set! newcol 0))
(if (> newcol 255) (set! newcol 255))
newcol
(define (script-fu-addborder aimg adraw xsize ysize colour dvalue)
(define (deltacolour col delta)
(let* ((newcol (+ col delta)))
(if (< newcol 0) (set! newcol 0))
(if (> newcol 255) (set! newcol 255))
newcol
)
)
)
(define (adjcolour col delta)
(mapcar (lambda (x) (deltacolour x delta)) col)
)
(define (adjcolour col delta)
(mapcar (lambda (x) (deltacolour x delta)) col)
)
(define (gen_top_array xsize ysize owidth oheight width height)
(let* ((n_array (cons-array 10 'double)))
(aset n_array 0 0 )
(aset n_array 1 0 )
(aset n_array 2 xsize)
(aset n_array 3 ysize)
(aset n_array 4 (+ xsize owidth))
(aset n_array 5 ysize)
(aset n_array 6 width)
(aset n_array 7 0 )
(aset n_array 8 0 )
(aset n_array 9 0 )
n_array)
)
(define (gen_top_array xsize ysize owidth oheight width height)
(let* ((n_array (cons-array 10 'double)))
(aset n_array 0 0 )
(aset n_array 1 0 )
(aset n_array 2 xsize)
(aset n_array 3 ysize)
(aset n_array 4 (+ xsize owidth))
(aset n_array 5 ysize)
(aset n_array 6 width)
(aset n_array 7 0 )
(aset n_array 8 0 )
(aset n_array 9 0 )
n_array)
)
(define (gen_left_array xsize ysize owidth oheight width height)
(let* ((n_array (cons-array 10 'double)))
(aset n_array 0 0 )
(aset n_array 1 0 )
(aset n_array 2 xsize)
(aset n_array 3 ysize)
(aset n_array 4 xsize)
(aset n_array 5 (+ ysize oheight))
(aset n_array 6 0 )
(aset n_array 7 height )
(aset n_array 8 0 )
(aset n_array 9 0 )
n_array)
)
(define (gen_left_array xsize ysize owidth oheight width height)
(let* ((n_array (cons-array 10 'double)))
(aset n_array 0 0 )
(aset n_array 1 0 )
(aset n_array 2 xsize)
(aset n_array 3 ysize)
(aset n_array 4 xsize)
(aset n_array 5 (+ ysize oheight))
(aset n_array 6 0 )
(aset n_array 7 height )
(aset n_array 8 0 )
(aset n_array 9 0 )
n_array)
)
(define (gen_right_array xsize ysize owidth oheight width height)
(let* ((n_array (cons-array 10 'double)))
(aset n_array 0 width )
(aset n_array 1 0 )
(aset n_array 2 (+ xsize owidth))
(aset n_array 3 ysize)
(aset n_array 4 (+ xsize owidth))
(aset n_array 5 (+ ysize oheight))
(aset n_array 6 width)
(aset n_array 7 height)
(aset n_array 8 width )
(aset n_array 9 0 )
n_array)
)
(define (gen_right_array xsize ysize owidth oheight width height)
(let* ((n_array (cons-array 10 'double)))
(aset n_array 0 width )
(aset n_array 1 0 )
(aset n_array 2 (+ xsize owidth))
(aset n_array 3 ysize)
(aset n_array 4 (+ xsize owidth))
(aset n_array 5 (+ ysize oheight))
(aset n_array 6 width)
(aset n_array 7 height)
(aset n_array 8 width )
(aset n_array 9 0 )
n_array)
)
(define (gen_bottom_array xsize ysize owidth oheight width height)
(let* ((n_array (cons-array 10 'double)))
(aset n_array 0 0 )
(aset n_array 1 height)
(aset n_array 2 xsize)
(aset n_array 3 (+ ysize oheight))
(aset n_array 4 (+ xsize owidth))
(aset n_array 5 (+ ysize oheight))
(aset n_array 6 width)
(aset n_array 7 height)
(aset n_array 8 0 )
(aset n_array 9 height)
n_array)
)
(define (gen_bottom_array xsize ysize owidth oheight width height)
(let* ((n_array (cons-array 10 'double)))
(aset n_array 0 0 )
(aset n_array 1 height)
(aset n_array 2 xsize)
(aset n_array 3 (+ ysize oheight))
(aset n_array 4 (+ xsize owidth))
(aset n_array 5 (+ ysize oheight))
(aset n_array 6 width)
(aset n_array 7 height)
(aset n_array 8 0 )
(aset n_array 9 height)
n_array)
)
(define (script-fu-addborder aimg adraw xsize ysize colour dvalue)
(let* ((img (car (gimp-drawable-get-image adraw)))
(owidth (car (gimp-image-width img)))
(oheight (car (gimp-image-height img)))
......
......@@ -156,7 +156,7 @@
(gimp-selection-none img)
(plug-in-gauss-rle 1 img glow-layer blur-radius TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img glow-layer blur-radius TRUE TRUE)
(gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
......
......@@ -68,7 +68,7 @@
(gimp-selection-grow img border)
(gimp-edit-fill glow-layer FOREGROUND-FILL)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img glow-layer 25 TRUE TRUE)