Script-fuで、画像を50%にリサイズ(初めの一歩)

日本語リソースが少なすぎて時間かかった。

(define (script-fu-resize image drawable)
  (let* (
         (org-width (car (gimp-image-width image)))
         (org-height (car (gimp-image-height image)))
         (cnv-width (/ org-width 2))
         (cnv-height (/ org-height 2))
         )
    ; init
    (gimp-image-undo-group-start image)

    ; resize
    (gimp-image-scale image cnv-width cnv-height)


    (gimp-displays-flush)
    (gimp-image-undo-group-end image)
    ) ;end of let
) ;end of define
(script-fu-register "script-fu-resize"
                    "<Image>/Filters/resize"
                    "50%にリサイズ" ; description
                    "http://d.hatena.ne.jp/Artisan" ; auth
                    "" ; copyright
                    "15/02/05" ; date
                    "*" ; image type that the script work on
                    SF-IMAGE "Input image" 0
                    SF-DRAWABLE "Input drawable" 0
); end of register
  • script-fu-registerはコピペで。
  • gimp-image-scaleは画像の縮小・拡大。gimp-image-resizeはキャンバスサイズの変更。