/*
We only want to process a grob once.
*/
- if (gi.origin_trans_->daddy_context_ != daddy_context_)
+ if (gi.origin_trans_->context () != context ())
return ;
- if (gh_number_p (sz) && gh_scm2double (sz))
+ if (scm_is_number (sz) && scm_to_double (sz))
{
- Real font_size = gh_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", gh_double2scm (font_size));
+ 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 */ "",