Hi everybody !

I have made a script to resize picture... but it doesn't work anymore, I 
have change something but I don't remember what...
Can someone help me?
Thanks a lot !

Jeff




Here is my code :

(define (script-fu-image-resize filename f-width f-height f-quality)
  (let* (
     (img 0)
     (drw 0)
     (height1 0)
     (width1 0)
     (fileparts (strbreakup filename "."))
     )
    (set! img (car (file-jpeg-load 1 filename filename)))
    (set! height1 (car (gimp-image-height img)))
    (set! width1 (car (gimp-image-width img)))
    (if (< height1 width1)
    (begin
      (set! f1-height f-height)
      (set! f1-width f-width)
      )
    )
    (if (> height1 width1)
    (begin
      (set! f1-height f-width)
      (set! f1-width f-height)
      )
    )
    ;; set image resolution to 72dpi
    (gimp-image-set-resolution img 72 72)
    ;; create 'full-size' image
    (gimp-image-scale img f1-width f1-height)
    ;; also flatten image to reduce byte storage even further
    (set! drw (car (gimp-image-flatten img)))
    ;; save at quality level of .75 (gimp default) - saves storage
    (file-jpeg-save 1 img drw
            (string-append (car fileparts) "-mini.jpg")
            (string-append (car fileparts) "-mini.jpg")
            f-quality 0 0 0 " " 0 1 0 1)
    )
  )
_______________________________________________
Gimp-user mailing list
Gimp-user@lists.XCF.Berkeley.EDU
https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user

Reply via email to