misc/mediasource/menuskins/wickedx/png-tga.scm

   1 ;Converts .png image files to .tga.
   2 ;Input: fileIN, fileOUT, grayscale (0=no, 1=yes), alpha 0.5 (0=no, 1=yes)
   3
   4 (define (png-tga fileIn fileOut gray alpha)
   5         (let*
   6                 (
   7                         (image (car (gimp-file-load 1 fileIn fileIn)))
   8                         (layer (car (gimp-image-get-active-layer image)))
   9                 )
  10
  11                 (if (= gray 1)
  12                         (gimp-desaturate-full layer 1)
  13                 )
  14
  15                 (if (= alpha 1)
  16                         (gimp-layer-set-opacity layer 50.0)
  17                 )
  18
  19                 (set! layer (car (gimp-image-merge-visible-layers image 1)))
  20                 (file-tga-save 1 image layer fileOut fileOut 1 0)
  21                 (gimp-image-delete image)
  22         )
  23 )
  24