2 font-size-engraver.cc -- implement Font_size_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2001--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
11 #include "engraver.hh"
13 class Font_size_engraver : public Engraver
16 TRANSLATOR_DECLARATIONS (Font_size_engraver);
18 virtual void acknowledge_grob (Grob_info gi);
23 Font_size_engraver::Font_size_engraver ()
29 Font_size_engraver::acknowledge_grob (Grob_info gi)
31 SCM sz = get_property ("fontSize");
34 We only want to process a grob once.
36 if (gi.origin_trans_->daddy_context_ != daddy_context_)
39 if (is_number (sz) && ly_scm2double (sz))
41 Real font_size = ly_scm2double (sz);
43 font_size += robust_scm2double (gi.grob_->get_property ("font-size"), 0);
44 gi.grob_->set_property ("font-size", scm_make_real (font_size));
49 ENTER_DESCRIPTION (Font_size_engraver,
50 /* descr */ "Puts fontSize into font-relative-size grob property.",
53 /* acks */ "font-interface",
54 /* reads */ "fontSize",