dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

applied a patch from Chris Purnell <cjp@lost.org.uk> that adds the 

2002-12-11  Sven Neumann  <sven@gimp.org>

	* plug-ins/script-fu/scripts/ripply-anim.scm: applied a patch from
	Chris Purnell <cjp@lost.org.uk> that adds the possibility to
	specify the edge behaviour (#83767).
This commit is contained in:
Sven Neumann 2002-12-11 13:56:25 +00:00 committed by Sven Neumann
parent b1ebd9cddf
commit 30e107e4bf
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -1,3 +1,9 @@
2002-12-11 Sven Neumann <sven@gimp.org>
* plug-ins/script-fu/scripts/ripply-anim.scm: applied a patch from
Chris Purnell <cjp@lost.org.uk> that adds the possibility to
specify the edge behaviour (#83767).
2002-12-10 Michael Natterer <mitch@gimp.org>
The unbelievable happened: a menu bar per display (optionally)

7
plug-ins/script-fu/scripts/ripply-anim.scm
View File

@ -16,7 +16,7 @@
(let ((floating-sel (car (gimp-edit-paste dest-drawable FALSE))))
(gimp-floating-sel-anchor floating-sel)))
(define (script-fu-ripply-anim img drawable displacement num-frames)
(define (script-fu-ripply-anim img drawable displacement num-frames edge-type)
(let* ((old-bg (car (gimp-palette-get-background)))
(width (car (gimp-drawable-width drawable)))
(height (car (gimp-drawable-height drawable)))
@ -77,7 +77,7 @@
(set! dup-layer (car (gimp-image-get-active-layer dup-image)))
(plug-in-displace 1 out-imagestack this-layer
displacement displacement
TRUE TRUE dup-layer dup-layer 2)
TRUE TRUE dup-layer dup-layer edge-type)
(gimp-image-undo-enable dup-image)
(gimp-image-delete dup-image)
@ -102,4 +102,5 @@
SF-IMAGE "Image to Animage" 0
SF-DRAWABLE "Drawable to Animate" 0
SF-ADJUSTMENT _"Rippling Strength" '(3 0 256 1 10 1 0)
SF-ADJUSTMENT _"Number of Frames" '(15 0 256 1 10 0 1))
SF-ADJUSTMENT _"Number of Frames" '(15 0 256 1 10 0 1)
SF-OPTION _"Edge Behaviour" '(_"Warp" _"Smear" _"Black"))