(define (resize-image-file string)
  (let* (
	 (stringinput (string-append string ".png"))
	 (stringoutput (string-append string ".eps"))
	 (img (car (gimp-file-load 1 stringinput stringinput)))
	 (layer (car (gimp-image-flatten img)))
	 (image-width (car (gimp-image-width img)))
	 (image-height (car (gimp-image-height img)))
	 (new-width (* image-width (/ 192 image-height)))
	 (offset (* 0.5 (- 256 new-width)))
	 )
    (begin
      (gimp-image-scale img new-width 192)
      (gimp-selection-all img)
      (gimp-selection-shrink img 2)
      (gimp-selection-invert img)
      (gimp-edit-bucket-fill layer 0 0 100.0 0 0 1 1)
      (gimp-selection-none img)
      (gimp-image-resize img 256 192 offset 0)
      (gimp-image-resize img 288 224 16 16)
      (script-fu-drop-shadow img layer 8 8 7 '(0 0 0) 80 FALSE)
      (gimp-layer-resize-to-image-size layer)
      (set! layer (car (gimp-image-flatten img)))
      (gimp-drawable-transform-rotate-default layer -0.04 0 144 112 1 1)
      (set! layer (car (gimp-image-flatten img)))
      (gimp-displays-flush)
      (file-eps-save 1 img layer stringoutput stringoutput 0 0 0.0 0.0 1 1 0 1 0 2)
      )
    )
  )