lily/scaled-font-metric.cc

   1 #include "font-metric.hh"
   2 #include "string.hh"
   3 #include "molecule.hh"
   4
   5
   6 Scaled_font_metric::Scaled_font_metric (Font_metric* m, Real magn)
   7 {
   8   magnification_f_ = magn;
   9   orig_l_ = m;
  10 }
  11
  12 SCM
  13 Scaled_font_metric::make_scaled_font_metric (Font_metric*m, Real s)
  14 {
  15   Scaled_font_metric *sfm = new Scaled_font_metric (m,s);
  16   sfm->name_ = m->name_;
  17
  18   return sfm->self_scm ();
  19 }
  20
  21 SCM
  22 Scaled_font_metric::description () const
  23 {
  24   SCM od = orig_l_->description ();
  25   // todo:
  26   //  gh_set_cdr_x (od, gh_int2scm (magstep_i_));
  27   return od;
  28 }
  29
  30
  31 Molecule
  32 Scaled_font_metric::find_by_name (String s, Real mag) const
  33 {
  34   return orig_l_->find_by_name (s, magnification_f_ * mag);     // ugh.
  35 }