gfx/hud/wickedhud/totga.scm

   1 ;Converts image files to .tga (RLE compressed).
   2 ;Input: fileIN
   3
   4 (define (totga fileIn)
   5         (let*
   6                 (
   7                         (image (car (gimp-file-load 1 fileIn fileIn)))
   8                         (layer (car (gimp-image-get-active-layer image)))
   9                         (name (car (gimp-image-get-filename image)))
  10                 )
  11
  12                 (set! name (substring name 0 (- (string-length name) 4)))
  13                 (set! name (string-append name ".tga"))
  14
  15                 (set! layer (car (gimp-image-merge-visible-layers image 1)))
  16                 (file-tga-save 1 image layer name name 1 0)
  17                 (gimp-image-delete image)
  18         )
  19 )
  20