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

plug-ins/script-fu/scripts/add-bevel.scm 

2001-06-12  Michael Natterer  <mitch@gimp.org>

	* plug-ins/script-fu/scripts/add-bevel.scm
	* plug-ins/script-fu/scripts/blend-anim.scm
	* plug-ins/script-fu/scripts/fuzzyborder.scm
	* plug-ins/script-fu/scripts/image-structure.scm
	* plug-ins/script-fu/scripts/old_photo.scm
	* plug-ins/script-fu/scripts/ripply-anim.scm
	* plug-ins/script-fu/scripts/round-corners.scm
	* plug-ins/script-fu/scripts/slide.scm
	* plug-ins/script-fu/scripts/spinning_globe.scm
	* plug-ins/script-fu/scripts/swirltile.scm
	* plug-ins/script-fu/scripts/waves-anim.scm
	* plug-ins/script-fu/scripts/weave.scm: follow API cleanup:

	s/gimp-channel-ops-duplicate/gimp-image-duplicate/
	s/gimp-channel-ops-offset/gimp-drawable-offset/
This commit is contained in:
Michael Natterer 2001-06-12 19:23:07 +00:00 committed by Michael Natterer
parent cc02ef9410
commit 3a0141cb98
15 changed files with 32 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ChangeLog
View File

@ -1,3 +1,21 @@
2001-06-12 Michael Natterer <mitch@gimp.org>
* plug-ins/script-fu/scripts/add-bevel.scm
* plug-ins/script-fu/scripts/blend-anim.scm
* plug-ins/script-fu/scripts/fuzzyborder.scm
* plug-ins/script-fu/scripts/image-structure.scm
* plug-ins/script-fu/scripts/old_photo.scm
* plug-ins/script-fu/scripts/ripply-anim.scm
* plug-ins/script-fu/scripts/round-corners.scm
* plug-ins/script-fu/scripts/slide.scm
* plug-ins/script-fu/scripts/spinning_globe.scm
* plug-ins/script-fu/scripts/swirltile.scm
* plug-ins/script-fu/scripts/waves-anim.scm
* plug-ins/script-fu/scripts/weave.scm: follow API cleanup:
s/gimp-channel-ops-duplicate/gimp-image-duplicate/
s/gimp-channel-ops-offset/gimp-drawable-offset/
2001-06-08 Michael Natterer <mitch@gimp.org>
* configure.in: don't build devel-docs/pdb/Makefile.am

2
plug-ins/script-fu/scripts/add-bevel.scm
View File

@ -75,7 +75,7 @@
(greyness 0)
(thickness (abs thickness))
(type (car (gimp-drawable-type-with-alpha drawable)))
(image (if (= work-on-copy TRUE) (car (gimp-channel-ops-duplicate img)) img))
(image (if (= work-on-copy TRUE) (car (gimp-image-duplicate img)) img))
(pic-layer (car (gimp-image-active-drawable image)))
(width (car (gimp-drawable-width pic-layer)))
(height (car (gimp-drawable-height pic-layer)))

2
plug-ins/script-fu/scripts/blend-anim.scm
View File

