]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/scaled-font-metric.cc
release: 1.5.14
[lilypond.git] / lily / scaled-font-metric.cc
index c815c086cc9c0f1539046d4ef1d28527bc7f3dfc..cf3bb64db01d467cf31b1503600116905de90bdf 100644 (file)
@@ -17,8 +17,8 @@ Scaled_font_metric::Scaled_font_metric (Font_metric* m, Real magn)
   magnification_f_ = magn;
   SCM desc = m->description_;
 
-  Real total_mag = magn * gh_scm2double (gh_cdr (desc));
-  description_ = gh_cons (gh_car (desc), gh_double2scm (total_mag));
+  Real total_mag = magn * gh_scm2double (ly_cdr (desc));
+  description_ = gh_cons (ly_car (desc), gh_double2scm (total_mag));
   orig_l_ = m;
 }
 
@@ -56,3 +56,9 @@ Scaled_font_metric::text_dimension (String t) const
   b.scale (magnification_f_);
   return b;
 }
+
+int
+Scaled_font_metric::count () const
+{
+  return orig_l_->count ();
+}