GIMP 2.10 Script-Fu 画像切り抜きスクリプト

自分の作業用スクリプト。

画像から部分的に2か所切り抜いて、それぞれ別ファイルに保存するためのもの。

テキストファイルはUTF-8で保存する。

ファイル配置場所

C:\Users\{ユーザー名}\AppData\Roaming\GIMP\2.10\scripts

プロシージャ一覧

GIMPメニューバー＞ヘルプ＞プロシージャーブラウザー

ファイル更新後

GIMPメニューバー＞フィルター＞Script-Fu＞スクリプトを再読み込み

;kirinuki-script.scm
  
(define (kirinuki-script img  drawable)
    (gimp-image-crop img 1080 1194 0 195)
    (gimp-image-convert-grayscale img)
    (gimp-image-convert-rgb img)
    (gimp-drawable-invert drawable TRUE)
    (gimp-rect-select img 225 311 1145 942 CHANNEL-OP-REPLACE FALSE 0)
    (gimp-rect-select img 0 0 225 310 CHANNEL-OP-ADD FALSE 0)
    (gimp-edit-clear drawable)
    (gimp-selection-none img)
    ;(define drawable (car (gimp-image-active-drawable 1)))
    (gimp-drawable-levels drawable HISTOGRAM-VALUE 0.6 0.8 FALSE 1 0 1 FALSE)
    (gimp-displays-flush)
      
    ;ファイル名取得
    (define origin (car (gimp-image-get-filename img)))
    (define newname (substring origin 0 (- (string-length origin) 4)))
  
    ;保存
    ;(gimp-selection-all img)
    ;(kirinuki-save-script img drawable (string-append newname "_Edited.png"))
    
    ;切り抜きA保存
    (gimp-rect-select img 219 0 861 314 CHANNEL-OP-REPLACE FALSE 0)
    (kirinuki-save-script img drawable (string-append newname "_A.png"))
    ;切り抜きB保存
    (gimp-rect-select img 0 306 266 888 CHANNEL-OP-REPLACE FALSE 0)
    (kirinuki-save-script img drawable (string-append newname "_B.png"))
)

; PNG画像保存プロシージャ
(define (kirinuki-save-script img drawable output)
    (gimp-edit-copy drawable)
    (define img_new (car (gimp-edit-paste-as-new-image)))
    ;(gimp-display-new img_new)
    (define drawable_new (car (gimp-image-get-active-drawable img_new)))
    (file-png-save2 RUN-NONINTERACTIVE img_new drawable_new output output 0 9 1 0 0 0 0 0 0)
    (gimp-selection-none img)
)

(script-fu-register
    "kirinuki-script"
    "切り抜きスクリプト"
    "○○画像用に切り抜きします。"
    "Myself"
    "copyright 2020 Myself"
    "Dec 30, 2020"
    ""
    SF-IMAGE "Image" 0
    SF-DRAWABLE "Drawable" 0
)
(script-fu-menu-register "kirinuki-script" "<Image>/Script-Fu")

参考サイト

https://docs.gimp.org/2.10/ja/gimp-using-script-fu-tutorial-identifier.html

https://bamch0h.hatenablog.com/entry/2020/02/23/025939
https://rrryutaro.hatenablog.com/entry/2017/05/28/161257
https://www.kkaneko.jp/pro/ruby/gimpscriptfu.html