#!/usr/bin/perl -w 

die "Usage: font2raw.pl <input> <output> <texture-name>\n" unless $#ARGV==2;

$in = shift;
$out = shift;
$name = shift;
$idx=0;

open(INFILE, "<$in") or die "Can't open $in: $!";
open(OUTFILE, ">$out") or die "Can't open $out: $!";

printf (OUTFILE "unsigned char %s[]={ \n\t", $name); 

while( read(INFILE, $byte, 3) != 0 ) {
    $r = vec($byte, 0, 8);

    read(INFILE, $byte2, 3);

    $r2 = vec($byte2, 0, 8);
    printf OUTFILE "0x%02x, ", ($r / 16 << 4 | $r2 / 16 );
    $idx++;
    if ($idx%13==0) {
        printf OUTFILE "\n\t";
    }
}

printf (OUTFILE "};\n"); 


close INFILE;
close OUTFILE;