日本語リソースが少なすぎて時間かかった。
(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