Re: compface

[Mark Trettin <Mark.Trettin@gmx.de>]

* On: Tue, 15 Jan 2002 23:42:56 +0100 Simon Josefsson writes:
> The compface's I have tried (compface RPMs and compface from freshmeat)
> doesn't seem to work, or maybe the pbmtoxbm program I have doesn't work.
> Compface seem to want 48 lines each containing of 16 bit C integers, but
> pbmtoxbm outputs a C character array. pbmtox10bm (X10 bitmap format)
> outputs 16 bit integers but not three per line.  If I manually edit it
> to make compface happy it outputs the X-Face in this message, which
> looks corrupt.  Any ideas?

Maybe the following Perl-Skript works for you too -- it is part of the
SuSi 7.2 compface-Package:

--8<----------------------- schnipp ------------------------>8---
#!/usr/bin/perl
#
# xbm2xface -- convert a 48x48 xbm file to an xface header
#
#					   Stig@hackvan.com

sub reverse_byte {
    local($byte) = @_;
    local($n, $b);
    for ( $b= $n= 0; $b<8; ++$b) {
	$n |= (($byte & 1) << (7-$b));
	$byte >>= 1;
    }
    return($n);
}

#printf "0x%02x\n", &reverse_byte(0xF0);

<>;
m/^#define \w+_width (\d+)/ && ($width=$1);
<>;
m/^#define \w+_height (\d+)/ && ($height=$1);
<>;
m/^static.* = \{/ && (( $width == 48 && $height == 48 )
		      || die "xfaces are 48x48" );

open(CF,"|compface");

while (<>) {
    $st="";
    while (s/(0x..)(,|\};)\s*//) {
	$st .= sprintf("0x%02x, ", &reverse_byte(eval($1)));
    }
    $_=$st;
    s/(0x..), 0x(..)/\1\2/g;
    s/\s*(0x...., 0x...., 0x....)(,|\};)\s/\1,\n/g;
    print CF $_;
}
close (CF);
--8<----------------------- schnapp ------------------------>8---

With that the following should work (on-the-fly-convertion):
(setq gnus-convert-image-to-x-face-command "giftopnm %s | ppmnorm 2>/dev/null | pnmscale 2>/dev/null -width 48 -height 48 | ppmtopgm | pgmtopbm | pbmtoxbm | xbm2xface.pl")

[...]

HTH

   Mark
-- 
Mark Trettin · Aachen · Germany · Where is Aachen? --> N: 50°46' E: 06°05'
BOFH excuse #53:
Little hamster in running wheel had coronary; waiting for replacement 
to be Fedexed from Wyoming