Product information PDF
(2.2Mbytes)
1 for (<>) {
2 if (/^BITMAP\n$/../^ENDCHAR\n$/) {
3 print, next if /^(BITMAP|ENDCHAR)\n$/;
4 $n = eval "0x$_";
5 for ($r = 0; $r < 8; $r++) {
6 for ($bit = 0200; $bit > 0200 >> $bbw; $bit >>= 1) {
7 print $bit & $n ? "FF" : "00";
8 }
9 print "\n";
10 }
11 } elsif (/^(SIZE|DWIDTH|SWIDTH|BBX|FONTBOUNDINGBOX
12 |FONT_ASCENT|FONT_DESCENT)\s((-?\d+\s*)+)/x) {
13 print $1;
14 $bbw = 1 * $2 if $1 eq 'BBX';
15 print " ", $_ * 8 for split /\s+/, $2;
16 print "\n";
17 } else {
18 print;
19 }
20 }
TODO write something
