2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2010--2015 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"
36 Change tab-note-head properties when a tie is followed by a
39 class Tab_tie_follow_engraver : public Engraver
41 vector<Spanner *> slurs_;
42 vector<Spanner *> glissandi_;
43 vector<Item *> note_heads_;
46 TRANSLATOR_DECLARATIONS (Tab_tie_follow_engraver);
49 DECLARE_ACKNOWLEDGER (glissando);
50 DECLARE_ACKNOWLEDGER (slur);
51 DECLARE_ACKNOWLEDGER (tab_note_head);
53 void stop_translation_timestep ();
56 Tab_tie_follow_engraver::Tab_tie_follow_engraver ()
61 Tab_tie_follow_engraver::acknowledge_glissando (Grob_info info)
63 glissandi_.push_back (info.spanner ());
67 Tab_tie_follow_engraver::acknowledge_tab_note_head (Grob_info info)
69 note_heads_.push_back (info.item ());
73 Tab_tie_follow_engraver::acknowledge_slur (Grob_info info)
75 slurs_.push_back (info.spanner ());
79 Tab_tie_follow_engraver::stop_translation_timestep ()
81 for (vsize k = 0; k < note_heads_.size (); k++)
83 bool spanner_start = false;
84 for (vsize j = 0; j < slurs_.size (); j++)
86 Item *left_item = slurs_[j]->get_bound (LEFT);
89 SCM left_cause = left_item->get_property ("cause");
90 Item *slur_cause = unsmob<Item> (left_cause);
91 if (slur_cause == note_heads_[k])
93 note_heads_[k]->set_property ("span-start", SCM_BOOL_T);
100 for (vsize j = 0; j < glissandi_.size (); j++)
102 Item *left_bound = glissandi_[j]->get_bound (LEFT);
103 if (left_bound == note_heads_[k])
105 note_heads_[k]->set_property ("span-start", SCM_BOOL_T);
112 note_heads_.clear ();
115 ADD_ACKNOWLEDGER (Tab_tie_follow_engraver, slur);
116 ADD_ACKNOWLEDGER (Tab_tie_follow_engraver, glissando);
117 ADD_ACKNOWLEDGER (Tab_tie_follow_engraver, tab_note_head);
119 ADD_TRANSLATOR (Tab_tie_follow_engraver,
121 "Adjust TabNoteHead properties when a tie is followed"
122 " by a slur or glissando.",