blob: f184b88a1d6a92bbeb54d4adba4480fc8e7c61bb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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)
)
)
)
|
