- 889 名前：名無しさん＠お腹いっぱい。 mailto:sage [2010/02/20(土) 21:00:52 ID:fRKhcwJs0]
- >>884 スクリプト書いてみた。可視レイヤーにαチャンネルを付加
;; add-alpha-all-layers.scm
(define (script-fu-add-alpha-all-layers img drawable)
(let* (
(layers (gimp-image-get-layers img))
(num-layers (car layers))
(layer-array (cadr layers))
(i (- num-layers 1)))
(gimp-image-undo-group-start img)
(while (>= i 0)
(let ((layer (aref layer-array i)))
(if (= (car (gimp-layer-is-floating-sel layer)) FALSE)
(if (= TRUE (car (gimp-drawable-get-visible layer)))
(gimp-layer-add-alpha layer))))
(set! i (- i 1)))
(gimp-image-undo-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-add-alpha-all-layers"
_"Add Alpha All Layers"
_"Add alpha channel all layers in the image"
"" "" "Feb 2010" "*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0)
(script-fu-menu-register "script-fu-add-alpha-all-layers"
"<Image>/Image")
|
 |
