From 87016891f0a0485ac9b3673081511cdda855c6af Mon Sep 17 00:00:00 2001 From: Frederic Crozat Date: Thu, 28 Feb 2008 16:44:05 +0000 Subject: Ship backgrounds as jpeg --- gimp/scripts/gimp-convert-to-jpeg.scm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 gimp/scripts/gimp-convert-to-jpeg.scm (limited to 'gimp/scripts/gimp-convert-to-jpeg.scm') diff --git a/gimp/scripts/gimp-convert-to-jpeg.scm b/gimp/scripts/gimp-convert-to-jpeg.scm new file mode 100644 index 0000000..f184b88 --- /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 "Mandriva Theme" 2 1 0 2 ) + (gimp-image-delete image) + ) + + ) +) -- cgit v1.2.1 From dc1957254f7278478414368d919a891ceb967ab3 Mon Sep 17 00:00:00 2001 From: Thomas Backlund Date: Sun, 13 Feb 2011 19:59:23 +0000 Subject: change all paths from mdk to mga --- gimp/scripts/gimp-convert-to-jpeg.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gimp/scripts/gimp-convert-to-jpeg.scm') diff --git a/gimp/scripts/gimp-convert-to-jpeg.scm b/gimp/scripts/gimp-convert-to-jpeg.scm index f184b88..29efef0 100644 --- a/gimp/scripts/gimp-convert-to-jpeg.scm +++ b/gimp/scripts/gimp-convert-to-jpeg.scm @@ -9,7 +9,7 @@ (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 "Mandriva Theme" 2 1 0 2 ) + (file-jpeg-save 1 image drawable outfile outfile quality 0 1 0 "Mageia Theme" 2 1 0 2 ) (gimp-image-delete image) ) -- cgit v1.2.1