script-fu gimp qui automatise la méthode...

-------------------------------------------------------------------------------------------
(define (my-duplicate-layer image layer)
(let* ((dup-layer (car (gimp-layer-copy layer 1))))
(gimp-image-add-layer image dup-layer 0)
dup-layer))

(define (script-fu-pique theImage theLayer)
(let*
(
(copy1 (my-duplicate-layer theImage theLayer))
(copy2 (my-duplicate-layer theImage theLayer))
)
(plug-in-gauss 1 theImage copy2 8.0 8.0 1)
(gimp-invert copy2)
(gimp-layer-set-opacity copy2 50)
(let
(
(merged (car (gimp-image-merge-down theImage copy2 0))))
(gimp-levels merged 0 100 155 1.0 0 255)
(gimp-layer-set-mode merged 5)
(gimp-layer-set-opacity merged 75.0)
(gimp-image-merge-down theImage merged 0)
)
(gimp-displays-flush)
)
)


(script-fu-register
"script-fu-pique"
"<Image>/Script-Fu/Photo/Ameliorer le pique..."
"améliorer la netteté"
"Olivier"
"Pour les utilisateurs de Gimp"
"23/01/2008"
"*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
)