diff options
author | Anne Nicolas <ennael@mageia.org> | 2013-08-04 16:06:48 +0000 |
---|---|---|
committer | Anne Nicolas <ennael@mageia.org> | 2013-08-04 16:06:48 +0000 |
commit | b8fca061848039c6bdb629308340e1de3205176b (patch) | |
tree | 53aee191f39de05bb00579c40bfa5127a3676dc7 /gimp/scripts/gimp-convert-to-jpeg.scm | |
parent | 8b76dcbf71fa379d25d3db83a386391f0b9bb3dc (diff) | |
parent | bc2ef72a8c1fc97811d450d0016c44392a43dc4b (diff) | |
download | theme-distro/mga3.tar theme-distro/mga3.tar.gz theme-distro/mga3.tar.bz2 theme-distro/mga3.tar.xz theme-distro/mga3.zip |
mageia 3 themedistro/mga3
Diffstat (limited to 'gimp/scripts/gimp-convert-to-jpeg.scm')
-rw-r--r-- | gimp/scripts/gimp-convert-to-jpeg.scm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/gimp/scripts/gimp-convert-to-jpeg.scm b/gimp/scripts/gimp-convert-to-jpeg.scm new file mode 100644 index 0000000..29efef0 --- /dev/null +++ b/gimp/scripts/gimp-convert-to-jpeg.scm @@ -0,0 +1,17 @@ + +(define (gimp-convert-to-jpeg quality infile outfile) + (let* ((image (car (file-png-load 1 infile infile))) + ) + + (gimp-image-flatten image) + + (let* ((drawable (car (gimp-image-get-active-drawable image)))) + (if (= (car (gimp-drawable-is-rgb drawable)) FALSE) + (gimp-image-convert-rgb image)) + + (file-jpeg-save 1 image drawable outfile outfile quality 0 1 0 "Mageia Theme" 2 1 0 2 ) + (gimp-image-delete image) + ) + + ) +) |