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--2003  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
  16   TRANSLATOR_DECLARATIONS(Font_size_engraver);
  17 protected:
  18   virtual void acknowledge_grob (Grob_info gi);
  19 private:
  20 };
  21
  22
  23 Font_size_engraver::Font_size_engraver ()
  24 {
  25
  26 }
  27
  28 /*
  29   TODO: use fontSize = NUMBER as a scaling constant: find the closest
  30   integer design size, and use magnification to do the fractional bit.
  31 */
  32 void
  33 Font_size_engraver::acknowledge_grob (Grob_info gi)
  34 {
  35   SCM sz = get_property ("fontSize");
  36
  37   if (gh_number_p (sz)
  38       && gh_scm2double (sz)
  39       && !gh_number_p (gi.grob_->get_grob_property ("font-relative-size")))
  40     {
  41       gi.grob_->set_grob_property ("font-relative-size", sz);
  42     }
  43 }
  44
  45
  46
  47 ENTER_DESCRIPTION(Font_size_engraver,
  48 /* descr */       "Puts fontSize into font-relative-size grob property.",
  49 /* creats*/       "",
  50 /* accepts */     "",
  51 /* acks  */      "font-interface",
  52 /* reads */       "fontSize",
  53 /* write */       "");