diff options
Diffstat (limited to 'gimp/scripts/gimp-convert-to-jpeg.scm')
| -rw-r--r-- | gimp/scripts/gimp-convert-to-jpeg.scm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/gimp/scripts/gimp-convert-to-jpeg.scm b/gimp/scripts/gimp-convert-to-jpeg.scm deleted file mode 100644 index 29efef0..0000000 --- a/gimp/scripts/gimp-convert-to-jpeg.scm +++ /dev/null @@ -1,17 +0,0 @@ - -(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) - ) - - ) -) |