diff options
author | David Aspinall <da@inf.ed.ac.uk> | 1998-10-09 13:30:10 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 1998-10-09 13:30:10 +0000 |
commit | 708b0d8a9d1cdd4965746aba3c2fe417f8d76d6b (patch) | |
tree | ffa90e4de4ba350bb05dc8128141c78dc283eeb7 /images/gimp | |
parent | 7065e45e59de0f76fe89ae5f8be549bbcb67f807 (diff) |
Changed to build gif files for text logo.
Diffstat (limited to 'images/gimp')
-rw-r--r-- | images/gimp/scripts/proofgeneral.scm | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/images/gimp/scripts/proofgeneral.scm b/images/gimp/scripts/proofgeneral.scm index e1cc236b..f2a912da 100644 --- a/images/gimp/scripts/proofgeneral.scm +++ b/images/gimp/scripts/proofgeneral.scm @@ -57,21 +57,28 @@ "1998/10/04" "") -(define (script-fu-proofgeneral-save-jpg imgname) +(define (script-fu-proofgeneral-save-pic imgname) (let* ((filename (string-append imgname ".xcf")) (image (car (gimp-file-load 1 filename filename))) (jpgname (string-append imgname ".jpg")) - (gifname (string-append imgname ".gif"))) + (gifname (string-append imgname ".gif")) + (poorgifname (string-append imgname ".8bit.gif"))) ;; Flatten and save as jpg (gimp-image-flatten image) (file-jpeg-save 1 image (car (gimp-image-active-drawable image)) jpgname jpgname 0.75 0 1) - ;; Poor jpegs for display in XEmacs, limit to 10 colours. - (gimp-convert-indexed image 1 10) + ;; gif with full palette + (gimp-convert-indexed image 1 256) (file-gif-save 1 image (car (gimp-image-active-drawable image)) gifname gifname FALSE FALSE 0 0) + ;; gif with impoverished palette for display in XEmacs + (gimp-convert-rgb image) + (gimp-convert-indexed image 1 15) + (file-gif-save 1 image (car (gimp-image-active-drawable image)) + poorgifname poorgifname + FALSE FALSE 0 0) ;; Finish (gimp-image-delete image) )) @@ -85,8 +92,8 @@ SF-VALUE "Basename" "\"test\"") -(define (script-fu-proofgeneral-save-all-jpegs) - (mapcar script-fu-proofgeneral-save-jpg +(define (script-fu-proofgeneral-save-all-pix) + (mapcar script-fu-proofgeneral-save-pic '("ProofGeneral" "text_proof" "text_general"))) (script-fu-register "script-fu-proofgeneral-save-all-jpegs" |