2 font-size-engraver.cc -- implement Font_size_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2001--2003 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 TODO: use fontSize = NUMBER as a scaling constant: find the closest
30 integer design size, and use magnification to do the fractional bit.
33 Font_size_engraver::acknowledge_grob (Grob_info gi)
35 SCM sz = get_property ("fontSize");
39 && !gh_number_p (gi.grob_->get_grob_property ("font-size")))
41 gi.grob_->set_grob_property ("font-size", sz);
47 ENTER_DESCRIPTION(Font_size_engraver,
48 /* descr */ "Puts fontSize into font-relative-size grob property.",
51 /* acks */ "font-interface",
52 /* reads */ "fontSize",