2 font-size-engraver.cc -- implement
4 source file of the GNU LilyPond music typesetter
6 (c) 2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
11 #include "engraver.hh"
13 class Font_size_engraver : public Engraver
16 VIRTUAL_COPY_CONS(Translator);
17 Font_size_engraver ();
19 virtual void acknowledge_grob (Grob_info gi);
24 Font_size_engraver::Font_size_engraver ()
30 Font_size_engraver::acknowledge_grob (Grob_info gi)
32 SCM sz = get_property ("fontSize");
36 && !gh_number_p (gi.elem_l_->get_grob_property ("font-relative-size")))
38 gi.elem_l_->set_grob_property ("font-relative-size", sz);
42 ADD_THIS_TRANSLATOR(Font_size_engraver);