2 font-size-engraver.cc -- implement
4 source file of the GNU LilyPond music typesetter
6 (c) 2001--2002 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");
35 && !gh_number_p (gi.grob_l_->get_grob_property ("font-relative-size")))
37 gi.grob_l_->set_grob_property ("font-relative-size", sz);
43 ENTER_DESCRIPTION(Font_size_engraver,
44 /* descr */ "Puts fontSize into font-relative-size grob property.",
46 /* acks */ "grob-interface",
47 /* reads */ "fontSize",