GIMP2.10でScript-Fuを試してみる3。「2値化したレイヤーを追加」

GIMP コンピュータ
GIMP

しきい値による2値化

(gimp-drawable-threshold new_layer 5 0.5 1.0)

レイヤーの名前を変更

(gimp-drawable-set-name new_layer "2値化")

スクリプト全体

スクリプトの保存場所:%Userprofile%\AppData\Roaming\GIMP\2.10\scripts
ファイル名:add-threshold-layer.scm

; 
; 2値化したレイヤーを追加スクリプト
; 
(define (script-fu-add-threshold-layer img layer)
    
    ; Undo記録開始
    (gimp-undo-push-group-start img)
    ; レイヤーの複製
    (define new_layer (car (gimp-layer-copy layer 1)))
    (gimp-image-insert-layer img new_layer 0 0)
    ; しきい値による2値化
    (gimp-drawable-threshold new_layer 5 0.5 1.0)
    ; レイヤーの名前を変更
    (gimp-drawable-set-name new_layer "2値化")
    ; Undo記録終了
    (gimp-undo-push-group-end img)
    (gimp-drawable-update layer 0 0 (car (gimp-drawable-width layer)) (car (gimp-drawable-height layer)))
    (gimp-displays-flush)
)
(script-fu-register "script-fu-add-threshold-layer"
                    "<Image>/Filters/My/2値化レイヤー追加..."
            "レイヤーを複製し2値化。"
            "Maywork"
            "Copyright 2020, Maywork"
            "04/07/2022"
            "RGB* GRAY*"
            SF-IMAGE "Input Image" 0
            SF-DRAWABLE "Input Layer" 0
)

コメント