$point_size = $vpixels;
$point_size10 = 10 * $point_size;
-while (<>) { chomp; $glyph{$1} = $2 if /(....):(.+)/; }
+while (<>) { chomp; $glyph{$1} = $2 if /^([0-9a-fA-F]+):([0-9a-fA-F]+)/; }
@chars = sort keys %glyph;
$nchars = $#chars + 1;
FONT_DESCENT 2
DEFAULT_CHAR 65533
ENDPROPERTIES
-CHARS $nchars\n";
+CHARS $nchars\n" or die ("Cannot print to stdout.\n");
# TODO: $swidth needs to be modified to accomodate different widths better
# for glyphs with height different than 16 pixels.
DWIDTH $dwidth 0
BBX $dwidth $vpixels 0 -2
BITMAP $glyph
-ENDCHAR\n";
+ENDCHAR\n" or die ("Cannot print to stdout.\n");
}
-print "ENDFONT\n";
+print "ENDFONT\n" or die ("Cannot print to stdout.\n");