5 our ($w,$h,$xo,$yo,$y,$bitmap,$glyph);
8 if ($state eq 'bitmap' && $y==$h) {
11 if ($state eq 'bitmap') {
12 m/^([0-9a-fA-F]+)\s+$/ or die $y;
13 length($1) == (($w+7 >> 3) << 1) or die "$1 $w";
16 if ($state eq 'begin' && m/^FOUNDRY\s+\"Misc\"\s+/i) {
20 if ($state eq 'idle' && m/^STARTCHAR\s/) {
24 if ($state eq 'startchar') {
25 if (m/^BBX\s+(\+?\d+)\s+(\+?\d+)\s+([-+]?\d+)\s+([-+]?\d+)\s+$/) {
26 ($w,$h,$xo,$yo) = ($1,$2,$3,$4);
29 die unless defined $w;