Léa-Linux & amis :   LinuxFR   GCU-Squad   Zarb.Org   GNU
Archive de la liste aide - [Aide] Y a-t-il quelqu'un qui s'y connaît en scheme ou en script-fu ?
hello again

>la suite identique à ton premier essai ...
en fait non pas entièrement identique car  il faudrait virer les deux lignes
set! pour width et height

donc (vérifier nombre de parenthèses !)
quelque chose comme ça
---------------------------------
 (define (script-fu-niveau pattern )
    (let* ((filelist (cadr (file-glob pattern 1))))
        (while (not (null? filelist))
            (let* ((filename (car filelist))
            (let* ((width (car (gimp-image-width image))) (height (car
(gimp-image-height image)))

  (image (car (gimp-file-load RUN-NONINTERACTIVE filename filename )))
  (drawable (car (gimp-image-get-active-layer image))))
  (let* new-layer (car ((gimp-layer-new image width height RGBA-IMAGE
"niveau" 100 NORMAL))) ; création d'un nouveau calque avec, en paramètres,
la largeur et la hauteur renvoyées, son mode image, son nom, son opacité et
son mode de calque. Et définition de la variable "new-layer" dont on aura
besoin tout de suite.
  (gimp-image-add-layer image new-layer -1) ; sert à ajouter ce calque à
l'image. La valeur -1 permet d'insérer le calque au-dessus du calque actif.
  (gimp-levels-stretch new-layer) ; applique un niveau automatique
  (set! drawable (car (gimp-image-get-active-layer image)))
                (gimp-file-save RUN-NONINTERACTIVE image drawable filename
filename))

            (set! filelist (cdr filelist))
     )
  )
     )
 )
---------------------------------------------------
cordialement
Kinyel

Serveur hébergé par ST-Hebergement et Lost-Oasis / IRC hébergé par FreeNode / NS secondaire hébergé par XName
Sauf mention contraire, les documentations publiées sont sous licence Creative-Commons