Re: X-Face and depth

[palmieri@math.washington.edu (John H. Palmieri)]

[-- Attachment #1: Type: text/plain, Size: 1255 bytes --]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> Zlatko Calusic <zlatko.calusic@iskon.hr> writes:
>
>> Now, how do you make multilevel faces, that is my question?
>
> `gnus-convert-image-to-gray-x-face'.

This doesn't work for me: I get output like

  X-Face:compface: (warning) <stdin>: excess data ignored
  compface: (warning) <stdin>: excess data ignored
  X-Face-1:compface: (warning) <stdin>: excess data ignored
  compface: (warning) <stdin>: excess data ignored
  X-Face-2:compface: (warning) <stdin>: excess data ignored
  compface: (warning) <stdin>: excess data ignored

If I change this:

	    (shell-command-on-region
	     (point-min) (point-max)
	     "pbmtoxbm | compface"
	     (current-buffer) t)

to this:

	    (shell-command-on-region
	     (point-min) (point-max)
	     "pbmtoxbm | xbmtoikon | compface"
	     (current-buffer) t)

it works.  I found xbmtoikon here:

  <http://www.cs.indiana.edu/l/www/pub/faces/picons/src/bits-2.7.tar.Z>

I'm attaching xbmtoikon.  Perhaps someone could just translate it to lisp...

-- 
J. H. Palmieri                      
Dept of Mathematics, Box 354350    mailto:palmieri@math.washington.edu
University of Washington           http://www.math.washington.edu/~palmieri/
Seattle, WA 98195-4350

[-- Attachment #2: xbmtoikon (a shell script) --]
[-- Type: text/plain, Size: 460 bytes --]

#!/bin/sh -
PATH=$PATH:/l/picons/bits:/l/netpbm/bin

# xbmtoikon - convert an XBM bitmap to a Blit ikon bitmap
# Steve Kinzler, kinzler@cs.indiana.edu, Mar 91/Jan 95

# NOTE: This program has only been tested with 48x48 and 64x64 XBM inputs.

case "$1" in
-h)	echo "usage: $0 [ file ]" 1>&2; exit 1;;
esac

xbmtopbm ${1+"$@"} |
pbmtoicon |
sed '/^[ 	]*[*\/]/d; s/[ 	]//g; s/,$//' |
tr , '\012' |
sed 's/^0x//; s/^/0x/' |
pr -l1 -t -w22 -3 -s, |
sed 's/,*$/,/'