fb84b9eba7
Since we renamed a bunch of functions for consistency (the like of gimp_image_width() to gimp_image_get_width() and others), most Scheme scripts ended up broken. This is a simple bash fix with `sed` to at least take care of these simple renaming cases. Many scripts are still broken for other reasons after our API evolution (to be continued).
85 lines
3.3 KiB
Scheme
85 lines
3.3 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 drw)
|
|
|
|
(gimp-image-undo-disable new-image)
|
|
|
|
(gimp-image-insert-layer new-image original-layer 0 0)
|
|
(gimp-floating-sel-anchor
|
|
(car (gimp-edit-paste original-layer FALSE)))
|
|
|
|
(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)
|
|
)
|