El problema es que no me sale en el menú.
El archivo anterior lo he renombrado así que no creo que sea por su culpa.
Adjunto el código del script smart sharpening, fíjate en la última sección es la que registra el sript en el menú de Gimp y eso no lo veo en el código que has colgado.
;
; Smart Sharpening, Redux, V2.4
;
; Martin Egger (
martin.egger@gmx.net)
; (C) 2007, Bern, Switzerland
;
; You can find more about Smart Sharpening at
;
http://www.gimpguru.org/Tutorials/SmartSharpening2/;
; The Refocus plugin from
http://hphsite.de/refocus/ must be installed seperately.
;
; This script was tested with Gimp 2.4
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 3 of the License, or
; (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, see <http://www.gnu.org/licenses>.
;
; Define the function
;
(define (script-fu-Eg-SmartSharpen InImage InLayer InRadius InAmount InThreshold InRefocus InMatSize InRFRadius InGauss InCorrelation InNoise InEdge InBlur InFlatten)
;
; Save history
;
(gimp-image-undo-group-start InImage)
(if (= (car (gimp-drawable-is-rgb InLayer)) FALSE ) (gimp-image-convert-rgb InImage))
;
(let* (
(MaskImage (car (gimp-image-duplicate InImage)))
(MaskLayer (cadr (gimp-image-get-layers MaskImage)))
;
(OrigLayer (cadr (gimp-image-get-layers InImage)))
(HSVImage (car (plug-in-decompose TRUE InImage InLayer "Value" TRUE)))
(HSVLayer (cadr (gimp-image-get-layers HSVImage)))
;
(SharpenLayer (car (gimp-layer-copy InLayer TRUE)))
)
;
(gimp-image-add-layer InImage SharpenLayer -1)
;
(gimp-selection-all HSVImage)
(gimp-edit-copy (aref HSVLayer 0))
(gimp-image-delete HSVImage)
(gimp-floating-sel-anchor (car (gimp-edit-paste SharpenLayer FALSE)))
;
(gimp-layer-set-mode SharpenLayer VALUE-MODE)
;
; Find edges, Warpmode = Smear (1), Edgemode = Sobel (0)
;
(plug-in-edge TRUE MaskImage (aref MaskLayer 0) InEdge 1 0)
(gimp-levels-stretch (aref MaskLayer 0))
(gimp-image-convert-grayscale MaskImage)
(plug-in-gauss TRUE MaskImage (aref MaskLayer 0) InBlur InBlur TRUE)
;
(let* (
(SharpenChannel (car (gimp-layer-create-mask SharpenLayer ADD-WHITE-MASK)))
)
(gimp-layer-add-mask SharpenLayer SharpenChannel)
;
(gimp-selection-all MaskImage)
(gimp-edit-copy (aref MaskLayer 0))
(gimp-floating-sel-anchor (car (gimp-edit-paste SharpenChannel FALSE)))
(gimp-image-delete MaskImage)
;
(cond
((= InRefocus FALSE)(plug-in-unsharp-mask TRUE InImage SharpenLayer InRadius InAmount InThreshold))
((= InRefocus TRUE)(plug-in-refocus TRUE InImage SharpenLayer InMatSize InRFRadius InGauss InCorrelation InNoise))
)
(gimp-layer-set-opacity SharpenLayer 80)
(gimp-layer-set-edit-mask SharpenLayer FALSE)
)
;
; Flatten the image, if we need to
;
(cond
((= InFlatten TRUE) (gimp-image-merge-down InImage SharpenLayer CLIP-TO-IMAGE))
((= InFlatten FALSE)
(begin
(gimp-drawable-set-name SharpenLayer "Sharpened")
(gimp-image-set-active-layer InImage InLayer)
)
)
)
)
;
; Finish work
;
(gimp-image-undo-group-end InImage)
(gimp-displays-flush)
;
)
;
(script-fu-register
"script-fu-Eg-SmartSharpen"
_"_Sharpen (Smart Redux)"
"Smart Sharpening, Redux version"
"Martin Egger (
martin.egger@gmx.net)"
"2006, Martin Egger, Bern, Switzerland"
"28.01.2007"
"RGB* GRAY*"
SF-IMAGE "The Image" 0
SF-DRAWABLE "The Layer" 0
SF-ADJUSTMENT "USM: Radius" '(2.0 0.0 50.0 1 0 2 0)
SF-ADJUSTMENT "USM: Amount" '(1.0 0.0 5.0 0.5 0 2 0)
SF-ADJUSTMENT "USM: Threshold" '(0.0 0.0 50.0 1.0 0 2 0)
SF-TOGGLE "Use refocus plugin" FALSE
SF-ADJUSTMENT "Refocus: Size of matrix" '(5.0 0.0 10.0 1.0 0 2 0)
SF-ADJUSTMENT "Refocus: Circle radius" '(1.0 0.0 25.0 0.1 0 2 0)
SF-ADJUSTMENT "Refocus: Parameter for Gaussian" '(0.0 0.0 25.0 0.1 0 2 0)
SF-ADJUSTMENT "Refocus: Correlation" '(0.5 0.0 1.0 0.05 0 2 0)
SF-ADJUSTMENT "Refocus: Noise to Signal ratio" '(0.01 0.0 1.0 0.01 0 2 0)
SF-ADJUSTMENT "Edges: Detect Amount" '(6.0 1.0 10.0 1.0 0 2 0)
SF-ADJUSTMENT "Edges: Blur Pixels" '(6.0 1.0 10.0 1.0 0 2 0)
SF-TOGGLE "Flatten Image" FALSE
)
;
(script-fu-menu-register "script-fu-Eg-SmartSharpen"
"<Image>/Filters/Eg")
;
Autor
En línea
