1846f91305
Why: in v3 the signature for gimp-edit-foo PDB procedures changed to support multilayer selection. This finishes the task for ScriptFu scripts in the GIMP repo. This is not a complete list, since some calls were changed incidentally by prior commits. You can grep for "edit-copy" etc. in script-fu/scripts to find instances. This also makes incidental changes, to script calls to plug-in-tile, which now also has a changed signature to support multilayer. The changes are simple code transformations. The changes to gimp-edit-paste calls are more complex, a mixed bag of a few lines transformed to more lines. I did not try to understand the larger logic of the changed plugins. I did not test the changed plugins functionally. I used a harness to call each changed plugin with improvised parameters, only checking that the test plugin did not throw runtime errors, not checking that they produced correct images. As noted in the issue, this might be undone if the original signatures for gimp-edit-foo are restored as convenience functions.
91 lines
3.5 KiB
Scheme
91 lines
3.5 KiB
Scheme
;;; unsharp-mask.scm
|
|
;;; Time-stamp: <1998/11/17 13:18:39 narazaki@gimp.org>
|
|
;;; Author: Narazaki Shuji <narazaki@gimp.org>
|
|
;;; Version 0.8
|
|
|
|
(define (script-fu-unsharp-mask img drw mask-size mask-opacity)
|
|
(let* (
|
|
(drawable-width (car (gimp-drawable-get-width drw)))
|
|
(drawable-height (car (gimp-drawable-get-height drw)))
|
|
(new-image (car (gimp-image-new drawable-width drawable-height RGB)))
|
|
(original-layer (car (gimp-layer-new new-image
|
|
drawable-width drawable-height
|
|
RGB-IMAGE "Original"
|
|
100 LAYER-MODE-NORMAL)))
|
|
(original-layer-for-darker 0)
|
|
(original-layer-for-lighter 0)
|
|
(blurred-layer-for-darker 0)
|
|
(blurred-layer-for-lighter 0)
|
|
(darker-layer 0)
|
|
(lighter-layer 0)
|
|
)
|
|
|
|
(gimp-selection-all img)
|
|
(gimp-edit-copy 1 (vector drw))
|
|
|
|
(gimp-image-undo-disable new-image)
|
|
|
|
(gimp-image-insert-layer new-image original-layer 0 0)
|
|
|
|
(let* (
|
|
(pasted (gimp-edit-paste original-layer FALSE))
|
|
(num-pasted (car pasted))
|
|
(floating-sel (aref (cadr pasted) (- num-pasted 1)))
|
|
)
|
|
(gimp-floating-sel-anchor floating-sel)
|
|
)
|
|
|
|
(set! original-layer-for-darker (car (gimp-layer-copy original-layer TRUE)))
|
|
(set! original-layer-for-lighter (car (gimp-layer-copy original-layer TRUE)))
|
|
(set! blurred-layer-for-darker (car (gimp-layer-copy original-layer TRUE)))
|
|
(gimp-item-set-visible original-layer FALSE)
|
|
(gimp-display-new new-image)
|
|
|
|
;; make darker mask
|
|
(gimp-image-insert-layer new-image blurred-layer-for-darker 0 -1)
|
|
(plug-in-gauss-iir RUN-NONINTERACTIVE
|
|
new-image blurred-layer-for-darker mask-size TRUE TRUE)
|
|
(set! blurred-layer-for-lighter
|
|
(car (gimp-layer-copy blurred-layer-for-darker TRUE)))
|
|
(gimp-image-insert-layer new-image original-layer-for-darker 0 -1)
|
|
(gimp-layer-set-mode original-layer-for-darker LAYER-MODE-SUBTRACT)
|
|
(set! darker-layer
|
|
(car (gimp-image-merge-visible-layers new-image CLIP-TO-IMAGE)))
|
|
(gimp-item-set-name darker-layer "darker mask")
|
|
(gimp-item-set-visible darker-layer FALSE)
|
|
|
|
;; make lighter mask
|
|
(gimp-image-insert-layer new-image original-layer-for-lighter 0 -1)
|
|
(gimp-image-insert-layer new-image blurred-layer-for-lighter 0 -1)
|
|
(gimp-layer-set-mode blurred-layer-for-lighter LAYER-MODE-SUBTRACT)
|
|
(set! lighter-layer
|
|
(car (gimp-image-merge-visible-layers new-image CLIP-TO-IMAGE)))
|
|
(gimp-item-set-name lighter-layer "lighter mask")
|
|
|
|
;; combine them
|
|
(gimp-item-set-visible original-layer TRUE)
|
|
(gimp-layer-set-mode darker-layer LAYER-MODE-SUBTRACT)
|
|
(gimp-layer-set-opacity darker-layer mask-opacity)
|
|
(gimp-item-set-visible darker-layer TRUE)
|
|
(gimp-layer-set-mode lighter-layer LAYER-MODE-ADDITION)
|
|
(gimp-layer-set-opacity lighter-layer mask-opacity)
|
|
(gimp-item-set-visible lighter-layer TRUE)
|
|
|
|
(gimp-image-undo-enable new-image)
|
|
(gimp-displays-flush)
|
|
)
|
|
)
|
|
|
|
(script-fu-register "script-fu-unsharp-mask"
|
|
"Unsharp Mask..."
|
|
"Make a new image from the current layer by applying the unsharp mask method"
|
|
"Shuji Narazaki <narazaki@gimp.org>"
|
|
"Shuji Narazaki"
|
|
"1997,1998"
|
|
""
|
|
SF-IMAGE "Image" 0
|
|
SF-DRAWABLE "Drawable to apply" 0
|
|
SF-ADJUSTMENT _"Mask size" '(5 1 100 1 1 0 1)
|
|
SF-ADJUSTMENT _"Mask opacity" '(50 0 100 1 1 0 1)
|
|
)
|