Re: script-fu plugin

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]



Adonj Adonj wrote:> > 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>  )> Isn't	 that a script rather a plug-in? If so it should reside in the scripts folder... But this is gust a guess. I am not familiar with script-fu eithe :(
Peter> _________________________________________________________________> > _______________________________________________> > Gimp-user@xxxxxxxxxxxxxxxxxxxxxx> https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user> 

-- http://receptibg.com - ÑÐÑÐÐÑÐ, ÐÐÑÐÐÑÑÑÐÐ Ð ÑÑÐÐÐÐÐ, ÐÐÐÑÑÐ, ÑÑÐÑÐÐ, ÐÐÐÐ Ð ÐÐÐÐÐÐÐ ÑÑÐÐÑÐ-------Boryana & Peter Kostovi,web design & webdevelopmenthome site: http://bgwebdeveloper.com_______________________________________________Gimp-user mailing listGimp-user@xxxxxxxxxxxxxxxxxxxxxxxxxxx://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user

[Gimp Announce]     [Gimp Images]     [GIMP Development]     [Video For Linux]     [Photo]     [Yosemite News]    [Yosemite Photos]    [gtk]     [KDE]     [Scanner]     [Gimp's Home]     [Gimp Docs]     [Gimp on Windows]     [Steve's Art]     [Webcams]     [Share Your Images]     [Free Online Dating]     [Photo Site]     [Script Fu]     [GIMP Software]     [GIMP Books]

Barnes&Noble.com

Add to Google Follow Gimp on Twitter