source file of the Flower Library
- (c) 2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 2000--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "afm.hh"
Adobe_font_metric::Adobe_font_metric (AFM_Font_info * fi)
{
+ checksum_ = 0;
font_inf_ = fi;
for (int i= 256; i--;)
{
AFM_CharMetricInfo * c = fi->cmi + i;
- ascii_to_metric_idx_[c->code] = i;
+ /*
+ Some TeX afm files contain code = -1. We don't know why, let's
+ ignore it.
+
+ */
+ if (c->code >= 0)
+ ascii_to_metric_idx_[c->code] = i;
name_to_metric_dict_[c->name] = i;
}
}
SCM
-Adobe_font_metric::make_afm (AFM_Font_info *fi)
+Adobe_font_metric::make_afm (AFM_Font_info *fi, unsigned int checksum)
{
Adobe_font_metric * fm = new Adobe_font_metric (fi);
-
- return fm->self_scm();
+ fm->checksum_ = checksum;
+ return fm->self_scm ();
}
return font_inf_->cmi + code;
}
}
- else if (warn )
+ else if (warn)
{
warning (_f ("can't find character number: %d", a));
}
AFM_CharMetricInfo const *
Adobe_font_metric::find_char_metric (String nm, bool warn) const
{
- map<String,int>::const_iterator ai = name_to_metric_dict_.find (nm);
+ std::map<String,int>::const_iterator ai = name_to_metric_dict_.find (nm);
if (ai == name_to_metric_dict_.end ())
{
if (warn)
{
- warning (_f ("can't find character called: `%s'", nm.ch_C()));
+ warning (_f ("can't find character called: `%s'", nm.ch_C ()));
}
return 0;
}
return font_inf_->cmi + (*ai).second;
}
+int
+Adobe_font_metric::count () const
+{
+ return ascii_to_metric_idx_.size ();
+}
Box
-Adobe_font_metric::get_char (int code, Real mag) const
+Adobe_font_metric::get_char (int code) const
{
AFM_CharMetricInfo const
* c = find_ascii_metric (code,false);
- Box b (Interval (0,0),Interval(0,0));
+ Box b (Interval (0,0),Interval (0,0));
if (c)
b = afm_bbox_to_box (c->charBBox);
- b.scale (mag);
return b;
}
SCM
read_afm_file (String nm)
{
- FILE *f = fopen (nm.ch_C() , "r");
+ FILE *f = fopen (nm.ch_C () , "r");
+ char s[2048];
+ char *check_key = "TfmCheckSum";
+ fgets (s, sizeof (s), f);
+ unsigned int cs = 0;
+ if (strncmp (s, check_key, strlen (check_key)) == 0)
+ {
+ sscanf (s + strlen (check_key), "%ud", &cs);
+ }
+ else
+ {
+ rewind (f);
+ }
+
+
AFM_Font_info * fi;
int ok = AFM_parseFile (f, &fi, ~1);
if (ok)
{
- error (_f ("Error parsing AFM file: %s", nm.ch_C ()));
+ error (_f ("Error parsing AFM file: `%s'", nm.ch_C ()));
exit (2);
}
fclose (f);
- return Adobe_font_metric::make_afm (fi);
+ return Adobe_font_metric::make_afm (fi, cs);
}
AFM_free (font_inf_);
}
+/*
+ return a molecule, without fontification
+ */
Molecule
-Adobe_font_metric::find_by_name (String s, Real mag) const
+Adobe_font_metric::find_by_name (String s) const
{
AFM_CharMetricInfo const *cm = find_char_metric (s, false);
return m;
}
- SCM at = (gh_list (ly_symbol2scm ("char"),
+ SCM at = (scm_list_n (ly_symbol2scm ("char"),
gh_int2scm (cm->code),
SCM_UNDEFINED));
- at= fontify_atom ((Font_metric*)this, at);
+ // at= fontify_atom ((Font_metric*)this, at);
Box b = afm_bbox_to_box (cm->charBBox);
- b.scale (mag);
+
return Molecule (b, at);
}