;
; Millora color i definició d'una fotografia
; 
; --------------------------------------------------------------------
; Versió 0.1
;     - Versió inicial
; --------------------------------------------------------------------
; 


(define (script-fu-millora-color-i-definicio img capa augment)

(let* (
        (augm (+ 1 (/ augment 100)))
	(dism (- 0 (/ augment 200)))
      )



; Creem punt de "desfer"
(gimp-image-undo-group-start img)
(gimp-selection-none img)
; Canviem el color
(plug-in-colors-channel-mixer 1 img capa FALSE augm dism dism dism augm dism dism dism augm)
; Millorem la definició de la imatge
(plug-in-unsharp-mask 1 img capa 4 0.4 0)
; Finalitzem el grup de "desfer"
(gimp-image-undo-group-end img)
;(gimp-displays-flush)

)

)

(script-fu-register "script-fu-millora-color-i-definicio"
		    "<Image>/Filters/Enhance/Color i definició..."
		    "Millora el color i la definició de les imatges"
		    "Oriol González"
		    "Oriol González"
		    "2010"
		    ""
		    SF-IMAGE "Img" 0
		    SF-DRAWABLE "Capa" 0
		    SF-ADJUSTMENT "Augment de color (%)" '(14 -50 50 2 10 0 0)
)