Commit b8b5d783 authored by Marc Lehmann's avatar Marc Lehmann

removed the image argument from functions that no longer need it.

        * plug-ins/script-fu/scripts/*: removed the image
        argument from functions that no longer need it.
parent 3fa6583e
Sat Nov 14 20:15:46 CET 1998 Marc Lehmann <pcg@goof.com>
* plug-ins/script-fu/scripts/*: removed the image
argument from functions that no longer need it.
Sat Nov 14 20:02:31 GMT 1998 Austin Donnelly <austin@greenend.org.uk>
* app/rect_select.c: deal with zero-size selections correctly (ie,
......@@ -29,7 +34,7 @@ Fri Nov 13 16:48:10 CET 1998 Marc Lehmann <pcg@goof.com>
app/pencil.c app/paintbrush.c, app/perspective_tool.c,
app/posterize.c, rotate_tool.c app/scale_tool.c, app/shear_tool.c,
app/text_tool.c, app/threshold.c:
API-mega-break-it-all patch part one: removed the unnecessary
PDB_IMAGE argument from many functions.
......@@ -39,7 +44,7 @@ Fri Nov 13 16:48:10 CET 1998 Marc Lehmann <pcg@goof.com>
* app/parasite_cmds.c, libgimp/parasite.[ch],
* libgimp/gimp.c, libgimp/gimpprotocol.c
* tiff.c, gif.c, script-fu.c: removed all references to
parasite_error() and parasite_is_error(). Enable the
parasite_error() and parasite_is_error(). Enable the
passing of null parasites in the pdb. Return a copy of the
parasite instead of the orginal in all pdb functions.
......@@ -60,7 +65,7 @@ Wed Nov 11 02:27:46 CET 1998 Marc Lehmann <pcg@goof.com>
Tue Nov 10 23:44:07 MET 1998 Sven Neumann <sven@gimp.org>
* libgimp/gimpmatrix.[ch]
* app/transform_core.c: minimal speedup
* app/transform_core.c: minimal speedup
* app/scale_tool.c: Use transform_core_do() for scaling too.
This gives a consistent behaviour regarding the corrective transform
......@@ -72,8 +77,8 @@ Mon Nov 9 16:20:33 MET 1998 Sven Neumann <sven@gimp.org>
position
* plug-ins/script-fu/script-fu-scripts.c
* plug-ins/script-fu/scripts/test-sphere.scm: small cosmetic fixes
* plug-ins/script-fu/scripts/test-sphere.scm: small cosmetic fixes
Sun Nov 8 17:51:52 PST 1998 Manish Singh <yosh@gimp.org>
* Makefile.am
......@@ -92,20 +97,20 @@ Sun Nov 8 17:51:52 PST 1998 Manish Singh <yosh@gimp.org>
1998-11-08 Raja R Harinath <harinath@cs.umn.edu>
* configure.in (sendmail_path): Prefer /usr/sbin/sendmail to
/usr/lib/sendmail.
/usr/lib/sendmail.
1998-11-07 Jay Cox <jaycox@earthlink.net>
* libgimp/{gimp.h, gimpchannel.c, gimpdrawable.c, gimplayer.c}:
export the tattoo functions to the plug-ins
* libgimp/gserialize.c, libgimp/gserialize.h: new files for
* libgimp/gserialize.c, libgimp/gserialize.h: new files for
serializing structures
* main.c: test the gserialize functions
* gimpsignal.h: declare gimp_sigtype_* as extern
Thu Nov 5 16:42:21 PST 1998 Manish Singh <yosh@gimp.org>
* Makefile.am: added MAINTAINERS to EXTRA_DIST
......@@ -142,12 +147,12 @@ Thu Nov 5 16:42:21 PST 1998 Manish Singh <yosh@gimp.org>
Thu Nov 5 21:55:46 GMT 1998 Andy Thomas <alt@picnic.demon.co.uk>
* app/gradient.c
* app/gradient.c
* app/gradient_select.c
Changes due to gtk+ updates. Clist have been changed recently
in gtk which required changes to source code. These changes
have only been tested with the gtk version that introduced these
in gtk which required changes to source code. These changes
have only been tested with the gtk version that introduced these
changes. (so lets get all those updates going...)
Wed Nov 4 11:24:55 EST 1998 Adrian Likins <adrian@gimp.org>
......@@ -157,7 +162,7 @@ Wed Nov 4 11:24:55 EST 1998 Adrian Likins <adrian@gimp.org>
Wed Nov 4 22:23:18 GMT 1998 Andy Thomas <alt@picnic.demon.co.uk>
* app/gradient.c
* app/gradient.c
* app/Makefile.am
New files
......@@ -200,7 +205,7 @@ Sun Nov 1 21:20:04 1998 Austin Donnelly <austin@greenend.org.uk>
Sat Oct 31 21:47:14 GMT 1998 Andy Thomas <alt@picnic.demon.co.uk>
* app/gradient.c
Fixed for problems with renaming + fix for interactions between editor
and gradient selection popups.
......@@ -226,14 +231,14 @@ Sat Oct 31 14:57:40 GMT 1998 Andy Thomas <alt@picnic.demon.co.uk>
* libgimp/gimpgradientmenu.c
New gradient selector widget (smaller than the editor). This can now
be controlled via the PDB.
be controlled via the PDB.
New widget which gives easy way to do gradient selections. This
new widget is used by script-fu (see the test->sphere script).
gradient.c needs to be split up (source is almost already split
I will complete this RSN).
Sat Oct 31 01:37:23 CET 1998 Marc Lehmann <pcg@goof.com>
* configure.in: make perl use the GLIB_CFLAGS/LIBS vars properly.
......@@ -241,7 +246,7 @@ Sat Oct 31 01:37:23 CET 1998 Marc Lehmann <pcg@goof.com>
Tue Oct 6 11:07:56 CEST 1998 Marc Lehmann <pcg@goof.com>
* app/drawable_cmds.c: corrected documentation for gimp_drawable_fill.
Fri Oct 30 01:53:56 1998 Jay Cox (jaycox@earthlink.net)
* app/parasitelist.c
......@@ -313,17 +318,17 @@ Fri Oct 23 00:58:37 CEST 1998 Marc Lehmann <pcg@goof.com>
Thu Oct 22 20:28:18 CEST 1998 Marc Lehmann <pcg@goof.com>
New directory tree plug-ins/perl/*
The gimp-perl extension: many, many new files and directories (see
plug-ins/perl/MANIFEST for a list).
It uses a private ChangeLog in plug-ins/perl/Changes.
* configure.in, plug-ins/Makefile.am, INSTALL: changed to accomodate
the new extension.
* config.h.in: added HAVE_VSNPRINTF, removed duplicate HAVE_VPRINTF.
Thu Oct 22 04:35:43 PDT 1998 Manish Singh <yosh@gimp.org>
* plug-ins/checkerboard/checkerboard.c: fixed a buglet that
......@@ -352,7 +357,7 @@ Thu Oct 22 02:30:38 PDT 1998 Manish Singh <yosh@gimp.org>
Wed Oct 21 23:37:01 BST 1998 Andy Thomas <alt@picnic.demon.co.uk>
Fixed a problem in gradient.c where if a gradient was selected
Fixed a problem in gradient.c where if a gradient was selected
via the PDB and the editor has not been displayed on the screen
gimp would crash.
......@@ -368,12 +373,12 @@ Wed Oct 21 22:38:07 BST 1998 Andy Thomas <alt@picnic.demon.co.uk>
* plug-ins/script-fu/scripts/glossy.scm
* plug-ins/script-fu/scripts/test-sphere.scm
* plug-ins/script-fu/scripts/textured-logo.scm
These scripts use new script-fu type
* plug-ins/gfig/gfig.c
Redid yosh fix since I broke backwards compat. in
Redid yosh fix since I broke backwards compat. in
gimp_interactive_selection_brush().
Wed Oct 21 20:15:14 CEST 1998 Marc Lehmann <pcg@goof.com>
......@@ -389,7 +394,7 @@ Tue Oct 20 18:34:38 PDT 1998 Manish Singh <yosh@gimp.org>
Mr. Tootums knows!
Tue Oct 20 23:20:40 BST 1998 Andy Thomas <alt@picnic.demon.co.uk>
* app/brush_select.h
* app/brush_select.c
* app/internal_procs.c
......@@ -406,8 +411,8 @@ Tue Oct 20 23:20:40 BST 1998 Andy Thomas <alt@picnic.demon.co.uk>
New file libgimp/gimpbrushmneu.c.
Brush dialog can now be fully controlled via the PDB. New widget (not
true widget) type added to libgimpui (gimp_brush_select_widget()).
Brush dialog can now be fully controlled via the PDB. New widget (not
true widget) type added to libgimpui (gimp_brush_select_widget()).
Plugins should easily be able to control & select brushes. Script-fu
updated to use new widget. See the test script for example.
......@@ -446,9 +451,9 @@ Wed Oct 14 17:46:15 EDT 1998 Adrian Likins <adrian@gimp.org>
* app/*, po/de.po, de/POTFILES.in, libgimp/gimpintl.h:
Lots of ii8n stuff here and some additions to the de.po.
Applied gimp-egger-981005-1 ,gimp-egger-981006-1,
gimp-egger-981007-1, gimp-egger-981008-1,
gimp-egger-981007-1, gimp-egger-981008-1,
gimp-egger-981009-1.patch, gimp-egger-981010-1.patch.
Patches provided by Daniel Egger <Daniel.Egger@t-online.de>
Patches provided by Daniel Egger <Daniel.Egger@t-online.de>
* plug-in/guillotine/guillotine.c: added the coordinates
of the split images from the original image to the title.
......@@ -457,7 +462,7 @@ Wed Oct 14 17:46:15 EDT 1998 Adrian Likins <adrian@gimp.org>
* plug-in/script-fu/scripts/neon-logo.scm,
perspective-shadow.scm, predator.scm,rendermap.scm,
ripply-anim.scm, select_to_image.scm,swirltile.scm,
xach-effect.scm: updated scripts to use new script-fu stuff
xach-effect.scm: updated scripts to use new script-fu stuff
Wed Oct 14 22:58:04 BST 1998 Austin Donnelly <austin@greenend.org.uk>
......@@ -533,7 +538,7 @@ Tue Oct 13 00:27:21 BST 1998 Andy Thomas <alt@picnic.demon.co.uk>
Mon Oct 12 10:25:05 EEST 1998 Tuomas Kuosmanen <tigert@gimp.org>
* plug-ins/MapObject/mapobject_main.c: changed the
* plug-ins/MapObject/mapobject_main.c: changed the
location in the menus - appears now under Filters->Map
instead of Filters->Distort
......@@ -636,7 +641,7 @@ Mon Oct 6 21:51:00 CST 1998 Seth Burgess <sjburges@gimp.org>
type to sensible ones, gave second paramter a .type
Mon Oct 5 01:08:11 CST 1998 Seth Burgess <sjburges@gimp.org>
* app/layer_cmds.c: Changed "is_floating_sel" from PDB_CHANNEL
to PDB_INT32
......@@ -646,14 +651,14 @@ Mon Oct 5 01:08:11 CST 1998 Seth Burgess <sjburges@gimp.org>
* plug-ins/script-fu/scripts/gradient-bevel-logo.scm
* plug-ins/script-fu/scripts/pupi-button.scm:
removed extra paramters from some function calls that
didn't break script-fu but were wrong anyway.
didn't break script-fu but were wrong anyway.
Many thanks to Marc Lehman for reporting these. More to come.
Mon Oct 5 23:56:09 EEST 1998 Lauri Alanko <nether@gimp.org>
* po/fr.po: fixed a compile-halting typo
Mon Oct 5 16:18:08 EDT 1998 Matthew Wilson <msw@gimp.org>
* app/channels_dialog.c: fixed assignment in g_return_if_fail
......
......@@ -34,8 +34,8 @@
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img pattern 1)
(gimp-image-add-layer img bg-layer 2)
(gimp-edit-fill img bg-layer)
(gimp-edit-clear img pattern)
(gimp-edit-fill bg-layer)
(gimp-edit-clear pattern)
(gimp-layer-set-preserve-trans text-layer FALSE)
(plug-in-gauss-iir 1 img text-layer outline-blur-radius TRUE TRUE)
......@@ -48,22 +48,22 @@
(gimp-selection-all img)
(gimp-patterns-set-pattern text-pattern)
(gimp-bucket-fill img pattern PATTERN-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-bucket-fill pattern PATTERN-BUCKET-FILL NORMAL 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)
(set! pattern-mask (car (gimp-layer-create-mask pattern ALPHA-MASK)))
(gimp-image-add-layer-mask img pattern pattern-mask)
(gimp-selection-all img)
(gimp-edit-copy img layer3)
(set! floating_sel (car (gimp-edit-paste img pattern-mask 0)))
(gimp-edit-copy layer3)
(set! floating_sel (car (gimp-edit-paste pattern-mask 0)))
(gimp-floating-sel-anchor floating_sel)
(gimp-image-remove-layer-mask img pattern APPLY)
(gimp-invert img layer3)
(gimp-invert layer3)
(plug-in-gauss-iir 1 img layer3 shadow-blur-radius TRUE TRUE)
(gimp-channel-ops-offset img layer3 0 1 s-offset-x s-offset-y)
(gimp-channel-ops-offset layer3 0 1 s-offset-x s-offset-y)
(gimp-layer-set-visible layer2 FALSE)
(gimp-layer-set-visible pattern TRUE)
......@@ -72,7 +72,7 @@
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
(gimp-image-enable-undo img)
(gimp-display-new img)))
(gimp-display-new img)))
(script-fu-register "script-fu-3d-outline-logo"
"<Toolbox>/Xtns/Script-Fu/Logos/3D Outline"
......
......@@ -29,8 +29,8 @@
(gimp-ellipse-select img (- cx rx) (- cy ry) (+ rx rx ) (+ ry ry ) op aa feather frad))
(define (use-tile img drawable height width img2 drawable2 xoffset yoffset)
(gimp-edit-copy img2 drawable2)
(let ((floating-sel (car (gimp-edit-paste img drawable FALSE))))
(gimp-edit-copy drawable2)
(let ((floating-sel (car (gimp-edit-paste drawable FALSE))))
(gimp-layer-set-offsets floating-sel xoffset yoffset)
(gimp-floating-sel-anchor floating-sel)
)
......@@ -46,11 +46,11 @@
(gimp-selection-all img)
(gimp-palette-set-background backcolor)
(gimp-edit-fill img drawable1)
(gimp-edit-fill drawable1)
(let* (
(tempSize (* size 3))
(temp-img (car (gimp-image-new tempSize tempSize RGB)))
(temp-img (car (gimp-image-new tempSize tempSize RGB)))
(temp-draw (car (gimp-layer-new temp-img tempSize tempSize RGB_IMAGE "Jabar" 100 NORMAL)))
(temp-draw2 (car (gimp-layer-new temp-img tempSize tempSize RGB_IMAGE "Jabar" 100 NORMAL))))
......@@ -58,8 +58,8 @@
(gimp-image-add-layer temp-img temp-draw 0)
(gimp-image-add-layer temp-img temp-draw2 0)
(gimp-palette-set-background backcolor)
(gimp-edit-fill temp-img temp-draw)
(gimp-edit-fill temp-img temp-draw2)
(gimp-edit-fill temp-draw)
(gimp-edit-fill temp-draw2)
;weird aint it
(gimp-palette-set-background begincolor)
......@@ -70,7 +70,7 @@
(center-ellipse temp-img (* size 2) (* size 2) outer-radius outer-radius ADD TRUE FALSE 0)
(center-ellipse temp-img (* size 2) (* size 2) inner-radius inner-radius SUB TRUE FALSE 0)
(gimp-blend temp-img temp-draw FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 FALSE supersample 3 .2 size size (* size 2) (/ size 2) )
(gimp-blend temp-draw FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 FALSE supersample 3 .2 size size (* size 2) (/ size 2) )
(center-ellipse temp-img size (* size 2) outer-radius outer-radius REPLACE TRUE FALSE 0)
(center-ellipse temp-img size (* size 2) inner-radius inner-radius SUB TRUE FALSE 0)
......@@ -78,7 +78,7 @@
(center-ellipse temp-img (* size 2) size outer-radius outer-radius ADD TRUE FALSE 0)
(center-ellipse temp-img (* size 2) size inner-radius inner-radius SUB TRUE FALSE 0)
;(gimp-edit-fill temp-img temp-draw2)
(gimp-blend temp-img temp-draw2 FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 FALSE supersample 3 .2 size size (* size 2) (* size 2) )
(gimp-blend temp-draw2 FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 FALSE supersample 3 .2 size size (* size 2) (* size 2) )
(gimp-selection-none temp-img)
......@@ -87,12 +87,12 @@
(gimp-selection-all temp-img)
(gimp-edit-copy temp-img temp-draw)
(let ((floating-sel (car (gimp-edit-paste img drawable2 FALSE))))
(gimp-edit-copy temp-draw)
(let ((floating-sel (car (gimp-edit-paste drawable2 FALSE))))
(gimp-floating-sel-anchor floating-sel))
(gimp-edit-copy temp-img temp-draw2)
(let ((floating-sel (car (gimp-edit-paste img drawable1 FALSE))))
(gimp-edit-copy temp-draw2)
(let ((floating-sel (car (gimp-edit-paste drawable1 FALSE))))
(gimp-floating-sel-anchor floating-sel))
;(let ((drawble (car (gimp-flip img drawable1 0)))))
......@@ -106,7 +106,7 @@
(define (script-fu-3dtruchet size thickness backcolor begincolor endcolor supersample xtiles ytiles)
(let* (
(let* (
(width (* size xtiles))
(height (* size ytiles))
(img (car (gimp-image-new width height RGB)))
......@@ -115,7 +115,7 @@
(tiledraw1 (car (gimp-layer-new tile size size RGB "Johnson" 100 NORMAL)))
(tiledraw2 (car (gimp-layer-new tile size size RGB "Cooper" 100 NORMAL)))
(Xindex 0)
(Yindex 0)
(Yindex 0)
)
(gimp-image-disable-undo img)
......@@ -128,8 +128,8 @@
;just to look a little better
(gimp-selection-all img)
(gimp-palette-set-background backcolor)
(gimp-edit-fill img layer-one)
(gimp-palette-set-background backcolor)
(gimp-edit-fill layer-one)
(gimp-selection-none img)
(create-tile tile tiledraw1 tiledraw2 size thickness backcolor begincolor endcolor supersample)
......
......@@ -64,8 +64,8 @@
;
(define (script-fu-add-bevel img
drawable
(define (script-fu-add-bevel img
drawable
thickness
work-on-copy
keep-bump-layer)
......@@ -80,11 +80,11 @@
(width (car (gimp-drawable-width pic-layer)))
(height (car (gimp-drawable-height pic-layer)))
(old-bg (car (gimp-palette-get-background)))
(bump-layer (car (gimp-layer-new image
width
height
(bump-layer (car (gimp-layer-new image
width
height
GRAY
"Bumpmap"
"Bumpmap"
100
NORMAL)))
)
......@@ -106,7 +106,7 @@
(set! bevelling-whole-image TRUE) ; ...so we can restore things properly, and crop.
(gimp-image-resize image (+ width 2) (+ height 2) 1 1)
(if (not (eq? 0 (car (gimp-drawable-has-alpha pic-layer)))) ; Wish I knew Scheme
(gimp-selection-layer-alpha image pic-layer)
(gimp-selection-layer-alpha pic-layer)
(begin
(gimp-selection-all image)
)
......@@ -131,13 +131,13 @@
(set! greyness (/ (* index 255) thickness))
(gimp-palette-set-background (list greyness greyness greyness))
;(gimp-selection-feather image 1) ;Stop the slopey jaggies?
(gimp-bucket-fill image bump-layer BG-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-bucket-fill bump-layer BG-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-selection-shrink image 1)
(set! index (+ index 1))
)
; Now the white interior
(gimp-palette-set-background '(255 255 255))
(gimp-bucket-fill image bump-layer BG-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
(gimp-bucket-fill bump-layer BG-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
;------------------------------------------------------------
;
......@@ -177,7 +177,7 @@
(gimp-palette-set-background old-bg)
(if (= bevelling-whole-image TRUE)
(gimp-selection-none image) ; No selection to start with
(gimp-selection-load image select)
(gimp-selection-load select)
)
; If they started with a selection, they can Select->Invert then
; Edit->Clear for a cutout.
......@@ -213,4 +213,4 @@
SF-ADJUSTMENT "Thickness" "5"
SF-TOGGLE "Work on copy" TRUE
SF-TOGGLE "Keep bump layer" FALSE
)
)
......@@ -109,8 +109,8 @@
;Add this for debugging (verbose 4)
(gimp-image-disable-undo img)
(gimp-drawable-fill layer TRANS-IMAGE-FILL)
(gimp-image-resize img
width
(gimp-image-resize img
width
height
xsize
ysize)
......@@ -122,7 +122,7 @@
0
0
0.0)
(gimp-edit-fill img layer)
(gimp-edit-fill layer)
(gimp-palette-set-background (adjcolour colour (/ dvalue 2)))
(gimp-free-select img
10
......@@ -131,7 +131,7 @@
0
0
0.0)
(gimp-edit-fill img layer)
(gimp-edit-fill layer)
(gimp-palette-set-background (adjcolour colour (- 0 (/ dvalue 2))))
(gimp-free-select img
10
......@@ -141,7 +141,7 @@
0
0.0)
(gimp-edit-fill img layer)
(gimp-edit-fill layer)
(gimp-palette-set-background (adjcolour colour (- 0 dvalue)))
(gimp-free-select img
10
......@@ -151,7 +151,7 @@
0
0.0)
(gimp-edit-fill img layer)
(gimp-edit-fill layer)
(gimp-selection-none img)
(gimp-image-add-layer img layer 0)
(gimp-image-enable-undo img)
......
......@@ -90,19 +90,19 @@
(gimp-image-add-layer img glow-layer -1)
(gimp-image-add-layer img ruler-layer -1)
(gimp-edit-clear img glow-layer)
(gimp-edit-clear img ruler-layer)
(gimp-edit-clear glow-layer)
(gimp-edit-clear ruler-layer)
(gimp-free-select img 6 big-arrow REPLACE TRUE FALSE 0)
(gimp-palette-set-foreground '(103 103 103))
(gimp-palette-set-background '(0 0 0))
(gimp-blend img ruler-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 size size)
(gimp-blend ruler-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 size size)
(gimp-selection-grow img grow-amount)
(gimp-palette-set-background glow-color)
(gimp-edit-fill img glow-layer)
(gimp-edit-fill glow-layer)
(gimp-selection-none img)
......@@ -110,7 +110,7 @@
(plug-in-gauss-rle 1 img glow-layer blur-radius TRUE TRUE)
(gimp-palette-set-background bg-color)
(gimp-edit-fill img bg-layer)
(gimp-edit-fill bg-layer)
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
......
......@@ -36,18 +36,18 @@
; (gimp-layer-set-preserve-trans ruler-layer TRUE)
(gimp-palette-set-background bg-color)
(gimp-edit-fill img bg-layer)
(gimp-edit-clear img glow-layer)
(gimp-edit-clear img ruler-layer)
(gimp-edit-fill bg-layer)
(gimp-edit-clear glow-layer)
(gimp-edit-clear ruler-layer)
(gimp-rect-select img (/ height 2) (/ height 2) length height REPLACE FALSE 0)
(gimp-palette-set-foreground '(79 79 79))
(gimp-palette-set-background '(0 0 0))
(gimp-blend img ruler-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 height height)
(gimp-blend ruler-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 height height)
(gimp-palette-set-background glow-color)
(gimp-selection-grow img border)
(gimp-edit-fill img glow-layer)
(gimp-edit-fill glow-layer)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img glow-layer 25 TRUE TRUE)
......
......@@ -43,21 +43,21 @@
; (gimp-layer-set-preserve-trans ruler-layer TRUE)
(gimp-palette-set-background bg-color)
(gimp-edit-fill img bg-layer)
(gimp-edit-clear img glow-layer)
(gimp-edit-clear img bullet-layer)
(gimp-edit-fill bg-layer)
(gimp-edit-clear glow-layer)
(gimp-edit-clear bullet-layer)
(center-ellipse img radius radius half-radius half-radius REPLACE TRUE FALSE 0)
; (gimp-rect-select img (/ height 2) (/ height 2) length height REPLACE FALSE 0)
(gimp-palette-set-foreground '(90 90 90))
(gimp-palette-set-background '(0 0 0))
(gimp-blend img bullet-layer FG-BG-RGB NORMAL RADIAL 100 0 REPEAT-NONE FALSE 0 0 blend-start blend-start (+ half-radius radius)(+ half-radius radius ))
(gimp-blend bullet-layer FG-BG-RGB NORMAL RADIAL 100 0 REPEAT-NONE FALSE 0 0 blend-start blend-start (+ half-radius radius)(+ half-radius radius ))
(gimp-palette-set-background glow-color)
(gimp-palette-set-background glow-color)
(gimp-selection-grow img border)
(gimp-selection-feather img border)
(gimp-edit-fill img glow-layer)
(gimp-edit-fill glow-layer)
(gimp-selection-none img)
(if (>= radius 16)
(plug-in-gauss-rle 1 img glow-layer 25 TRUE TRUE)
......
......@@ -36,8 +36,7 @@
(cadr (cddr extents)))
(define (blend-bumpmap img drawable x1 y1 x2 y2)
(gimp-blend img
drawable
(gimp-blend drawable
FG-BG-RGB
DARKEN-ONLY
LINEAR
......@@ -109,7 +108,7 @@
(gimp-image-add-layer img bg-layer -1)
(gimp-palette-set-foreground '(0 0 0))
(gimp-palette-set-background bg-color)
(gimp-edit-fill img bg-layer)
(gimp-edit-fill bg-layer)
(gimp-image-add-layer img glow-layer -1)
; Create text layer
......@@ -120,11 +119,11 @@
(gimp-rect-select img 0 0 img-width img-height REPLACE FALSE 0)
(gimp-palette-set-foreground '(100 100 100))
(gimp-palette-set-background '(0 0 0))
(gimp-blend img button-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 img-height img-width)
(gimp-edit-clear img glow-layer)
(gimp-blend button-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 img-height img-width)
(gimp-edit-clear glow-layer)
(gimp-rect-select img (/ glow-radius 4) (/ glow-radius 4) (- img-width (/ glow-radius 2)) (- img-height (/ glow-radius 2)) REPLACE FALSE 0 )
(gimp-palette-set-background glow-color)
(gimp-edit-fill img glow-layer)
(gimp-edit-fill glow-layer)
(gimp-selection-none img)
(plug-in-gauss-rle 1 img glow-layer glow-radius TRUE TRUE)
(gimp-palette-set-foreground text-color)
......
......@@ -19,17 +19,17 @@
(gimp-image-add-layer img glow-layer 1)
(gimp-layer-set-preserve-trans text-layer TRUE)
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill img bg-layer)
(gimp-edit-clear img glow-layer)
(gimp-selection-layer-alpha img text-layer)
(gimp-edit-fill bg-layer)
(gimp-edit-clear glow-layer)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-grow img grow)
(gimp-selection-feather img feather)
(gimp-palette-set-background glow-color)
(gimp-edit-fill img glow-layer)
(gimp-edit-fill glow-layer)
(gimp-selection-none img)
(gimp-palette-set-background '(0 0 0))
(gimp-palette-set-foreground '(79 79 79))
(gimp-blend img text-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 1 1)
(gimp-blend text-layer FG-BG-RGB NORMAL SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE 0 0 0 0 1 1)
(gimp-layer-set-name text-layer text)
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)
......
......@@ -24,10 +24,10 @@
; Define the function:
(define (script-fu-asc-2-img inFile
inFont
inFontSize
inTextColor
(define (script-fu-asc-2-img inFile
inFont
inFontSize
inTextColor
inTrans
inBackColor
inBufferAmount
......@@ -38,43 +38,43 @@
(set! theLayer (car (gimp-layer-new theImage
10
10
(set! theLayer (car (gimp-layer-new theImage
10
10
RGBA_IMAGE
"layer 1"
100
100
NORMAL) ) )
(gimp-palette-set-background inBackColor)
(gimp-layer-set-name theLayer "Background")
(gimp-image-add-layer theImage theLayer 0)
(script-fu-asc-2-img-layer theImage theLayer inFile inFont inFontSize
(script-fu-asc-2-img-layer theImage theLayer inFile inFont inFontSize
inTextColor inBufferAmount inFlatten)
(set! theBuffer (* inFontSize (/ inBufferAmount 100) ) )
(set! theImageWidth (+ theImageWidth theBuffer theBuffer ))
(set! theImageHeight (+ theImageHeight theBuffer theBuffer ))
(gimp-image-resize theImage
theImageWidth