Gimp script: add saturation and contrast, unsharp image

script-fu-saturation-contrast-unsharp.scm

(define (script-fu-saturation-contrast-unsharp image drawable)
    (let*
        (
            (saturation +20)
            (contrast 3)
            (unsharp-radius 3)
            (unsharp-amount 0.5)
            (unsharp-threshold 0)
        )
    ; Start
    (gimp-image-undo-group-start image)
    (gimp-selection-none image)
    
    ; Saturation
    (gimp-hue-saturation drawable 0 0 0 saturation)
    
    ; Contrast
    (gimp-brightness-contrast drawable 0 contrast)
    
    ; Unsharp
    (plug-in-unsharp-mask 1 image drawable unsharp-radius unsharp-amount unsharp-threshold)
    
    ; End
    (gimp-image-undo-group-end image)
    (gimp-displays-flush)

    )
)

(script-fu-register "script-fu-saturation-contrast-unsharp"
                    "saturation-contrast-unsharp"
                    "Simple add saturation and contrast; unsharp image"
                    "Oleg Efimov <efimovov@yandex.ru>"
                    "Oleg Efimov"
                    "2010/10/05"
                    "*"
                    SF-IMAGE "Image" 0
                    SF-DRAWABLE "Drawable" 0
)

(script-fu-menu-register "script-fu-saturation-contrast-unsharp"
                         "<Image>/Filters")