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)
{
......
# 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();
/*
......
......@@ -14,6 +14,10 @@
/* 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) {
......@@ -68,7 +72,6 @@ pointer foreign_re_match(scheme *sc, pointer args) {
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);
......@@ -87,6 +90,7 @@ pointer foreign_re_match(scheme *sc, pointer args) {
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"
......@@ -100,8 +104,9 @@ static char* utilities=";; return the substring of STRING matched in MATCH-VECTO
" (let ((n (if (pair? n) (car n) 0)))\n"
" (substring string (cdr (vector-ref match-vector n))\n"
" (string-length string))))\n";
#endif
EXPORT void init_re(scheme *sc) {
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,19 +24,21 @@
; If > 255 set to 255
; Return the new value
(define (deltacolour col delta)
(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)
(define (adjcolour col delta)
(mapcar (lambda (x) (deltacolour x delta)) col)
)
)
(define (gen_top_array xsize ysize owidth oheight width height)
(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 )
......@@ -49,9 +51,9 @@
(aset n_array 8 0 )
(aset n_array 9 0 )
n_array)
)
)
(define (gen_left_array xsize ysize owidth oheight width height)
(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 )
......@@ -64,9 +66,9 @@
(aset n_array 8 0 )
(aset n_array 9 0 )
n_array)
)
)
(define (gen_right_array xsize ysize owidth oheight width height)
(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 )
......@@ -79,9 +81,9 @@
(aset n_array 8 width )
(aset n_array 9 0 )
n_array)
)
)
(define (gen_bottom_array xsize ysize owidth oheight width height)
(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)
......@@ -94,9 +96,8 @@
(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)
(plug-in-gauss-rle RUN-NONINTERACTIVE img glow-layer 25 TRUE TRUE)
(gimp-image-undo-enable img)
......
......@@ -78,8 +78,8 @@
(gimp-edit-fill glow-layer FOREGROUND-FILL)
(gimp-selection-none img)
(if (>= radius 16)
(plug-in-gauss-rle 1 img glow-layer 25 TRUE TRUE)
(plug-in-gauss-rle 1 img glow-layer 12 TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img glow-layer 25 TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img glow-layer 12 TRUE TRUE)
)
(if (= flatten TRUE)
......
......@@ -123,7 +123,7 @@
(gimp-context-set-foreground glow-color)
(gimp-edit-fill glow-layer FOREGROUND-FILL)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img glow-layer glow-radius TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img glow-layer glow-radius TRUE TRUE)
(gimp-context-set-foreground text-color)
(let (
(textl (car (gimp-text-fontname
......
......@@ -117,7 +117,7 @@
FALSE 0 0 TRUE
0 0 (- img-width 1) (- img-height 1))
(plug-in-bump-map 1 img gradient bumpmap
(plug-in-bump-map RUN-NONINTERACTIVE img gradient bumpmap
135 45 bevel-width 0 0 0 0 TRUE pressed 0)
; Create text layer
......
......@@ -120,7 +120,7 @@
; Bumpmap
(plug-in-bump-map 1 img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0)
(plug-in-bump-map RUN-NONINTERACTIVE img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0)
; Darken arrow
......
......@@ -56,7 +56,7 @@
; Bumpmap
(plug-in-bump-map 1 img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0)
(plug-in-bump-map RUN-NONINTERACTIVE img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0)
; Background
......
......@@ -90,7 +90,7 @@
; Bumpmap
(plug-in-bump-map 1 img background bumpmap 135 45 2 0 0 0 0 TRUE pressed 0)
(plug-in-bump-map RUN-NONINTERACTIVE img background bumpmap 135 45 2 0 0 0 0 TRUE pressed 0)
; Color and position text
......
......@@ -78,7 +78,7 @@
; Bumpmap
(plug-in-bump-map 1 img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0)
(plug-in-bump-map RUN-NONINTERACTIVE img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0)
; Clean up
......
......@@ -60,7 +60,7 @@
; Bumpmap
(plug-in-bump-map 1 img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0)
(plug-in-bump-map RUN-NONINTERACTIVE img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0)
(gimp-image-set-active-layer img background)
(gimp-image-remove-layer img bumpmap)
......
......@@ -133,7 +133,7 @@
blur
blur)
(if (>= blur 1.0)
(plug-in-gauss-rle 1
(plug-in-gauss-rle RUN-NONINTERACTIVE
image
upper-copy
blur
......@@ -150,7 +150,7 @@
blur
blur)
(if (>= blur 1.0)
(plug-in-gauss-rle 1
(plug-in-gauss-rle RUN-NONINTERACTIVE
image
lower-copy
blur
......
......@@ -56,15 +56,15 @@
(gimp-layer-set-lock-alpha blur-layer FALSE)
(gimp-selection-layer-alpha logo-layer)
(gimp-edit-fill blur-layer BACKGROUND-FILL)
(plug-in-gauss-rle 1 img blur-layer 5.0 1 1)
(plug-in-gauss-rle RUN-NONINTERACTIVE img blur-layer 5.0 1 1)
(gimp-selection-none img)
(gimp-layer-set-lock-alpha logo-layer TRUE)
(gimp-selection-all img)
(plug-in-solid-noise 1 img logo-layer 0 0 23 1 spots-x spots-y)
(plug-in-solid-noise RUN-NONINTERACTIVE img logo-layer 0 0 23 1 spots-x spots-y)
(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
(plug-in-bump-map RUN-NONINTERACTIVE 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)
......
;
; burn-in-anim.scm V2.1 - script-fu for the GIMP 1.1 and higher
; burn-in-anim.scm V2.1 - script-fu for GIMP 1.1 and higher
;
; Copyright (C) 9/2000 Roland Berger
; roland@fuchur.leute.server.de
......@@ -190,7 +190,7 @@
(if (= optimize TRUE)
(begin
(gimp-image-convert-indexed img 1 WEB-PALETTE 250 FALSE TRUE "")
(set! img-out (car (plug-in-animationoptimize 0
(set! img-out (car (plug-in-animationoptimize RUN-NONINTERACTIVE
img
bl-layer)))
)
......@@ -208,7 +208,7 @@
)
;--- false form of "if-1"
(gimp-message _"Burn-In: Needs two layers in total!\nA foreground text layer with transparency and a background layer.")
(gimp-message _"The Burn-In script needs two layers in total. A foreground layer with transparency and a background layer.")
)
)
)
......
......@@ -45,15 +45,18 @@
(gimp-context-set-background inColor1)
(gimp-drawable-fill baseLayer BACKGROUND-FILL)
(plug-in-solid-noise TRUE theImage thickLayer 1 0 (rand 65536) 1 inGrain inGrain)
(plug-in-solid-noise TRUE theImage thinLayer 1 0 (rand 65536) 1 inGrain inGrain)
(plug-in-solid-noise RUN-NONINTERACTIVE
theImage thickLayer 1 0 (rand 65536) 1 inGrain inGrain)
(plug-in-solid-noise RUN-NONINTERACTIVE
theImage thinLayer 1 0 (rand 65536) 1 inGrain inGrain)
(gimp-threshold thickLayer 127 255)
(gimp-threshold thinLayer 145 255)
(set! theBlur (- 16 inGrain))
(gimp-context-set-background inColor2)
(gimp-by-color-select thickLayer '(0 0 0) 127 CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
(gimp-by-color-select thickLayer
'(0 0 0) 127 CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
(gimp-edit-clear thickLayer)
(gimp-selection-invert theImage)
(gimp-edit-fill thickLayer BACKGROUND-FILL)
......@@ -85,7 +88,7 @@
)
; Register the function with the GIMP:
; Register the function with GIMP:
(script-fu-register
"script-fu-camo-pattern"
......
......@@ -90,7 +90,7 @@
(gimp-edit-copy mask-drawable)
(gimp-image-add-channel img mask 0)
(plug-in-tile 1 img layer1 width height FALSE)
(plug-in-tile RUN-NONINTERACTIVE img layer1 width height FALSE)
(set! mask-fs (car (gimp-edit-paste mask FALSE)))
(gimp-floating-sel-anchor mask-fs)
(if (= carve-white FALSE)
......@@ -106,8 +106,8 @@
(set! mask-emboss (car (gimp-channel-copy mask-fat)))
(gimp-image-add-channel img mask-emboss 0)
(plug-in-gauss-rle 1 img mask-emboss feather TRUE TRUE)
(plug-in-emboss 1 img mask-emboss 315.0 45.0 7 TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img mask-emboss feather TRUE TRUE)
(plug-in-emboss RUN-NONINTERACTIVE img mask-emboss 315.0 45.0 7 TRUE)
(gimp-context-set-background '(180 180 180))
(gimp-selection-load mask-fat)
......@@ -139,7 +139,7 @@
(gimp-floating-sel-to-layer cast-shadow-layer)
(gimp-layer-set-mode cast-shadow-layer MULTIPLY-MODE)
(gimp-layer-set-opacity cast-shadow-layer 75)
(plug-in-gauss-rle 1 img cast-shadow-layer feather TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img cast-shadow-layer feather TRUE TRUE)
(gimp-layer-translate cast-shadow-layer offx offy)
(set! csl-mask (car (gimp-layer-create-mask cast-shadow-layer ADD-BLACK-MASK)))
......
......@@ -64,7 +64,7 @@
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill mask BACKGROUND-FILL)
(plug-in-tile 1 img layer1 width height FALSE)
(plug-in-tile RUN-NONINTERACTIVE img layer1 width height FALSE)
(gimp-edit-copy mask-layer)
(set! mask-fs (car (gimp-edit-paste mask FALSE)))
......@@ -85,8 +85,8 @@
(set! mask-emboss (car (gimp-channel-copy mask-fat)))
(gimp-image-add-channel img mask-emboss 0)
(plug-in-gauss-rle 1 img mask-emboss feather TRUE TRUE)
(plug-in-emboss 1 img mask-emboss 315.0 45.0 7 TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img mask-emboss feather TRUE TRUE)
(plug-in-emboss RUN-NONINTERACTIVE img mask-emboss 315.0 45.0 7 TRUE)
(gimp-context-set-background '(180 180 180))
(gimp-selection-load mask-fat)
......@@ -118,7 +118,7 @@
(gimp-floating-sel-to-layer cast-shadow-layer)
(gimp-layer-set-mode cast-shadow-layer MULTIPLY-MODE)
(gimp-layer-set-opacity cast-shadow-layer 75)
(plug-in-gauss-rle 1 img cast-shadow-layer feather TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img cast-shadow-layer feather TRUE TRUE)
(gimp-layer-translate cast-shadow-layer offx offy)
(set! csl-mask (car (gimp-layer-create-mask cast-shadow-layer ADD-BLACK-MASK)))
......
......@@ -42,11 +42,11 @@
; the actual effect
(gimp-layer-set-lock-alpha logo-layer FALSE)
(plug-in-gauss-rle 1 img logo-layer 2.0 1 1)
(plug-in-spread 1 img logo-layer 5.0 5.0)
(plug-in-ripple 1 img logo-layer 27 2 0 0 0 TRUE TRUE)
(plug-in-ripple 1 img logo-layer 27 2 1 0 0 TRUE TRUE)
(plug-in-sobel 1 img logo-layer TRUE TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img logo-layer 2.0 1 1)
(plug-in-spread RUN-NONINTERACTIVE img logo-layer 5.0 5.0)
(plug-in-ripple RUN-NONINTERACTIVE img logo-layer 27 2 0 0 0 TRUE TRUE)
(plug-in-ripple RUN-NONINTERACTIVE img logo-layer 27 2 1 0 0 TRUE TRUE)
(plug-in-sobel RUN-NONINTERACTIVE img logo-layer TRUE TRUE TRUE)
(gimp-levels logo-layer 0 0 120 3.5 0 255)
; work-around for sobel edge detect screw-up (why does this happen?)
......
......@@ -82,13 +82,13 @@
(gimp-selection-none img)
(gimp-layer-set-lock-alpha bump-layer FALSE)
(plug-in-spread 1 img bump-layer spread-amount spread-amount)
(plug-in-spread RUN-NONINTERACTIVE img bump-layer spread-amount spread-amount)
(gimp-selection-layer-alpha bump-layer)
(plug-in-gauss-rle 1 img bump-layer blur-amount TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img bump-layer blur-amount TRUE TRUE)
(gimp-selection-none img)
(plug-in-bump-map 1 img logo-layer bump-layer
(plug-in-bump-map RUN-NONINTERACTIVE img logo-layer bump-layer
135.00 25.0 60 0 0 0 0 TRUE invert 1)
(gimp-drawable-set-visible bump-layer FALSE)
......@@ -104,7 +104,7 @@
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img shadow-layer 5 TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img shadow-layer 5 TRUE TRUE)
(gimp-layer-translate shadow-layer 6 6))))