60476 apostol (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" ) 3419280811 #scheme Scheme TRUE