lily/font-metric.cc

   1 /*
   2   font-metric.cc --  implement Font_metric
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1999--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8     Mats Bengtsson <matsb@s3.kth.se> (the ugly TeX parsing in text_dimension)
   9  */
  10
  11 #include <math.h>
  12 #include <ctype.h>
  13
  14 #include "warn.hh"
  15 #include "molecule.hh"
  16 #include "ly-smobs.icc"
  17 #include "font-metric.hh"
  18 #include "string.hh"
  19
  20 Box
  21 Font_metric::text_dimension (String text) const
  22 {
  23   Interval ydims;
  24   Real w=0.0;
  25
  26   for (int i = 0; i < text.length_i (); i++)
  27     {
  28
  29       switch (text[i])
  30         {
  31         case '\\':
  32   // accent marks use width of base letter
  33          if (i +1 < text.length_i ())
  34            {
  35              if (text[i+1]=='\'' || text[i+1]=='`' || text[i+1]=='"' ||
  36                  text[i+1]=='^')
  37                {
  38                  i++;
  39                  break;
  40                }
  41              // for string width \\ is a \ and \_ is a _.
  42              if (text[i+1]=='\\' || text[i+1]=='_')
  43                {
  44                  break;
  45                }
  46            }
  47
  48           for (i++; (i < text.length_i ()) && !isspace (text[i])
  49                  && text[i]!='{' && text[i]!='}'; i++)
  50             ;
  51           // ugh.
  52           i--; // Compensate for the increment in the outer loop!
  53           break;
  54         case '{':  // Skip '{' and '}'
  55         case '}':
  56           break;
  57
  58         default:
  59           Box b = get_char ((unsigned char)text[i]);
  60
  61           // Ugh, use the width of 'x' for unknown characters
  62           if (b[X_AXIS].length () == 0)
  63             b = get_char ((unsigned char)'x');
  64
  65           w += b[X_AXIS].length ();
  66           ydims.unite (b[Y_AXIS]);
  67           break;
  68         }
  69     }
  70   if (ydims.empty_b ())
  71     ydims = Interval (0,0);
  72
  73   return Box (Interval (0, w), ydims);
  74 }
  75
  76
  77
  78 Font_metric::~Font_metric ()
  79 {
  80 }
  81
  82 Font_metric::Font_metric ()
  83 {
  84   description_ = SCM_EOL;
  85
  86   smobify_self ();
  87 }
  88
  89 Font_metric::Font_metric (Font_metric const &s)
  90 {
  91 }
  92
  93 int
  94 Font_metric::count () const
  95 {
  96   return 0;
  97 }
  98
  99 Box
 100 Font_metric::get_char (int)const
 101 {
 102   return Box (Interval (0,0),Interval (0,0));
 103 }
 104
 105
 106 SCM
 107 Font_metric::mark_smob (SCM s)
 108 {
 109   Font_metric * m = (Font_metric*) SCM_CELL_WORD_1 (s);
 110   return m->description_;
 111 }
 112
 113 int
 114 Font_metric::print_smob (SCM s, SCM port, scm_print_state *)
 115 {
 116   Font_metric *m = unsmob_metrics (s);
 117   scm_puts ("#<Font_metric ", port);
 118   scm_write (m->description_, port);
 119   scm_puts (">", port);
 120   return 1;
 121 }
 122
 123
 124 IMPLEMENT_UNSMOB (Font_metric, metrics);
 125 IMPLEMENT_SMOBS (Font_metric);
 126 IMPLEMENT_DEFAULT_EQUAL_P (Font_metric);
 127 IMPLEMENT_TYPE_P (Font_metric, "font-metric?");
 128
 129 Molecule
 130 Font_metric::find_by_name (String) const
 131 {
 132   Molecule m ;
 133   return m;
 134 }
 135
 136
 137 SCM
 138 ly_find_glyph_by_name (SCM font, SCM name)
 139 {
 140   if (!unsmob_metrics (font) || !gh_string_p (name))
 141     {
 142       warning ("ly-find-glyph-by-name: invalid argument.");
 143       Molecule m;
 144       return m.smobbed_copy ();
 145     }
 146
 147   return unsmob_metrics (font)->find_by_name (ly_scm2string (name)).smobbed_copy ();
 148 }
 149
 150
 151 static void
 152 font_metric_init ()
 153 {
 154    scm_c_define_gsubr ("ly-find-glyph-by-name", 2 , 0, 0,
 155                        (Scheme_function_unknown) ly_find_glyph_by_name);
 156 }
 157
 158 ADD_SCM_INIT_FUNC (font_metric_init, font_metric_init);