Mercurial > hg > forks > pwpunix
view oldchsool/font.pl @ 41:5828a0cb4d10
Add some more documentation.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 24 May 2010 03:48:17 +0300 |
parents | acb5694e93d9 |
children |
line wrap: on
line source
#!/opt/bin/perl5 ##!/usr/bin/perl sub encode_font() { @lines=split("\n",$_[0]); $widths=""; $offsets=""; $crroff=0; for($i=0;$i<$#lines;$i+=8) { $byte=0; $x=0; do { $byte=0; for($j=0;$j<8;$j++) { if(substr($lines[$i+$j],$x,1) eq 'a') { $byte |= (1<<$j); } } if($byte!=0) { printf("0x%x,",$byte); $crroff++; } $x++; } while($byte!=0); $lengths.=sprintf("%d,",$x); print "0x00,\n"; } } print "unsigned char font[]={\n"; &encode_font(<<EOD); ... ... ... ... ... ... ... .aaaaa .a..aa .a..aa aaaaaa aa..aa aa..aa aa..aa aaaaa. aa..a. aa..a. aaaaaa aa...a aa...a aaaaaa .aaaaa .a.... .a.... aa.... aa.... aa.... aaaaaa aaaaa. a...a. a...a. a...aa a...aa a...aa aaaaaa .aaaaa .a.... .a.... aaaa.. aa.... aa.... aaaaaa .aaaaa .a.... .a.... aaaa.. aa.... aa.... aa.... .aaaaa .a.... .a.... aa..aa aa..aa aa...a aaaaaa .a..aa .a..aa .a..aa aaaaaa aa..aa aa..aa aa..aa .a .a .a aa aa aa aa ....a ....a ....a ...aa ...aa aa.aa aaaaa a...aaa a..aa.. a.aa... aaaa... aa.aa.. aa..aaa aa..aaa .a.... .a.... .a.... aa.... aa.... aa.... aaaaaa .aaaaaaa .a..a.aa .a..a.aa aa.aa.aa aa.aa.aa aa.aa.aa aa.aa.aa .aaaaa .a..aa .a..aa aa..aa aa..aa aa..aa aa..aa .aaaaa .a...a .a...a aa...a aa...a aa...a aaaaaa aaaaaa a....a a....a aaaaaa aa.... aa.... aa.... .aaaaa .a...a .a...a aa...a aa.aaa aa..aa aaaaaa .aaaaa .a.... .a.... aa.... aa.... aa.... aa.... .aaaaa .a.... .a.... .aaaaa ....aa ....aa aaaaaa aaaaaa ...a.. ...a.. ..aa.. ..aa.. ..aa.. ..aa.. a...aa a...aa a...aa aa..aa aa..aa aa..aa aaaaaa aa..aa aa..aa aa..aa aa..aa .aa.a. .aa.a. .aaaa. aa.aa.aa aa.aa.aa aa.aa.aa aa.aa.aa .a.aa.a. .a.aa.a. .aaaaaa. aa..aaaa aa..a... aa..a... aaaaaaaa ...aa..a ...aa..a aaaaa..a aa...a aa...a aa...a aaaaaa ....aa ....aa aaaaaa aaaaaa .....a .....a aaaaaa aa.... aa.... aaaaaa aa.aa. ...... aaaaa. aa..a. aaaaaa aa..aa aa..aa .aa.aa ...... .aaaaa .a..aa aa..aa aa..aa aaaaaa .... .... .... aaaa ..aa .... .... EOD print "};\n\nchar font_lengths[]={$lengths};\n\n";