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 [9]
> after reading the [1] batch mode page i have assembled this format:
>  (define (png-compress filename
>                               compression)
>   (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

Reply via email to