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
);