2 ledger-line-engraver.cc -- implement Ledger_line_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
9 #include "pointer-group-interface.hh"
11 #include "engraver.hh"
12 #include "staff-symbol.hh"
14 class Ledger_line_engraver : public Engraver
19 TRANSLATOR_DECLARATIONS (Ledger_line_engraver);
22 virtual void finalize ();
23 void process_music ();
25 DECLARE_ACKNOWLEDGER (ledgered);
26 DECLARE_ACKNOWLEDGER (staff_symbol);
28 void start_spanner ();
32 Ledger_line_engraver::Ledger_line_engraver ()
38 Ledger_line_engraver::start_spanner ()
41 span_ = make_spanner ("LedgerLineSpanner", SCM_EOL);
43 span_->set_bound (LEFT, unsmob_grob (get_property ("currentCommandColumn")));
47 Ledger_line_engraver::process_music ()
50 Need to do this, otherwise the first note might miss ledgers.
57 Ledger_line_engraver::finalize ()
63 Ledger_line_engraver::stop_spanner ()
67 span_->set_bound (RIGHT, unsmob_grob (get_property ("currentCommandColumn")));
68 Pointer_group_interface::set_ordered (span_, ly_symbol2scm ("elements"), false);
74 Ledger_line_engraver::acknowledge_staff_symbol (Grob_info s)
76 Spanner *sym = dynamic_cast<Spanner *> (s.grob ());
79 || (span_->get_bound (LEFT) != sym->get_bound (LEFT)
80 && sym->get_bound (LEFT)))
88 Ledger_line_engraver::acknowledge_ledgered (Grob_info s)
92 if (!to_boolean (s.grob ()->get_property ("no-ledgers")))
93 Pointer_group_interface::add_grob (span_, ly_symbol2scm ("note-heads"),
98 #include "translator.icc"
100 ADD_ACKNOWLEDGER (Ledger_line_engraver, ledgered);
101 ADD_ACKNOWLEDGER (Ledger_line_engraver, staff_symbol);
102 ADD_TRANSLATOR (Ledger_line_engraver,
103 "Creates the spanner to draw ledger lines, and notices objects that need ledger lines",
104 /* create */ "LedgerLineSpanner",