957d76fd14
Not sure what I had in mind with the class method copy() in libgimp GimpLayer. The core duplicate code already takes care of returning an object of the right type. Also the GimpTextLayer implementation was not a perfect copy (only text, font and font size were copied). Now it is because, again, core has all the duplication code necessary. Finally this makes this function visible to PDB, hence Script-Fu, again.
105 lines
4.2 KiB
Scheme
105 lines
4.2 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
|
|
|
|
; This script-fu-unsharp-mask is not in the menus.
|
|
; There is an equivalent GEGL filter at Filters>Enhance>Sharpen (Unsharp).
|
|
; This might be kept for compatibility and used by third party scripts.
|
|
|
|
; Seems not used by any script in the repo.
|
|
; FUTURE move to gimp-data-extras or to scripts/test
|
|
; and maintain it with low priority.
|
|
|
|
; unsharp-mask is a filter AND renderer, creating a new, visible, dirty image
|
|
; from the given image.
|
|
|
|
|
|
(define (script-fu-unsharp-mask img drws mask-size mask-opacity)
|
|
(let* (
|
|
(drw (vector-ref drws 0))
|
|
(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 "Original"
|
|
drawable-width drawable-height
|
|
RGB-IMAGE
|
|
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 (vector drw))
|
|
|
|
(gimp-image-undo-disable new-image)
|
|
|
|
(gimp-image-insert-layer new-image original-layer 0 0)
|
|
|
|
(let* (
|
|
(pasted (car (gimp-edit-paste original-layer FALSE)))
|
|
(num-pasted (vector-length pasted))
|
|
(floating-sel (vector-ref pasted (- num-pasted 1)))
|
|
)
|
|
(gimp-floating-sel-anchor floating-sel)
|
|
)
|
|
|
|
(set! original-layer-for-darker (car (gimp-layer-copy original-layer)))
|
|
(gimp-layer-add-alpha original-layer-for-darker)
|
|
(set! original-layer-for-lighter (car (gimp-layer-copy original-layer)))
|
|
(gimp-layer-add-alpha original-layer-for-lighter)
|
|
(set! blurred-layer-for-darker (car (gimp-layer-copy original-layer)))
|
|
(gimp-layer-add-alpha blurred-layer-for-darker)
|
|
(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)
|
|
(gimp-drawable-merge-new-filter blurred-layer-for-darker "gegl:gaussian-blur" 0 LAYER-MODE-REPLACE 1.0 "std-dev-x" (* 0.32 mask-size) "std-dev-y" (* 0.32 mask-size) "filter" "auto")
|
|
(set! blurred-layer-for-lighter
|
|
(car (gimp-layer-copy blurred-layer-for-darker)))
|
|
(gimp-layer-add-alpha blurred-layer-for-lighter)
|
|
(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-filter "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-ONE-OR-MORE-DRAWABLE
|
|
SF-ADJUSTMENT _"Mask size" '(5 1 100 1 1 0 1)
|
|
SF-ADJUSTMENT _"Mask opacity" '(50 0 100 1 1 0 1)
|
|
)
|