lily/afm.cc

   1 /*
   2   afm.cc --  implement Adobe_font_metric
   3
   4   source file of the Flower Library
   5
   6   (c) 2000--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9 #include "afm.hh"
  10 #include "warn.hh"
  11 #include "molecule.hh"
  12
  13 Adobe_font_metric::Adobe_font_metric (AFM_Font_info * fi)
  14 {
  15   checksum_ = 0;
  16   font_inf_ = fi;
  17
  18   for (int i= 256; i--;)
  19     ascii_to_metric_idx_.push (-1);
  20
  21   for (int i=0; i < fi->numOfChars; i++)
  22     {
  23       AFM_CharMetricInfo * c = fi->cmi + i;
  24
  25       ascii_to_metric_idx_[c->code] = i;
  26       name_to_metric_dict_[c->name] = i;
  27     }
  28 }
  29
  30
  31 SCM
  32 Adobe_font_metric::make_afm (AFM_Font_info *fi, unsigned int checksum)
  33 {
  34   Adobe_font_metric * fm = new Adobe_font_metric (fi);
  35   fm->checksum_ = checksum;
  36   return fm->self_scm ();
  37 }
  38
  39
  40 AFM_CharMetricInfo const *
  41 Adobe_font_metric::find_ascii_metric (int a , bool warn) const
  42 {
  43   if (ascii_to_metric_idx_[a] >=0)
  44     {
  45       int code = ascii_to_metric_idx_[a];
  46       if (code>=0)
  47         {
  48           return font_inf_->cmi + code;
  49         }
  50     }
  51   else if (warn)
  52     {
  53       warning (_f ("can't find character number: %d", a));
  54     }
  55
  56   return 0;
  57 }
  58
  59 AFM_CharMetricInfo const *
  60 Adobe_font_metric::find_char_metric (String nm, bool warn) const
  61 {
  62   map<String,int>::const_iterator ai = name_to_metric_dict_.find (nm);
  63
  64   if (ai == name_to_metric_dict_.end ())
  65     {
  66       if (warn)
  67         {
  68           warning (_f ("can't find character called: `%s'", nm.ch_C ()));
  69         }
  70       return 0;
  71     }
  72   else
  73     return font_inf_->cmi + (*ai).second;
  74 }
  75
  76
  77 Box
  78 Adobe_font_metric::get_char (int code) const
  79 {
  80   AFM_CharMetricInfo const
  81     * c =  find_ascii_metric (code,false);
  82   Box b (Interval (0,0),Interval (0,0));
  83   if (c)
  84     b = afm_bbox_to_box (c->charBBox);
  85
  86   return b;
  87 }
  88
  89 SCM
  90 read_afm_file (String nm)
  91 {
  92   FILE *f = fopen (nm.ch_C () , "r");
  93   char s[2048];
  94   char *check_key = "TfmCheckSum";
  95   fgets (s, sizeof (s), f);
  96
  97   unsigned int cs = 0;
  98   if (strncmp (s, check_key, strlen (check_key)) == 0)
  99     {
 100       sscanf (s + strlen (check_key), "%ud", &cs);
 101     }
 102   else
 103     {
 104       rewind (f);
 105     }
 106
 107
 108   AFM_Font_info * fi;
 109   int ok = AFM_parseFile (f, &fi, ~1);
 110
 111   if (ok)
 112     {
 113       error (_f ("Error parsing AFM file: %s", nm.ch_C ()));
 114       exit (2);
 115     }
 116   fclose (f);
 117
 118   return Adobe_font_metric::make_afm (fi, cs);
 119 }
 120
 121
 122 Box
 123 afm_bbox_to_box (AFM_BBox bb)
 124 {
 125   return Box (Interval (bb.llx, bb.urx)* (1/1000.0),
 126               Interval (bb.lly, bb.ury)* (1/1000.0));
 127
 128 }
 129
 130
 131 Adobe_font_metric::~Adobe_font_metric ()
 132 {
 133   AFM_free (font_inf_);
 134 }
 135
 136 /*
 137   return a molecule, without fontification
 138  */
 139 Molecule
 140 Adobe_font_metric::find_by_name (String s) const
 141 {
 142   AFM_CharMetricInfo const *cm = find_char_metric (s, false);
 143
 144   if (!cm)
 145     {
 146       Molecule m;
 147       m.set_empty (false);
 148       return m;
 149     }
 150
 151   SCM at = (gh_list (ly_symbol2scm ("char"),
 152                       gh_int2scm (cm->code),
 153                       SCM_UNDEFINED));
 154
 155   //  at= fontify_atom ((Font_metric*)this, at);
 156   Box b = afm_bbox_to_box (cm->charBBox);
 157
 158   return Molecule (b, at);
 159 }