From 4905f4712b7e272b4d6eae3f703abee06745daa7 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Sat, 23 Sep 2000 14:26:21 +0000 Subject: Remove obsolete xbms --- images/gimp/scripts/proofgeneral.scm | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) (limited to 'images') diff --git a/images/gimp/scripts/proofgeneral.scm b/images/gimp/scripts/proofgeneral.scm index 369b6ca5..68c3921b 100644 --- a/images/gimp/scripts/proofgeneral.scm +++ b/images/gimp/scripts/proofgeneral.scm @@ -16,8 +16,7 @@ (let* ((filename (string-append buttonname ".xcf")) (image (car (gimp-file-load 1 filename filename))) (xpmname (string-append buttonname ".xpm")) - (poor-xpm (string-append buttonname ".8bit.xpm")) - (xbmname (string-append buttonname ".xbm"))) + (poor-xpm (string-append buttonname ".8bit.xpm"))) (gimp-image-flatten image) ;; Full xpm (gimp-file-save 1 image (car (gimp-image-active-drawable image)) @@ -26,14 +25,6 @@ (gimp-convert-indexed image 1 0 8 1 1 "blah") (gimp-file-save 1 image (car (gimp-image-active-drawable image)) poor-xpm poor-xpm) - ;; Mono image - (gimp-convert-rgb image) - (gimp-image-flatten image) - (gimp-convert-indexed image 1 1 3 2 1 "blah") - (file-xbm-save 1 image (car (gimp-image-active-drawable image)) - xbmname xbmname - "Proof General button" - FALSE 0 0 "") ;; Finish (gimp-image-delete image) )) -- cgit v1.2.3