Hi,
On Sun, 2007-06-03 at 20:37 -0400,
[EMAIL PROTECTED] wrote:
;;--
;; 'add-comment' attaches gimp-comment parasite to 'image'
;; with the value of the passed 'string'
;;
(define (add-comment image string)
On (20:46 03/06/07), [EMAIL PROTECTED] [EMAIL PROTECTED] put forth the
proposition:
OOPS! The 'if' statement should be (if (null? errobj). I had my
logic backwards.
Quoting [EMAIL PROTECTED]:
;;--
;; 'add-comment' attaches
On (19:51 04/06/07), David Woodfall [EMAIL PROTECTED] put forth the
proposition:
On (20:46 03/06/07), [EMAIL PROTECTED] [EMAIL PROTECTED] put forth the
proposition:
OOPS! The 'if' statement should be (if (null? errobj). I had my
logic backwards.
Quoting [EMAIL PROTECTED]:
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)
In order to change the gimp-comment you must change a parasite that is
attached to the image. The following code defines a function that will
set the 'gimp-comment' parasite to the passed string. (Note: I don't
have access to the GIMP right now, so I haven't tested it; though I
think it will
OOPS! The 'if' statement should be (if (null? errobj). I had my
logic backwards.
Quoting [EMAIL PROTECTED]:
;;--
;; 'add-comment' attaches gimp-comment parasite to 'image'
;; with the value of the passed 'string'
;;