I'm trying to write a batch scm to insert a comment into a tiff. Here is
the test code. It appears to function correctly but does not seem to add
(define (batch-test pattern)
(filelist (cadr (file-glob pattern 1)))
(set! filename (car filelist))
(set! image (car (file-tiff-load RUN-NONINTERACTIVE filename filename)))
(set! drawable (car (gimp-image-flatten image)))
(set! gimp-comment "Some Test Text")
(file-tiff-save RUN-NONINTERACTIVE image drawable "test.tif" "test.tif"
(set! filelist (cdr filelist))
I have no idea if (set! gimp-comment "Some Test Text") is the right way of
doing this but googling doesn't shed much light on it.
"I argue very well. Ask any of my remaining friends. I can win an
argument on any topic, against any opponent. People know this, and
steer clear of me at parties. Often, as a sign of their great respect,
they don't even invite me."
-- Dave Barry
Gimp-user mailing list