It just says: batch command experienced an execution error
(Type any character to close this window) Is there a way to get the batch engine to provide more verbose output? You're probably right about the variable declarations. Doh! On Sat, Jul 24, 2010 at 4:11 AM, Cameron Gregory <c...@bloke.com> wrote: > what is the error? > > But you need to declare num-layers and layerID's at the top (like newimage > and drawable) > > Cameron > > On 24/07/2010, at 3:35 PM, Dillon wrote: > > As soon as I add in either of these lines: > > (set! num-layers (car (gimp-image-get-layers newimage))) > (set! layerIDs (cadr (gimp-image-get-layers newimage))) > > > I get batch command execution errors. > > The full script is: > > (define (batch-save-as-xcf pattern) > (let* ( > (filelist (cadr (file-glob pattern 1))) > (fileparts) > (xcfname) > (filename) > (image) > (newimage) > (drawable) > ) > (gimp-message-set-handler 2) > (gimp-message "Preparing to act on the following files") > (gimp-message pattern) > > (while (pair? filelist) > ; set filename to the name of the current file in the glob > (set! filename (car filelist)) > (gimp-message "The current file is: ") > (gimp-message filename) > > ; set xcfname by tokenizing on "." and taking everything but the last > part > (set! fileparts (strbreakup filename ".")) > (set! fileparts (butlast fileparts)) > (set! xcfname (string-append (unbreakupstr fileparts ".") ".xcf")) > (gimp-message "The new filename will be: ") > (gimp-message xcfname) > ; set image from the file, and then get the first layer and set it to > newimage > (gimp-message "Loading File.") > (set! newimage (car (gimp-file-load RUN-NONINTERACTIVE filename filename))) > (set! num-layers (car (gimp-image-get-layers newimage))) > (set! layerIDs (cadr (gimp-image-get-layers newimage))) > > ; set drawable to the newimage > (gimp-message "Setting the Drawable.") > > (set! drawable (car (gimp-image-flatten newimage))) > > > ; save the drawable from newimage as xcfname > (gimp-message "Saving the new file.") > (gimp-file-save RUN-NONINTERACTIVE newimage drawable xcfname xcfname) > > (set! filelist (cdr filelist)) > ) > ) > ) > > > > > Date: Sun, 06 Jun 2010 17:46:15 -0400 > From: saulgo...@flashingtwelve.brickfilms.com > Subject: Re: [Gimp-user] Script-Fu for batch image conversion > To: gimp-user@lists.XCF.Berkeley.EDU > Message-ID: > <20100606174615.awibbw09xk44k...@flashingtwelve.brickfilms.com> > Content-Type: text/plain; charset=ISO-8859-1; DelSp="Yes"; > format="flowed" > > Quoting Dillon <dillonontheco...@gmail.com>: > > > The reason I'm writing my own script-fu, rather than using Daves Batch > > Processor, is that my TIF files are multi-page, and when I load the image > > and flatten it to a drawable, I end up with both pages flattened into one > > drawable. I only want one of the pages (I think the first). > > > > I need to find a way to select that page (which I assume is turned into a > > layer when the TIF is loaded), and just set that layer to be my drawable. > > In that case, you were on the right track originally with using > 'gimp-image-get-layers' (I am also assuming multi-page TIFFs load as > separate layers). However, you had incorrectly handled the value > returned by the function. > > 'gimp-image-get-layers' returns returns a list containing two > elements: the number of layers in the image and an array of the > layerIDs of those layers: > > (set! num-layers (car (gimp-image-get-layers image))) > (set! layerIDs (cadr (gimp-image-get-layers image))) > > You can obtain the layerID of the top layer with: > > (set! top-layer (vector-ref layerIDs 0)) > > The next down with: > > (set! next-layer (vector-ref layerIDs 1)) > > And so on: > > (set! bottom-layer (vector-ref layerIDs (- num-layers 1))) > > > If you know the position of the layer you wish to keep (the TIFF > page), you can then remove all of the other layers from the image with: > > (set! pos 0) > (while (< pos num-layers) > (unless (= pos TIFFpage) > (gimp-image-remove-layer image (vector-ref layerIDs pos)) > ) > (set! i (+ i 1)) > ) > > _______________________________________________ > Gimp-user mailing list > > Gimp-user@lists.XCF.Berkeley.EDU > https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user > > >
_______________________________________________ Gimp-user mailing list Gimp-user@lists.XCF.Berkeley.EDU https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user
