;THIS SCRIPT CHANGES THE SIZE OF SEVERAL IMAGES.
;Important, to write properly the path of the images in windows follow this example
;C:\test\DS*
;DS in this case are the common characters to all the filenames you want to point. 
;IMPORTANT: The images are rewritten so if you want to conserve the original files, copy them and apply the script to the copied directory
(define (size-sefil pattern width heigth local_orig)
  (let* ((filelist (cadr (file-glob pattern 1))))
    (while (not (null? filelist))
           (let* ((filename (car filelist))
                  (image (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
                  (drawable (car (gimp-image-get-active-layer image))))
				(gimp-layer-scale drawable width heigth local_orig)
				(gimp-file-save RUN-NONINTERACTIVE
                             image drawable filename filename)
				(gimp-image-delete image))
				(set! filelist (cdr filelist)))))



	      (script-fu-register "size-sefil" ;el numero de comillas aqui es super critico.
                              _"<Toolbox>/Xtns/Script-Fu/changesize"
                               "Changes the size of a bunch of images"
							   "Enrique Sahagun"
							   "August 2009"
							   ""
							   ""
							  SF-STRING  "pattern" "C:/test/DS*"
							  SF-VALUE      "width" "800"
							  SF-VALUE      "heigth" "600"
							  SF-VALUE      "local_orig" "0"
							  )