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. Sven _______________________________________________ Gimp-user mailing list Gimp-user@lists.XCF.Berkeley.EDU https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user
