mirror of
https://gitlab.gnome.org/GNOME/gimp.git
synced 2025-07-03 17:33:25 +00:00
ScriptFu: scripts: remove obsolete script unsharp-mask
Was replaced by a GEGL filter, long ago.
See 18 year old commit 31282ecc by Sven that says this exists for backward compatibility.
Which means we should have removed it befoe GIMP 3.0 major release.
Provides nothing more than the GEGL filter, so just delete it,
and NOT move to gimp-data-extras repo.
Fix #13824 (or at least makes it moot.)
The obsolete script was not used by any code in the repo,
except for test scripts, which were changed to not use it.
This commit is contained in:
lloyd konneker
parent
ea238e4e5a
commit
fbee943213
4 changed files with 23 additions and 130 deletions
|
|
@ -41,7 +41,6 @@ scripts = [
|
|||
'slide.scm',
|
||||
'spinning-globe.scm',
|
||||
'tileblur.scm',
|
||||
'unsharp-mask.scm',
|
||||
'waves-anim.scm',
|
||||
'weave.scm',
|
||||
'xach-effect.scm',
|
||||
|
|
|
|||
|
|
@ -1,105 +0,0 @@
|
|||
;;; 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)
|
||||
)
|
||||
|
|
@ -1,8 +1,7 @@
|
|||
; Test script calling plugin scripts non-interactive
|
||||
|
||||
; Some are scripts that must be non-interactive (no menu item.)
|
||||
; Most scripts can be tested using app menus.
|
||||
; These scripts can only be tested by another plugin or script.
|
||||
; Some scripts must be non-interactive (no menu item.)
|
||||
; Such scripts can only be tested by another plugin or script.
|
||||
|
||||
; This also tests and illustrates aspects
|
||||
; of calling plugin scripts from other scripts:
|
||||
|
|
@ -14,6 +13,10 @@
|
|||
; While calling a dialect v2 script interprocess
|
||||
; can be done from v3 binding state.
|
||||
|
||||
; This also illustrates that some scripts are not well-behaved
|
||||
; re non-interactive calls:
|
||||
; they open a display on the new image.
|
||||
|
||||
; FUTURE: call all plugin scripts in repo
|
||||
|
||||
|
||||
|
|
@ -26,10 +29,10 @@
|
|||
|
||||
(define testImage (testing:load-test-image-basic-v3))
|
||||
|
||||
; get-layers returns (length #(layers))
|
||||
; get-layers returns just a vector #(layers)
|
||||
; Calling another script requires a vector of layers (ever since multi-layer feature.)
|
||||
; cdr is always a list i.e. (#(layers)), so we need cadr here.
|
||||
(define testDrawables (cadr (gimp-image-get-layers testImage)))
|
||||
|
||||
(define testDrawables (gimp-image-get-layers testImage))
|
||||
(define testDrawable (vector-ref testDrawables 0))
|
||||
|
||||
;(newline)
|
||||
|
|
@ -38,15 +41,14 @@
|
|||
|
||||
|
||||
|
||||
(test! "script-fu-unsharp-mask")
|
||||
(test! "Calling a Scheme plugin script non-interactively")
|
||||
|
||||
; script-fu-unsharp-mask has been replaced by a GEGL filter.
|
||||
; If it is removed from the repo, please keep a test of some script here,
|
||||
; if only as an example of how the testing framework can test plugin scripts.
|
||||
; The called plugin is a Scheme script that is already loaded in the interpreter.
|
||||
|
||||
; The test is only: ensure it doesn't error or crash.
|
||||
; The test is only: ensure it doesn't error or crash,
|
||||
; and that it does not open a display on the new image
|
||||
|
||||
; unsharp-mask uses v2 binding
|
||||
; The called plugin uses v2 binding
|
||||
; If called without this, usually error is "must be pair"
|
||||
(script-fu-use-v2)
|
||||
|
||||
|
|
@ -56,17 +58,16 @@
|
|||
; only a call to a Scheme function, the run-func of the script.
|
||||
; Use the Scheme signature of the run-func:
|
||||
; no run_mode argument.
|
||||
; no "num-drawables" argument of the C signature.
|
||||
(script-fu-unsharp-mask
|
||||
; !!! Not pass run_mode
|
||||
testImage
|
||||
; !!! Not pass num_drawables, just a Scheme vector of int ID of drawables
|
||||
testDrawables
|
||||
128 ; mask-size, radius in pixels
|
||||
50 ; opacity percent
|
||||
)
|
||||
; Expect an image with extra layers: "lighter mask" and "darker mask"
|
||||
;
|
||||
; The script is not a filter, but a renderer,
|
||||
; and does not use passed image and drawables.
|
||||
|
||||
(script-fu-gradient-example
|
||||
; !!! Not pass run_mode
|
||||
40 40 ; dimensions of new image
|
||||
1 ; NO reverse gradient. Since v2 binding, this is a number, not #f
|
||||
)
|
||||
; Expect creates new image of current gradient in context
|
||||
|
||||
; back to v3 binding so we don't need to unwrap calls to gimp-foo in this scope.
|
||||
(script-fu-use-v3)
|
||||
|
|
@ -119,7 +120,6 @@
|
|||
(script-fu-test-sphere-v3
|
||||
RUN-NONINTERACTIVE ; run_mode see above interprocess
|
||||
testImage ; unused Image
|
||||
1 ; num-drawables int size of GimpObjectArray
|
||||
testDrawables ; unused GimpObjectArray, Scheme vector of int ID
|
||||
; radius is actually dimension of the square rendered image
|
||||
300 ; radius int
|
||||
|
|
|
|||
|
|
@ -47,7 +47,6 @@ plug-ins/script-fu/scripts/slide.scm
|
|||
plug-ins/script-fu/scripts/spinning-globe.scm
|
||||
plug-ins/script-fu/scripts/test-sphere-v3.scm
|
||||
plug-ins/script-fu/scripts/tileblur.scm
|
||||
plug-ins/script-fu/scripts/unsharp-mask.scm
|
||||
plug-ins/script-fu/scripts/waves-anim.scm
|
||||
plug-ins/script-fu/scripts/weave.scm
|
||||
plug-ins/script-fu/scripts/xach-effect.scm
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue