;; PPRacer - PNGs saver ;; Copyright (C) 2000 Ingo Ruhnke <grumbel@gmx.de> ;; ;; Modified for PPRacer by Volker Stroebel ;; ;; Saves a layed image as seperated PNG images using the layer names ;; as filenames + .png ;; ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2 of the License, or ;; (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, write to the Free Software ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (define (script-fu-ppracer-save-as-pngs inImage inDraw pathname) (let ((layers (gimp-image-get-layers inImage)) (layer-count 0)) (while (< layer-count (car layers)) (let ((layer (aref (cadr layers) layer-count))) (file-png-save 1 inImage layer (string-append pathname "/" (car (gimp-layer-get-name layer)) ".png") "foobar" 0 9 0 0 0 0 0)) (set! layer-count (+ layer-count 1))))) (script-fu-register "script-fu-ppracer-save-as-pngs" "<Image>/Script-Fu/PPRacer/Save Image as PNGs" "Saves a layed image as seperated PNG images using the layer names as filenames + .png" "Ingo Ruhnke" "1999, Ingo Ruhnke" "Fri Mar 3 16:00:13 2000" "PNG" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0 SF-FILENAME "Directory:" "/tmp/")