/*
- font-size-engraver.cc -- implement Font_size_engraver
+ font-size-engraver.cc -- implement Font_size_engraver
source file of the GNU LilyPond music typesetter
- (c) 2001--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 2001--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
/*
We only want to process a grob once.
*/
- if (gi.origin_trans_->get_parent_context () != get_parent_context ())
+ if (gi.origin_trans_->context () != context ())
return ;
- if (ly_c_number_p (sz) && ly_scm2double (sz))
+ if (scm_is_number (sz) && scm_to_double (sz))
{
- Real font_size = ly_scm2double (sz);
+ Real font_size = scm_to_double (sz);
font_size += robust_scm2double (gi.grob_->get_property ("font-size"), 0);
gi.grob_->set_property ("font-size", scm_make_real (font_size));
}
-ENTER_DESCRIPTION (Font_size_engraver,
+ADD_TRANSLATOR (Font_size_engraver,
/* descr */ "Puts fontSize into font-relative-size grob property.",
/* creats*/ "",
/* accepts */ "",