callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

plug-ins/script-fu/scripts/3d-outline.scm

Browse Source 
2008-04-12  Martin Nordholts  <martinn@svn.gnome.org>

	* plug-ins/script-fu/scripts/3d-outline.scm
	* plug-ins/script-fu/scripts/alien-glow-logo.scm
	* plug-ins/script-fu/scripts/alien-neon-logo.scm
	* plug-ins/script-fu/scripts/basic1-logo.scm
	* plug-ins/script-fu/scripts/basic2-logo.scm
	* plug-ins/script-fu/scripts/blended-logo.scm
	* plug-ins/script-fu/scripts/bovinated-logo.scm
	* plug-ins/script-fu/scripts/chalk.scm
	* plug-ins/script-fu/scripts/chip-away.scm
	* plug-ins/script-fu/scripts/chrome-logo.scm
	* plug-ins/script-fu/scripts/comic-logo.scm
	* plug-ins/script-fu/scripts/coolmetal-logo.scm
	* plug-ins/script-fu/scripts/frosty-logo.scm
	* plug-ins/script-fu/scripts/glossy.scm
	* plug-ins/script-fu/scripts/glowing-logo.scm
	* plug-ins/script-fu/scripts/gradient-bevel-logo.scm
	* plug-ins/script-fu/scripts/neon-logo.scm
	* plug-ins/script-fu/scripts/script-fu-util.scm
	* plug-ins/script-fu/scripts/starburst-logo.scm
	* plug-ins/script-fu/scripts/starscape-logo.scm
	* plug-ins/script-fu/scripts/t-o-p-logo.scm
	* plug-ins/script-fu/scripts/textured-logo.scm: Applied patch from
	Ulf-D. Ehlert that makes the Alpha to Logo-filters more gracefully
	handle images with many layers (bug #498480).

svn path=/trunk/; revision=25472
This commit is contained in:
Martin Nordholts
2008-04-12 10:45:42 +00:00
committed by Martin Nordholts
parent 626f2093e8
commit e946f60361
23 changed files with 74 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
plug-ins/script-fu/scripts/script-fu-util.scm
View File

@ -31,3 +31,17 @@
)
)
; Add the specified layers to the image.
; The layers will be added in the given order below the
; active layer.
;
(define (script-fu-util-image-add-layers image . layers)
(while (not (null? layers))
(let ((layer (car layers)))
(set! layers (cdr layers))
(gimp-image-add-layer image layer -1)
(gimp-image-lower-layer image layer)
)
)
)