2 font-size-engraver.cc -- implement
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-relative-size")))
41 gi
.grob_
->set_grob_property ("font-relative-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",