aboutsummaryrefslogtreecommitdiffhomepage
path: root/images/gimp
diff options
context:
space:
mode:
authorGravatar David Aspinall <da@inf.ed.ac.uk>1998-10-09 13:30:10 +0000
committerGravatar David Aspinall <da@inf.ed.ac.uk>1998-10-09 13:30:10 +0000
commit708b0d8a9d1cdd4965746aba3c2fe417f8d76d6b (patch)
treeffa90e4de4ba350bb05dc8128141c78dc283eeb7 /images/gimp
parent7065e45e59de0f76fe89ae5f8be549bbcb67f807 (diff)
Changed to build gif files for text logo.
Diffstat (limited to 'images/gimp')
-rw-r--r--images/gimp/scripts/proofgeneral.scm19
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"