]> git.donarmstrong.com Git - lilypond.git/blob - lily/font-size-engraver.cc
release: 1.0.1
[lilypond.git] / lily / font-size-engraver.cc
1 /*   
2   font-size-grav.cc --  implement Font_size_engraver
3   
4   source file of the GNU LilyPond music typesetter
5   
6   (c) 1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7   
8  */
9
10 #include "font-size-engraver.hh"
11 #include "score-element.hh"
12
13 Font_size_engraver::Font_size_engraver ()
14 {
15   size_i_ = 0;
16 }
17
18 void
19 Font_size_engraver::do_process_requests ()
20 {
21   Scalar s (get_property ("fontsize"));
22   
23   if (s.length_i ()  && s.isnum_b ())
24     {
25       size_i_ = int (s);
26     }
27 }
28
29 void
30 Font_size_engraver::acknowledge_element (Score_element_info e)
31 {
32   e.elem_l_->size_i_ = size_i_;
33 }
34
35 ADD_THIS_TRANSLATOR (Font_size_engraver);
36 IMPLEMENT_IS_TYPE_B1(Font_size_engraver,Engraver);