lily/ledger-line-engraver.cc

   1 /*
   2   ledger-line-engraver.cc -- implement Ledger_line_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 2004--2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
   7 */
   8
   9 #include "group-interface.hh"
  10 #include "spanner.hh"
  11 #include "engraver.hh"
  12
  13 /*
  14   TODO: should sync with Staff_symbol_engraver.
  15 */
  16 class Ledger_line_engraver : public Engraver
  17 {
  18   Spanner *span_;
  19
  20 public:
  21   TRANSLATOR_DECLARATIONS (Ledger_line_engraver);
  22
  23 protected:
  24   virtual void finalize ();
  25   virtual void process_music ();
  26   virtual void acknowledge_grob (Grob_info);
  27 };
  28
  29 Ledger_line_engraver::Ledger_line_engraver ()
  30 {
  31   span_ = 0;
  32 }
  33
  34 void
  35 Ledger_line_engraver::process_music ()
  36 {
  37   if (!span_)
  38     {
  39       span_ = make_spanner ("LedgerLineSpanner", SCM_EOL);
  40
  41       span_->set_bound (LEFT, unsmob_grob (get_property ("currentCommandColumn")));
  42     }
  43 }
  44
  45 void
  46 Ledger_line_engraver::finalize ()
  47 {
  48   if (span_)
  49     span_->set_bound (RIGHT, unsmob_grob (get_property ("currentCommandColumn")));
  50 }
  51
  52 void
  53 Ledger_line_engraver::acknowledge_grob (Grob_info s)
  54 {
  55   if (!to_boolean (s.grob_->get_property ("no-ledgers")))
  56     Pointer_group_interface::add_grob (span_, ly_symbol2scm ("note-heads"),
  57                                        s.grob_);
  58 }
  59 ADD_TRANSLATOR (Ledger_line_engraver,
  60                 "Creates the spanner to draw ledger lines, and notices objects that need ledger lines",
  61                 /* creats*/ "LedgerLineSpanner",
  62                 /* accepts */ "",
  63                 /* acks  */ "ledgered-interface", // ledgered-interface?
  64                 /* reads */ "",
  65                 /* write */ "")