font2asm

一款MP3 Player Firmware 的原代码,非常有参考价值

#! /usr/bin/perl

for ($i=0; $i<1280; $i++) {
	$mem[$i] = 0;
}

while (<>) {
	$char = -1;
	if (/(.)([1-8])\t([ \*])([ \*])([ \*])([ \*])([ \*])/) {
		$char = ord($1);
		$pos = $2 - 1;
		@pixel = ($3, $4, $5, $6, $7);
	}
	if (/([0-9]+) ([1-8])\t([ \*])([ \*])([ \*])([ \*])([ \*])/) {
		$char = $1;
		$pos = $2 - 1;
		@pixel = ($3, $4, $5, $6, $7);
	}
	next if $char == -1;

	$mem[$char * 5 + 0] |= (1 << $pos) if ($3 eq '*');
	$mem[$char * 5 + 1] |= (1 << $pos) if ($4 eq '*');
	$mem[$char * 5 + 2] |= (1 << $pos) if ($5 eq '*');
	$mem[$char * 5 + 3] |= (1 << $pos) if ($6 eq '*');
	$mem[$char * 5 + 4] |= (1 << $pos) if ($7 eq '*');
}

for ($i=0; $i<128; $i++) {
	print "\t.db\t";
	for ($j=0; $j<10; $j++) {
		printf("0x%02X", $mem[$i * 10 + $j]);
		print ", " unless $j >= 9;
	}
	print "\n";
	print "\n" if ($i + 1) % 16 == 0;
}