(define (script-fu-my-photo-convert image drawable gwidth)
   (let* ((start-width (car (gimp-image-width image)))
           (start-height (car (gimp-image-height image))))
     (set! black '(0 0 0))
     (set! white '(255 255 255))
     (set! gwidth gwidth)
     (set! gheight (/ start-height( / start-width gwidth)))
     (gimp-image-scale image gwidth (/ start-height( / start-width gwidth)))

     (gimp-levels-stretch drawable)  ; autocorrect white balance
     (gimp-palette-set-foreground white)
     (gimp-rect-select image 5 5 (- gwidth 10) 1 0 0 0)
     (gimp-rect-select image 5 (- gheight 5) (- gwidth 10) 1 0 0 0)
     (gimp-rect-select image 5 5 1 (- gheight 10) 0 0 0)
     (gimp-rect-select image (- gwidth 5) 5 1 (- gheight 10) 0 0 0)
     (gimp-edit-fill drawable 2)
;     (gimp-image-rotate image 0)
     (gimp-selection-none image)
     (gimp-displays-flush)))

(script-fu-register "script-fu-my-photo-convert"
	 _"<Image>/Script-Fu/Render/My Photo Convert"
	"Converting photos from SonyEricsson K750i camera into 500px wide autocorrected photos with nice white frame. Designed for usage with LJ blogs."
	"Ivan Daniluk <my@email.com>"
	"Ivan Daniluk"
	"2006/07/23"
	""
	SF-IMAGE "Image" 0
	SF-DRAWABLE "Drawable" 0
      SF-VALUE _"Width" "500"
)