(define (script-fu-gr image drawable factor)

	(gimp-undo-push-group-start image)

	;Höhe und Breite des Bildes rausfinden
	(set! new_width (car(gimp-image-width image)))
	(set! new_height (car(gimp-image-height image)))
	
	(set! new_width (* new_width factor))
	(set! new_height (* new_height factor))
	
	(gimp-levels-auto drawable)
	
	;Das Bild auf den entsprechenden Faktor resizen!
	(gimp-image-scale image new_width new_height)
	
	(set! filename (car(gimp-image-get-filename image)))
	
	(gimp-undo-push-group-end image)
	
	
	
	
	(file-jpeg-save 1 image drawable filename filename 0.9 0.1 1 1 "Edited by The Gimp V2.0" 0 1 0 0)
	(gimp-image-clean-all image)
	(gimp-displays-flush) 
	

)




(define (script-fu-galrez image drawable factor)

	(gimp-undo-push-group-start image)

	;Höhe und Breite des Bildes rausfinden
	(set! new_width (car(gimp-image-width image)))
	(set! new_height (car(gimp-image-height image)))
	
	(set! new_width (* new_width factor))
	(set! new_height (* new_height factor))
	
	(gimp-levels-auto drawable)
	
	;Das Bild auf den entsprechenden Faktor resizen!
	(gimp-image-scale image new_width new_height)
	
	
	(gimp-undo-push-group-end image)
	(gimp-displays-flush) 

)


(script-fu-register "script-fu-gr"
		    "<Image>/Script-Fu/Utils/Galerie Resize Save..."
		    "Resize, Autoleveladjust & Save"
		    "nw"
		    "nw"
		    "2004-05-31"
		    "*"
		    
		    ;SF-VALUE "run_mode" "0"
		    SF-IMAGE "image" 0
		    SF-DRAWABLE "drawable" 0
		    SF-VALUE "factor" "0.3"
		    ;SF-VALUE "filename" "./"
			
		    )
		    

		    
(script-fu-register "script-fu-galrez"
		    "<Image>/Script-Fu/Utils/Galerie Resize..."
		    "Resize, Autoleveladjust."
		    "nw"
		    "nw"
		    "2004-05-31"
		    "*"
		    
		    ;SF-VALUE "run_mode" "0"
		    SF-IMAGE "image" 0
		    SF-DRAWABLE "drawable" 0
		    SF-VALUE "factor" "0.3"
			
		    )