Ahora os dejo el código del script, para que quede también en Fotolibre, por si algún día falla el enlace a mi servidor:
; zona_ajuste_ufraw.scm version 1.00 10 abril de 2007
;
; TRATAMIENTO DIGITAL DE IMÁGENES POR ZONAS CON UFRAW:
;
; 1.- Seleccionar la zona que queremos ajustar, por ejemplo con la herramienta de selección a mano alzada.
; 1.1.- Si necesitas rectificar la selección. Máscara rápida Sift+Q y pintas en negro o blanco para
; añadir o quitar.
; 1.2.- Quitar Máscara rápida. Sift+Q
;
; 2.- Abrir como capa la misma imágen (u otra con bracketing) (Ctrl+Alt+O). Volvemos a revelar la imagen,
; pero esta vez prestando atención a la zona que tenemos seleccionada.
;
; 3.- Añadir máscara de capa a partir de la selección.
;
; 4.- Cambiar el modo de fusión de la capa dependiendo del ajuste que queremos hacer:
; 4.1.- Ajuste con herramientas de Niveles o Curvas
; - Modo de fusión NORMAL si es una foto en escala de grises.
; - Modo de fusión VALOR si se trata de una foto RGB.
;
; 5.- Cambiamos la opacidad de la capa al 50%.
;
; 6.- Para suavizar la transición entre la zona ajustada y la imagen puedes desenfocar la máscara con
; Desenfoque gaussiano, hasta que dejes de notar la transición.
;
; 7.- Volvemos al paso 1 para la siguiente zona
;
; Cambiamos la opacidad de la capa al 50% porque nos permitirá hacer ajustes "a posteriori" cuando
; tengamos ya hecho el trabajo podemos cambiar la opacidad de las capas para un ajuste más fino.
;
; EL SIGUIENTE SCRIPT AUTOMATIZA LOS PASOS 2, 3, 4 Y 5, DE ESTA MANERA SE QUEDA EL PROCESO EN 3 PASOS
;
; Este Plugin está hecho para Gimp-2.0.
;
; Log de cambios:
; 1.00 - Script inicial
;
;##############################################################################
;
; LICENCIA
;
; CC 2007
www.tomassenabre.es;
; Zona de ajuste con UFRaw es software libre; puedes copiarlo, distribuirlo y/o
; modificarlo dentro de los términos considerados en la Licencia Pública General
; de GNU publicada por la Fundación de Software Libre.
;
; Zona de Ajuste con UFRaw se distribuye con la esperanza de de que será de
; utilidad, pero SIN NINGUNA GARANTÍA; tampoco tiene garantías de
; MERCHANDISE o APTITUD PARA UN PROPÓSITO PARTICULAR.
;
;##############################################################################
;
; LICENSE
;
; CC 2007
www.tomassenabre.es;
; Adjust Zone with UFRaw 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.
;
; Adjust Zone with UFRaw 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.
;
;##############################################################################
;
(define (script-fu-zona-ajuste-ufraw aimg drawable)
(let* (
(filename (car (gimp-image-get-filename aimg)))
(img-ufraw (car (gimp-file-load RUN-INTERACTIVE filename filename)))
(layer (aref (cadr (gimp-image-get-layers aimg)) 0))
(layer-ufraw (car (gimp-layer-new-from-drawable
(aref
(cadr (gimp-image-get-layers img-ufraw)) 0)
aimg)))
(image-type (car (gimp-image-base-type aimg)))
(layer-mask (car (gimp-layer-create-mask layer-ufraw ADD-SELECTION-MASK)))
)
(gimp-undo-push-group-start aimg)
(gimp-image-add-layer aimg layer-ufraw -1)
(gimp-layer-create-mask layer-ufraw ADD-SELECTION-MASK)
(gimp-layer-add-mask layer-ufraw layer-mask)
(gimp-layer-add-alpha layer-ufraw)
(gimp-layer-set-name layer-ufraw "Zona ufraw ")
(if (= image-type 0) (gimp-layer-set-mode layer-ufraw VALUE))
(gimp-layer-set-opacity layer-ufraw 50)
(gimp-layer-set-edit-mask layer-ufraw FALSE)
(gimp-image-delete img-ufraw)
)
(gimp-undo-push-group-end aimg)
(gimp-displays-flush))
(script-fu-register "script-fu-zona-ajuste-ufraw"
"<Image>/Script-Fu/_Zona de ajuste con ufraw"
"Crea una capa con máscara a partir de una zona seleccionada ajustando con UFRaw."
"Tomas Senabre <tomassenabre.es arroba gmail.com>"
"
www.tomassenabre.es"
"Apr 10, 2007"
"RGB*, GRAY*"
SF-IMAGE "Input Image" 1
SF-DRAWABLE "Input Drawable" 0)
; CC 2007 Tomás Senabre
www.tomassenabre.es <
tomassenabre.es@gmail.com>