2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2010--2012 Carl D. Sorensen
6 LilyPond is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 3 of the License, or
9 (at your option) any later version.
11 LilyPond is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with LilyPond. If not, see <http://www.gnu.org/licenses/>.
23 #include "engraver.hh"
31 #include "translator.icc"
34 Change tab-note-head properties when a tie is followed by a
37 class Tab_tie_follow_engraver : public Engraver
39 vector<Spanner *> slurs_;
40 vector<Spanner *> glissandi_;
41 vector<Item *> note_heads_;
44 TRANSLATOR_DECLARATIONS (Tab_tie_follow_engraver);
47 DECLARE_ACKNOWLEDGER (glissando);
48 DECLARE_ACKNOWLEDGER (slur);
49 DECLARE_ACKNOWLEDGER (tab_note_head);
51 void stop_translation_timestep ();
54 Tab_tie_follow_engraver::Tab_tie_follow_engraver ()
59 Tab_tie_follow_engraver::acknowledge_glissando (Grob_info info)
61 glissandi_.push_back (info.spanner ());
65 Tab_tie_follow_engraver::acknowledge_tab_note_head (Grob_info info)
67 note_heads_.push_back (info.item ());
71 Tab_tie_follow_engraver::acknowledge_slur (Grob_info info)
73 if (!info.grob ()->internal_has_interface (ly_symbol2scm ("cross-staff-stub-interface")))
74 slurs_.push_back (info.spanner ());
78 Tab_tie_follow_engraver::stop_translation_timestep ()
80 for (vsize k = 0; k < note_heads_.size (); k++)
82 bool spanner_start = false;
83 for (vsize j = 0; j < slurs_.size (); j++)
85 Item *left_item = slurs_[j]->get_bound (LEFT);
88 SCM left_cause = left_item->get_property ("cause");
89 Item *slur_cause = unsmob_item (left_cause);
90 if (slur_cause == note_heads_[k])
92 note_heads_[k]->set_property ("span-start", SCM_BOOL_T);
99 for (vsize j = 0; j < glissandi_.size (); j++)
101 Item *left_bound = glissandi_[j]->get_bound (LEFT);
102 if (left_bound == note_heads_[k])
104 note_heads_[k]->set_property ("span-start", SCM_BOOL_T);
111 note_heads_.clear ();
114 ADD_ACKNOWLEDGER (Tab_tie_follow_engraver, slur);
115 ADD_ACKNOWLEDGER (Tab_tie_follow_engraver, glissando);
116 ADD_ACKNOWLEDGER (Tab_tie_follow_engraver, tab_note_head);
118 ADD_TRANSLATOR (Tab_tie_follow_engraver,
120 "Adjust TabNoteHead properties when a tie is followed"
121 " by a slur or glissando.",