Hi,
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
the comment:
(define (batch-test pattern)
(let* (
(filelist (cadr (file-glob pattern 1)))
(filename2)
(filename)
(image)
(drawable)
)
(while filelist
(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"
0)
(gimp-image-delete image)
(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
Gimp-user@lists.XCF.Berkeley.EDU
https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user
