lily/font-size-engraver.cc

   1 /*
   2   font-size-engraver.cc --  implement
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7
   8  */
   9
  10 #include "grob.hh"
  11 #include "engraver.hh"
  12
  13 class Font_size_engraver : public Engraver
  14 {
  15 public:
  16   VIRTUAL_COPY_CONS(Translator);
  17   Font_size_engraver ();
  18 protected:
  19   virtual void acknowledge_grob (Grob_info gi);
  20 private:
  21 };
  22
  23
  24 Font_size_engraver::Font_size_engraver ()
  25 {
  26
  27 }
  28
  29 void
  30 Font_size_engraver::acknowledge_grob (Grob_info gi)
  31 {
  32   SCM sz = get_property ("fontSize");
  33
  34   if (gh_number_p (sz)
  35       && gh_scm2int (sz)
  36       && !gh_number_p (gi.elem_l_->get_grob_property ("font-relative-size")))
  37     {
  38       gi.elem_l_->set_grob_property ("font-relative-size", sz);
  39     }
  40 }
  41
  42 ADD_THIS_TRANSLATOR(Font_size_engraver);