(define (cover-maker filename)

(let* 	
(
 	;My Variables
 	(image (car (twain-acquire RUN-NONINTERACTIVE)))
     	(drawabe (car (gimp-image-get-active-layer image)))
)	
	
	(gimp-image-crop RUN-NONINTERACTIVE image 700 700 0 0)
	(gimp-image-scale image 500 500)
	(gimp-jpeg-save RUN-INTERACTIVE image drawable filename filename 85 1 0 "" 1 1 0 1)))

(script-fu-register "cover-maker"
		    "<Toolbox>/Xtns/Script-Fu/My Stuff/Cover"
		    "Do nothing"
		    "Pete"
		    "Pete"
		    "August 2000"
		    ""
		    SF-STRING   "File" "" )