/*
afm.cc -- implement Adobe_font_metric
- source file of the Flower Library
+ source file of the GNU LilyPond music typesetter
- (c) 2000--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 2000--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
+
+#include <string.h>
+
+#include "warn.hh" // error()
+#include "libc-extension.hh"
#include "afm.hh"
-#include "warn.hh"
-#include "molecule.hh"
+#include "stencil.hh"
+#include "dimensions.hh"
Adobe_font_metric::Adobe_font_metric (AFM_Font_info * fi)
{
checksum_ = 0;
font_inf_ = fi;
- for (int i= 256; i--;)
+ for (int i= 256 >? fi->numOfChars; i--;)
ascii_to_metric_idx_.push (-1);
for (int i=0; i < fi->numOfChars; 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;
}
}
AFM_CharMetricInfo const *
-Adobe_font_metric::find_ascii_metric (int a , bool warn) const
+Adobe_font_metric::find_ascii_metric (int a) const
{
if (ascii_to_metric_idx_[a] >=0)
{
return font_inf_->cmi + code;
}
}
- else if (warn)
- {
- warning (_f ("can't find character number: %d", a));
- }
return 0;
}
+
+
AFM_CharMetricInfo const *
-Adobe_font_metric::find_char_metric (String nm, bool warn) const
+Adobe_font_metric::find_char_metric (String nm) const
+{
+ int idx = name_to_index (nm);
+ if (idx >= 0)
+ return font_inf_->cmi+ idx;
+ else
+ return 0;
+}
+
+int
+Adobe_font_metric::name_to_index (String nm)const
{
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 ()));
- }
- return 0;
- }
+ return -1;
else
- return font_inf_->cmi + (*ai).second;
+ return (*ai).second;
}
int
Adobe_font_metric::count () const
{
- return ascii_to_metric_idx_.size ();
+ return font_inf_->numOfChars ;
}
Box
-Adobe_font_metric::get_char (int code) const
+Adobe_font_metric::get_ascii_char (int code) const
{
AFM_CharMetricInfo const
- * c = find_ascii_metric (code,false);
+ * c = find_ascii_metric (code);
Box b (Interval (0,0),Interval (0,0));
if (c)
b = afm_bbox_to_box (c->charBBox);
return b;
}
+
+Box
+Adobe_font_metric::get_indexed_char (int code) const
+{
+ if (code>= 0)
+ return afm_bbox_to_box (font_inf_->cmi[code].charBBox);
+ else
+ return Box (Interval (0,0),Interval (0,0));
+}
+
SCM
read_afm_file (String nm)
{
- FILE *f = fopen (nm.ch_C () , "r");
+ FILE *f = fopen (nm.to_str0 () , "r");
char s[2048];
- char *check_key = "TfmCheckSum";
- fgets (s, sizeof (s), f);
+ char *check_key = "Comment TfmCheckSum";
- unsigned int cs = 0;
- if (strncmp (s, check_key, strlen (check_key)) == 0)
- {
- sscanf (s + strlen (check_key), "%ud", &cs);
- }
- else
+ unsigned int cs = 0;
+
+ s[0] = 0;
+ /* Assume check_key in first 10 lines */
+ for (int i = 0; i < 10; i++)
{
- rewind (f);
+ fgets (s, sizeof (s), f);
+ if (strncmp (s, check_key, strlen (check_key)) == 0)
+ {
+ sscanf (s + strlen (check_key), "%ud", &cs);
+ break;
+ }
}
-
+
+ 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.to_str0 ()));
exit (2);
}
fclose (f);
return Adobe_font_metric::make_afm (fi, cs);
}
-
+
+/*
+ actually, AFMs will be printers point, usually, but our .py script dumps
+ real points.
+ */
Box
afm_bbox_to_box (AFM_BBox bb)
{
- return Box (Interval (bb.llx, bb.urx)* (1/1000.0),
- Interval (bb.lly, bb.ury)* (1/1000.0));
+ return Box (Interval (bb.llx, bb.urx)* (1/1000.0) PT,
+ Interval (bb.lly, bb.ury)* (1/1000.0) PT);
}
-
+
+Offset
+Adobe_font_metric::get_indexed_wxwy (int k)const
+{
+ AFM_CharMetricInfo const *mi = font_inf_->cmi+ k;
+ return 1/1000.0 PT * Offset (mi->wx, mi->wy);
+}
+
+
Adobe_font_metric::~Adobe_font_metric ()
{
}
/*
- return a molecule, without fontification
+ return a stencil, without fontification
*/
-Molecule
+Stencil
Adobe_font_metric::find_by_name (String s) const
{
- AFM_CharMetricInfo const *cm = find_char_metric (s, false);
+ AFM_CharMetricInfo const *cm = find_char_metric (s);
if (!cm)
{
- Molecule m;
+ /*
+ Why don't we return empty?
+ */
+
+ Stencil m;
m.set_empty (false);
return m;
}
- SCM at = (gh_list (ly_symbol2scm ("char"),
- gh_int2scm (cm->code),
+ SCM at = (scm_list_n (ly_symbol2scm ("char"),
+ scm_int2num (cm->code),
SCM_UNDEFINED));
// at= fontify_atom ((Font_metric*)this, at);
Box b = afm_bbox_to_box (cm->charBBox);
- return Molecule (b, at);
+ return Stencil (b, at);
}