Bonjour á tous,
Aprés de nombreuses heures (plutôt jour ), j'ai enfin réussis, avec l'aide de nombreux sites et scripts, à faire un script de traitemant par lot sous
windows xp et
gimp 2.6. Mon script permet de sélectionner un dossier où doit être fait le traitement par lot et applique les filtres plug-in-lens-distortion, gimp-
brightness-contrast, plug-in-unsharp-mask, puis sauve les images dans un autre dossier de votre choix.
[code]
> ; -*- Script Batch Processing*-
; Version 0.9 November 13, 2010
; By Patrice Ponchant
;
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; This program 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; either version 2 of the License, or
; (at your option) any later version.
;
; This program 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.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
;; Définitions des filtres utiliser pour le traitement des images
(define (script-fu-foto-auv image drawable edge-adjust rescale brightness contrast)
(plug-in-lens-distortion RUN-NONINTERACTIVE image drawable 0 0 0 edge-adjust rescale 0) ;; Corrects lens distortion.
(gimp-brightness-contrast drawable brightness contrast) ;; Modify brightness/contrast in the specified drawable.
(plug-in-unsharp-mask RUN-NONINTERACTIVE image drawable 5 0.5 0) ;; Sharpening filter
)
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
;; Fonction de traitement par lot des images
(define (script-fu-batch-fotos-auv image
drawable
dirname-in
edge-adjust
rescale ;; Liste des variables SF-*
brightness
contrast
dirname-out
)
(let* ((filelist (cadr (file-glob (string-append dirname-in "\\*.jpg") 1)))) ;; Sélection du dossier à traiter avec SF-DIRNAME
(while (not (null? filelist)) ;; et listage des images (.jpg) dans le dossier sélectionné
(let* ((filename-in (car filelist)) ;; Définition de la variable filename-in
(image (car (gimp-file-load RUN-NONINTERACTIVE filename-in filename-in))) ;; Définition de la variable image
(drawable (car (gimp-image-get-active-layer image))) ;; Définition de la variable drawable
(filename-out (string-append dirname-out "\\" (car (gimp-image-get-name image)))) ;; Définition de la variable filename-out
)
(script-fu-foto-auv image drawable edge-adjust rescale brightness contrast) ;; Traitement de l'image
(file-jpeg-save RUN-NONINTERACTIVE image drawable filename-out filename-out 1 0 1 0 "" 0 1 0 0) ;; Sauvegarde de l'image
(gimp-image-delete image) ;; Fermeture de l'image
)
(set! filelist (cdr filelist))
)
)
)
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------
;; Registre du script
(script-fu-register "script-fu-batch-fotos-auv" ; nom du script
"<Image>/Batch/2 - Batch Processing" ;; Position du script dans le menu
"Batch Processing" ;; Commentaires
"Patrice Ponchant" ;; Auteur
"Patrice Ponchant" ;; Copyright
"13/11/2010" ;; Date
"" ;; Types d'images supportés par le script
SF-IMAGE "Image" 0 ;; Image dans lequel le calque est ajouté
SF-DRAWABLE "Drawable" 0 ;; Calque actif de l'image
SF-DIRNAME "Pasta RAW" "" ;; Demande à The Gimp d'afficher un widget permettant de sélectionner un répertoire
SF-ADJUSTMENT "Distorção de lente (Bordas)" '(0 -100 100 .1 1 3 0) ;; Variable edge-adjust
SF-ADJUSTMENT "Distorção de lente (Zoom)" '(0 -100 100 .1 1 3 0) ;; Variable rescale
SF-ADJUSTMENT "Ajustar Brilho" '(0 -127 127 1 10 0 0) ;; Variable brightness
SF-ADJUSTMENT "Ajustar Contraste" '(0 -127 127 1 10 0 0) ;; Variable contrast
SF-DIRNAME "Pasta PROC" "" ;; Demande à The Gimp d'afficher un widget permettant de sélectionner un répertoire
) ; fin du register
[\code]
