[GIMP] Script-fu

[invite4e1d54e3]

Bonsoir a tous,
J'ai fait un script-fu pour GIMP mais je ne comprends pas vraiment pourquoi, mais:
1. J'ai pas l'impression qu'il s'execute sur quelque chose de visible et
2. Il ne prend pas en compte les arguments que je passe dans la fonction 'plug-in-greycstoration'...

S'il y a des connaisseurs parmi vous...
Merci d'avance

(define (script-fu-AA img drw title-width)
  (let* ((drawable-width (car (gimp-drawable-width drw)))
     (drawable-height (car (gimp-drawable-height drw)))
     (new-image (car (gimp-image-new drawable-width drawable-height RGB)))
     (original-layer (car (gimp-layer-new new-image
                          drawable-width drawable-height
                          RGB-IMAGE "Modified Image"
                          100 NORMAL-MODE)))
     (title-bar #f))

    ;;; New image creation
    (gimp-selection-all img)
    (gimp-edit-copy drw)

    (gimp-image-undo-disable new-image)

    (gimp-image-add-layer new-image original-layer 0)
    (gimp-floating-sel-anchor (car (gimp-edit-paste original-layer FALSE)))
    (gimp-display-new new-image)
    (gimp-selection-none img)

    ;;; Denoising
    (gimp-selection-all new-image)
    (plug-in-greycstoration TRUE new-image
                            (car (gimp-image-get-active-drawable new-image))
                            60.0 0.7 0.3 0.6 1.1 0.8 30.0 0.0 2 TRUE 2)

    (gimp-displays-flush)

    (gimp-image-undo-enable new-image)
))

(script-fu-register "script-fu-AA"
            _"_AA..."
            "AA"
            ""
            ""
            ""
            ""
            SF-IMAGE       "Image"             0
            SF-DRAWABLE    "Drawable to apply" 0
                    SF-VALUE       "Title width"       "65")

(script-fu-menu-register "script-fu-AA"
             _"<Image>/Script-Fu/Utils")

Le plugin est telechargeable ici:
http://www.greyc.ensicaen.fr/~dtschump/greycstoration/

--
Giz
-----