(define (script-fu-resize-image image drawable
                                      out-width
                                      out-height)
							  

 (let* (
            (image-layer (car (gimp-image-get-active-layer image)))
			(width (car (gimp-image-width image)))
			(height (car (gimp-image-height image)))			
        )	
	(gimp-context-push)
    (gimp-image-undo-group-start image)
	(gimp-context-set-foreground '(0 0 0))
	(gimp-context-set-background '(255 255 255))
	
	(plug-in-lqr 1 image image-layer out-width out-height 0 0 0 0 0.0 0 0 0.0 0 TRUE 0 0 0 0 0 0 0 0 "" "" "" "")	
	
    
	(gimp-displays-flush)
	(gimp-image-undo-group-end image)
	(gimp-context-pop)
 )
) 



(script-fu-register "script-fu-resize-image"        		    
                    "Resize Image"
                     "Requires the Liqid Rescale Plug-in"
                    "Graechan"
                    "Graechan"
                    "2012"
                    "RGB*"
                    SF-IMAGE      "image"      0
                    SF-DRAWABLE   "drawable"   0
                    SF-ADJUSTMENT "Output width (pixels)" '(1920 1 5000 1 100 0 1)
                    SF-ADJUSTMENT "Output height(pixels)" '(1200 1 5000 1 100 0 1)
)

(script-fu-menu-register "script-fu-resize-image" "<Image>/Image/")