I'm using gimp2.4.7 in windows XP. I copied a script-fu plugin I found to my
C:\Program Files\GIMP-2.0\lib\gimp\2.0\plug-ins, which should
copy a layer mask to multiple layers or apply a layer mask to multiple layers.
I get an error each time I make an attempt to use it, which states:
"Error: cons: needs 2 argument(s)"
I'm not familiar with the script. Could there be a simple solution to that?
Here is the script:
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
(define (script-fu-copy-mask-to-layers image drawable)
(define (visible-layers img)
(let* (
(all-layers (gimp-image-get-layers img))
(i (car all-layers))
(viewable ())
(tmp FALSE))
(set! all-layers (cadr all-layers))
(while (> i 0)
(set! tmp (car (gimp-drawable-get-visible (aref
all-layers (- i 1)))))
(if (= tmp TRUE)
(set! viewable (append viewable (cons (aref all-layers
(- i 1))))))
(set! i (- i 1)))
viewable))
(let* (
(active-layer (car (gimp-image-get-active-layer image)))
(source-layer)
(source-mask)
(layers)
(mask))
(set! layers (visible-layers image))
(gimp-image-undo-group-start image)
(set! source-layer (car (gimp-layer-new-from-drawable
active-layer image)))
(gimp-image-add-layer image source-layer -1)
(set! source-mask (car (gimp-layer-get-mask source-layer)))
(if (= source-mask -1)
(begin
(set! source-mask (car (gimp-layer-create-mask
source-layer ADD-COPY-MASK)))
(gimp-layer-add-mask source-layer source-mask)))
(while (car layers)
(if (= (car (gimp-layer-get-mask (car layers))) -1)
(if (= (car (gimp-drawable-has-alpha (car layers))) 1)
(set! mask (car (gimp-layer-add-mask (car layers)
source-mask)))))
(set! layers (cdr layers)))
(gimp-image-remove-layer image source-layer)
(gimp-image-undo-group-end image)
(gimp-displays-flush)))
(script-fu-register "script-fu-copy-mask-to-layers"
"/Script-Fu/_Copy mask"
"Copy the mask from the current layer to all visible layers"
"Saul Goode"
"Saul Goode"
"6/14/2006"
""
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
)
_________________________________________________________________
_______________________________________________
Gimp-user mailing list
Gimp-user@lists.XCF.Berkeley.EDU
https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user
