+
+ rewind (f);
+
+ AFM_Font_info *fi;
+ int e = AFM_parseFile (f, &fi, ~0);
+
+ if (e)
+ error (_f ("parsing AFM file: `%s'", nm.to_str0 ()));
+ fclose (f);
+
+ return Adobe_font_metric::make_afm (fi, cs, ds);
+}
+
+Box
+afm_bbox_to_box (AFM_BBox bb)
+{
+#if 1 /* Fine for feta; ec-fonts-mftraced do not have AFM. */
+ return Box (Interval (bb.llx, bb.urx) * 0.001 PT,
+ Interval (bb.lly, bb.ury) * 0.001 PT);
+#else /* FIXME: about right for lmodern. */
+ return Box (Interval (bb.llx, bb.urx) * 1.14 * 0.001 PT,
+ Interval (bb.lly, bb.ury) * 1.14 * 0.001 PT);
+#endif