guides using gimp batch processing gimp 2 4 6 for slicing scanne

Message-ID:<slrngco65o.i2v.dont@linux.rlogin.org>
Subject:

guides using gimp batch processing gimp-2.4.6 for slicing scanned photos

Date:Sat, 13 Sep 2008 20:47:04 +0100


michael@mws:~/.gimp-2.4/scripts% cat scanguides.scm
; uses guillotine on 4 scanned normal size photos to slice them out into
; 4 new images and save them
;
; use scanguides *.png 0 1 50 50
; filename guide directions and percents
; gimp -i -b '(scanguides "*.png" 0 1 50 50)' -b '(gimp-quit 0)'


(define (scanguides filename direction1 direction2 percent1 percent2)

(let* ((filelist (cadr (file-glob pattern 1))))
        (while (not (null? filelist))
                (let* ((filename (car filelist))
                        (image (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
                        (drawable (car (gimp-image-get-active-layer image))))
 
                (script-fu-guide-new-percent 0 image drawable direction1 percent1)
                (script-fu-guide-new-percent 0 image drawable direction2 percent2)
                (plug-in-guillotine 0 image drawable)
 
                (gimp-file-save RUN-NONINTERACTIVE image drawable filename filename)
                (gimp-image-delete image)))

          (set! filelist (cdr filelist))))


any idea what is wrong with this script? 

it should save 4 slices in 4 different files after run.

i just get an "unexpected error" message when running with the above command.

Message-ID:<slrngco65o.i2v.dont@linux.rlogin.org>
Subject:

guides using gimp batch processing gimp-2.4.6 for slicing scanned photos

Date:Sat, 13 Sep 2008 20:47:04 +0100


michael@mws:~/.gimp-2.4/scripts% cat scanguides.scm
; uses guillotine on 4 scanned normal size photos to slice them out into
; 4 new images and save them
;
; use scanguides *.png 0 1 50 50
; filename guide directions and percents
; gimp -i -b '(scanguides "*.png" 0 1 50 50)' -b '(gimp-quit 0)'


(define (scanguides filename direction1 direction2 percent1 percent2)

(let* ((filelist (cadr (file-glob pattern 1))))
        (while (not (null? filelist))
                (let* ((filename (car filelist))
                        (image (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
                        (drawable (car (gimp-image-get-active-layer image))))
 
                (script-fu-guide-new-percent 0 image drawable direction1 percent1)
                (script-fu-guide-new-percent 0 image drawable direction2 percent2)
                (plug-in-guillotine 0 image drawable)
 
                (gimp-file-save RUN-NONINTERACTIVE image drawable filename filename)
                (gimp-image-delete image)))

          (set! filelist (cdr filelist))))


any idea what is wrong with this script? 

it should save 4 slices in 4 different files after run.

i just get an "unexpected error" message when running with the above command.

Message-ID:<slrngco65o.i2v.dont@linux.rlogin.org>
Subject:

guides using gimp batch processing gimp-2.4.6 for slicing scanned photos

Date:Sat, 13 Sep 2008 20:47:04 +0100


michael@mws:~/.gimp-2.4/scripts% cat scanguides.scm
; uses guillotine on 4 scanned normal size photos to slice them out into
; 4 new images and save them
;
; use scanguides *.png 0 1 50 50
; filename guide directions and percents
; gimp -i -b '(scanguides "*.png" 0 1 50 50)' -b '(gimp-quit 0)'


(define (scanguides filename direction1 direction2 percent1 percent2)

(let* ((filelist (cadr (file-glob pattern 1))))
        (while (not (null? filelist))
                (let* ((filename (car filelist))
                        (image (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
                        (drawable (car (gimp-image-get-active-layer image))))
 
                (script-fu-guide-new-percent 0 image drawable direction1 percent1)
                (script-fu-guide-new-percent 0 image drawable direction2 percent2)
                (plug-in-guillotine 0 image drawable)
 
                (gimp-file-save RUN-NONINTERACTIVE image drawable filename filename)
                (gimp-image-delete image)))

          (set! filelist (cdr filelist))))


any idea what is wrong with this script? 

it should save 4 slices in 4 different files after run.

i just get an "unexpected error" message when running with the above command.