(define (script-fu-ps-save inImage inDraw)
	(let* 
		(
			(width  0)
			(height 0)
		)
		(set! height (gimp-image-height inImage))
		(set! width  (gimp-image-width  inImage))
	)
	(gimp-message (number->string width))
)

; Register function with the GIMP
(script-fu-register
    "script-fu-ps-save"
    "<Image>/Script-Fu/VMS/PostScript"
        "Saves the currently active image as a PostScript document."
        "Matthew Shooshtari"
        "copyright 2006, Matthew Shooshtari"
        "September 21, 2006"
	""
	SF-IMAGE "Image" 0
	SF-DRAWABLE "Drawable" 0
)