; Copyright (c) 2006 Uli Franke
;
; GIMP script for batch rotating whole directories.
; Possibel angles: 90, 180 and 270 degrees
; A suffix can be appended to the original filename.
;
; http://www.interlog.com/~kcozens/software/gimp/sf-siod-functions.html
;

(define (rotate pattern angle suffix)
(let* ((filelist (cadr (file-glob pattern 1))))
	(while filelist
		(let* ((filename (car filelist))
				(img (car (gimp-file-load 1 filename filename))))
			(set! layer1 (car (gimp-image-active-drawable img)))
			(gimp-image-rotate img angle)
			(set! pos (string-search "." filename))
			(set! trunk (substring filename 0 pos))
			(set! outfile (string-append trunk suffix))
			(file-jpeg-save 1 img layer1 outfile outfile 0.95 0 0 0 "Uli Loves You" 1 1 0 1)
			(gimp-image-delete img))
		(set! filelist (cdr filelist)))))

(script-fu-register "rotate"
		    _"<Toolbox>/Xtns/Script-Fu/Scripts/rotate"
		    "Scales images with ability of batch processing"
		    "Uli Franke"
		    "Copyright (c) 2006 Uli Franke"
		    "2006"
		    ""
		    SF-FILENAME "Dir and Pattern" "./*.JPG"
		    SF-VALUE "Angle: 0:90, 1:180, 2:270" "0"
		    SF-VALUE "Suffix" "\"rot.jpg\"")