( (lambda ( filename width height )
   (let* ((image (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
          (drawable (car (gimp-image-get-active-layer image)))
          (finalfilename (string-append filename ".png")))
     (gimp-image-merge-visible-layers image CLIP-TO-IMAGE)
     (set! drawable (car (gimp-image-get-active-layer image)))
     (gimp-image-scale-full image width height INTERPOLATION-CUBIC)
     (gimp-file-save RUN-NONINTERACTIVE image drawable finalfilename finalfilename)
     (gimp-image-delete image))
) "/home/bawolff/barn.xcf" 200 200 )

(gimp-quit 0)