@ -44,7 +44,7 @@
looped)
(let* ((max-blur (max max-blur 0))
(frames (max frames 0))
(image (car (gimp-channel-ops-duplicate img)))
(image (car (gimp-image-duplicate img)))
(width (car (gimp-image-width image)))
(height (car (gimp-image-height image)))
(layers (gimp-image-get-layers image))

2
plug-ins/script-fu/scripts/fuzzyborder.scm
View File

@ -37,7 +37,7 @@
(gimp-selection-all inImage)
(set! theImage (if (= inCopy TRUE)
(car (gimp-channel-ops-duplicate inImage))
(car (gimp-image-duplicate inImage))
inImage)
)
(if (> (car (gimp-drawable-type inLayer))

2
plug-ins/script-fu/scripts/image-structure.scm
View File

@ -50,7 +50,7 @@
padding-opacity with-background?
background-color)
(if (eq? new-image? TRUE)
(begin (set! img (car (gimp-channel-ops-duplicate img)))
(begin (set! img (car (gimp-image-duplicate img)))
(gimp-display-new img)))
(let* ((layers (gimp-image-get-layers img))
(num-of-layers (car layers))

2
plug-ins/script-fu/scripts/old-photo.scm
View File

@ -24,7 +24,7 @@
(define (script-fu-old-photo inImage inLayer inDefocus inBorder inSepia inMottle inCopy)
(gimp-selection-all inImage)
(set! theImage (if (= inCopy TRUE)
(car (gimp-channel-ops-duplicate inImage))
(car (gimp-image-duplicate inImage))
inImage)
)

2
plug-ins/script-fu/scripts/old_photo.scm
View File

@ -24,7 +24,7 @@
(define (script-fu-old-photo inImage inLayer inDefocus inBorder inSepia inMottle inCopy)
(gimp-selection-all inImage)
(set! theImage (if (= inCopy TRUE)
(car (gimp-channel-ops-duplicate inImage))
(car (gimp-image-duplicate inImage))
inImage)
)

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

@ -60,7 +60,7 @@
(gimp-image-undo-disable out-imagestack)
(while (> remaining-frames 0)
(set! dup-image (car (gimp-channel-ops-duplicate rippletiled-image)))
(set! dup-image (car (gimp-image-duplicate rippletiled-image)))
(gimp-image-undo-disable dup-image)
(gimp-crop dup-image width height xpos ypos)

2
plug-ins/script-fu/scripts/round-corners.scm
View File

@ -54,7 +54,7 @@
(height (car (gimp-image-height img)))
(type (car (gimp-drawable-type-with-alpha drawable)))
(image (cond ((= work-on-copy TRUE)
(car (gimp-channel-ops-duplicate img)))
(car (gimp-image-duplicate img)))
((= work-on-copy FALSE)
img)))
(pic-layer (car (gimp-image-active-drawable image))))

2
plug-ins/script-fu/scripts/slide.scm
View File

@ -56,7 +56,7 @@
work-on-copy)
(let* ((type (car (gimp-drawable-type-with-alpha drawable)))
(image (cond ((= work-on-copy TRUE)
(car (gimp-channel-ops-duplicate img)))
(car (gimp-image-duplicate img)))
((= work-on-copy FALSE)
img)))
(owidth (car (gimp-image-width image)))

2
plug-ins/script-fu/scripts/spinning-globe.scm
View File

@ -29,7 +29,7 @@
inIndex
inCopy)
(set! theImage (if (= inCopy TRUE)
(car (gimp-channel-ops-duplicate inImage))
(car (gimp-image-duplicate inImage))
inImage))
(set! theLayer (car (gimp-image-get-active-layer theImage)))
(gimp-layer-add-alpha theLayer)

2
plug-ins/script-fu/scripts/spinning_globe.scm
View File

@ -29,7 +29,7 @@
inIndex
inCopy)
(set! theImage (if (= inCopy TRUE)
(car (gimp-channel-ops-duplicate inImage))
(car (gimp-image-duplicate inImage))
inImage))
(set! theLayer (car (gimp-image-get-active-layer theImage)))
(gimp-layer-add-alpha theLayer)

2
plug-ins/script-fu/scripts/swirltile.scm
View File

@ -24,7 +24,7 @@
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
(gimp-channel-ops-offset layer-one TRUE 0 cx cy)
(gimp-drawable-offset layer-one TRUE 0 cx cy)
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)

2
plug-ins/script-fu/scripts/waves-anim.scm
View File

@ -41,7 +41,7 @@
(remaining-frames num-frames)
(phase 0)
(phaseshift (/ 360 num-frames))
(image (car (gimp-channel-ops-duplicate img)))
(image (car (gimp-image-duplicate img)))
(source-layer (car (gimp-image-get-active-layer image))))
(gimp-image-undo-disable image)

2
plug-ins/script-fu/scripts/weave.scm
View File

@ -297,7 +297,7 @@
(gimp-layer-set-mode v-layer MULTIPLY)
; Uncomment this if you want to keep the weaving mask image
; (gimp-display-new (car (gimp-channel-ops-duplicate w-img)))
; (gimp-display-new (car (gimp-image-duplicate w-img)))
(list w-img
(car (gimp-image-flatten w-img)))))