X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fafm.cc;h=0bc5aac07d4879eafac1feb10ef66683bc1b5e3e;hb=634ad74db688a5305f001917453c5cd15305c539;hp=746c6eb123b5f4da5e857230bb3efa61af168d64;hpb=94189ec2b8da6d7e89dc619c646a927adead9b19;p=lilypond.git diff --git a/lily/afm.cc b/lily/afm.cc index 746c6eb123..0bc5aac07d 100644 --- a/lily/afm.cc +++ b/lily/afm.cc @@ -1,159 +1,187 @@ /* - afm.cc -- implement Adobe_font_metric + 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 + (c) 2000--2005 Han-Wen Nienhuys */ + #include "afm.hh" + +#include + #include "warn.hh" -#include "molecule.hh" +#include "libc-extension.hh" +#include "dimensions.hh" -Adobe_font_metric::Adobe_font_metric (AFM_Font_info * fi) +Adobe_font_metric::Adobe_font_metric (AFM_Font_info *fi) { checksum_ = 0; - font_inf_ = fi; - - for (int i= 256; i--;) + font_info_ = fi; + design_size_ = 1.0; + + for (int i = 256 >? fi->numOfChars; i--;) ascii_to_metric_idx_.push (-1); - for (int i=0; i < fi->numOfChars; i++) + 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; } } +Adobe_font_metric::~Adobe_font_metric () +{ + AFM_free (font_info_); +} SCM -Adobe_font_metric::make_afm (AFM_Font_info *fi, unsigned int checksum) +Adobe_font_metric::make_afm (AFM_Font_info *fi, + unsigned int checksum, + Real design_size) { - Adobe_font_metric * fm = new Adobe_font_metric (fi); + Adobe_font_metric *fm = new Adobe_font_metric (fi); fm->checksum_ = checksum; - return fm->self_scm(); + fm->design_size_ = design_size; + return fm->self_scm (); } - -AFM_CharMetricInfo const * -Adobe_font_metric::find_ascii_metric (int a , bool warn) const +AFM_CharMetricInfo const* +Adobe_font_metric::find_ascii_metric (int a) const { - if (ascii_to_metric_idx_[a] >=0) + if (ascii_to_metric_idx_[a] >= 0) { int code = ascii_to_metric_idx_[a]; - if (code>=0) - { - return font_inf_->cmi + code; - } - } - else if (warn ) - { - warning (_f ("can't find character number: %d", a)); + if (code >= 0) + return font_info_->cmi + code; } + return 0; +} +AFM_CharMetricInfo const* +Adobe_font_metric::find_char_metric (String nm) const +{ + int idx = name_to_index (nm); + if (idx >= 0) + return font_info_->cmi + idx; return 0; } -AFM_CharMetricInfo const * -Adobe_font_metric::find_char_metric (String nm, bool warn) const +int +Adobe_font_metric::name_to_index (String name) const { - map::const_iterator ai = name_to_metric_dict_.find (nm); - + std::map::const_iterator ai = name_to_metric_dict_.find (name); if (ai == name_to_metric_dict_.end ()) - { - if (warn) - { - warning (_f ("can't find character called: `%s'", nm.ch_C())); - } - return 0; - } - else - return font_inf_->cmi + (*ai).second; + return -1; + return (*ai).second; } +int +Adobe_font_metric::count () const +{ + return font_info_->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); - Box b (Interval (0,0),Interval(0,0)); + AFM_CharMetricInfo const *c = find_ascii_metric (code); + Box b (Interval (0, 0), Interval (0, 0)); if (c) - b = afm_bbox_to_box (c->charBBox); - + b = afm_bbox_to_box (c->charBBox); return b; } +int +Adobe_font_metric::index_to_ascii (int code) const +{ + return font_info_->cmi[code].code; +} + +Box +Adobe_font_metric::get_indexed_char (int code) const +{ + if (code >= 0) + return afm_bbox_to_box (font_info_->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"); - char s[2048]; - char *check_key = "TfmCheckSum"; - fgets (s, sizeof (s), f); + FILE *f = fopen (nm.to_str0 () , "r"); + char s[2048] = ""; + char *check_key = "Comment TfmCheckSum"; + char *size_key = "Comment DesignSize"; - 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; + Real ds = 1.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); + else if (strncmp (s, size_key, strlen (size_key)) == 0) + sscanf (s + strlen (size_key), "%lf", &ds); } - + + rewind (f); - AFM_Font_info * fi; - int ok = AFM_parseFile (f, &fi, ~1); + AFM_Font_info *fi; + int ok = AFM_parseFile (f, &fi, ~0); 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); + return Adobe_font_metric::make_afm (fi, cs, ds); } - 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)); - +#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 } - -Adobe_font_metric::~Adobe_font_metric () +Offset +Adobe_font_metric::get_indexed_wxwy (int k) const { - AFM_free (font_inf_); + AFM_CharMetricInfo const *mi = font_info_->cmi + k; +#if 1 /* Fine for feta; ec-fonts-mftraced do not have AFM :-( */ + return Offset (mi->wx, mi->wy) * 0.001 PT; +#else /* FIXME: about right for lmodern. */ + return Offset (mi->wx, mi->wy) * 1.14 * 0.001 PT; +#endif } -/* - return a molecule, without fontification - */ -Molecule -Adobe_font_metric::find_by_name (String s) const +Real +Adobe_font_metric::design_size () const { - AFM_CharMetricInfo const *cm = find_char_metric (s, false); + return design_size_; +} - if (!cm) - { - Molecule m; - m.set_empty (false); - return m; - } - - SCM at = (gh_list (ly_symbol2scm ("char"), - gh_int2scm (cm->code), - SCM_UNDEFINED)); - - // at= fontify_atom ((Font_metric*)this, at); - Box b = afm_bbox_to_box (cm->charBBox); - return Molecule (b, at); + +String +Adobe_font_metric::font_name () const +{ + return font_info_->gfi->fontName; }