source file of the GNU LilyPond music typesetter
- (c) 1999--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1999--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
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;
}
Molecule m = orig_l_->find_by_name (s);
Box b = m.extent_box ();
b.scale (magnification_f_);
- Molecule q(b,fontify_atom ((Font_metric*) this, m.get_expr ()));
+ Molecule q (b,fontify_atom ((Font_metric*) this, m.get_expr ()));
return q ;
}
b.scale (magnification_f_);
return b;
}
+
+int
+Scaled_font_metric::count () const
+{
+ return orig_l_->count ();
+}