File xbm2face of Package compface

#!/bin/sh
#
# xbm2face
# convert an X11 bitmap to a Blit ikon bitmap, and then to a face
# compressed bitmap for use in the mail X-Face header. Requires some
# bitmap filters from the pbmplus package, and the compface program
# from the faces package.
#
# Anthony Thyssen 17 Dec 1993 anthony@cit.gu.edu.au
#
xbmtopbm "$@" | pbmtoicon |
sed -e 1,2d -e '$s/$/,/' |
tr -d '\011\012' | tr ',' '\012' |
pr -l1 -t -w22 -3 -s, |
sed -e 's/$/,/' -e 's/\(0x....\)\(0x....\)\(0x....\),/\1,\2,\3,/' |
compface