On Mon, 2010-09-13 at 08:47 -0700, jeremy jozwik wrote:
> hello list, just added my self so i hope this is an active list.
> im am attempting to batch compress OSM tile images. they are of png
> format, otherwise i would have used cjpeg.
> anyhow the script need only open the images in a folder and save them
> out with a different compression level 
> after reading the  batch mode page i have assembled this format:
> (define (png-compress filename
> (let* ((filelist (cadr (file-glob pattern 1))))
> (while (not (null? filelist))
> (let* ((filename (car filelist))
> (image (car (gimp-file-load RUN-NONINTERACTIVE
> filename filename)))
> (gimp-file-png-save RUN-NONINTERACTIVE image drawable
> filename filename))
> (gimp-image-delete image))
> (set! filelist (cdr filelist)))))
You never assign the drawable variable. Try to use
(drawable (car (gimp-image-get-active-drawable image)))
Not sure if that's the only problem though.
Gimp-user mailing list