08/12/23 22:22:04 JhbDCqq70
;for文がないって本当か！？
(
define (script-fu-senkuro3 img layer)
(let* (
(i 0)
(po (car(gimp-image-get-layer-position img layer)))
(do layer)
)
(
(set! layer(car(gimp-layer-copy layer 0)))
(gimp-image-add-layer img layer 0)
(while(< i (+ po 1))
(gimp-image-lower-layer img layer)
(set! i(+ i 1))
)
(gimp-colorize layer 0 0 -100)
(gimp-image-merge-down img layer 0)
(gimp-edit-clear do)；ここがうまくいかんのです
)
)
(gimp-displays-flush)
)