mirror of https://github.com/GNOME/gimp.git
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:
parent
cc02ef9410
commit
3a0141cb98
18
ChangeLog
18
ChangeLog
|
@ -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
|
||||
|
|
|
@ -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)))
|
||||
|
|
|
@ -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))
|
||||
|
|
|
@ -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))
|
||||
|
|
|
@ -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))
|
||||
|
|
|
@ -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)
|
||||
)
|
||||
|
||||
|
|
|
@ -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)
|
||||
)
|
||||
|
||||
|
|
|
@ -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)
|
||||
|
||||
|
|
|
@ -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))))
|
||||
|
|
|
@ -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)))
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)))))
|
||||
|
|
Loading…
Reference in New Issue