#!/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/,*$/,/'