GIMP-Werkstatt

Code: Alles auswählen

;	There are four input parameters. The first is the 'pattern' to find the files, e.g. "*.tiff" gives you all the tiff files in the directory. 
;	The next three inputs refer only to the sharpening filter. I use the (confusingly named) 'unsharp' filter which works 
;	by comparing using the difference of the image and a gaussian-blurred version of the image.
;
;	'radius' (pixels) of the blur (>1, suggested 5)
;	'amount' refers to the strength of the effect (suggested 0.5)
;	'threshold' refers to the pixel value beyond which the effects are applied (0 - 255, suggested 0)
;
;	These require a little bit of trial and error, depending on the type of picture. In the command line, the script is called like this:
;
;	 gimp -i -b '(batch-auto-fix "*.JPG" 5.0 0.5 0)' -b '(gimp-quit 0)'  
;
(define (batch-auto-fix pattern  
              radius  
              amount  
              threshold)  
(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))))  
     (plug-in-unsharp-mask RUN-NONINTERACTIVE  
                image drawable radius amount threshold)  
     (gimp-levels-stretch drawable)  
     (plug-in-color-enhance RUN-NONINTERACTIVE  
                image drawable)  
     (gimp-file-save RUN-NONINTERACTIVE  
             image drawable filename filename)  
     (gimp-image-delete image))  
    (set! filelist (cdr filelist)))))