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"
30 #include "translator.icc"
35 Change tab-note-head properties when a tie is followed by a
38 class Tab_tie_follow_engraver : public Engraver
40 vector<Spanner *> slurs_;
41 vector<Spanner *> glissandi_;
42 vector<Item *> note_heads_;
45 TRANSLATOR_DECLARATIONS (Tab_tie_follow_engraver);
48 DECLARE_ACKNOWLEDGER (glissando);
49 DECLARE_ACKNOWLEDGER (slur);
50 DECLARE_ACKNOWLEDGER (tab_note_head);
52 void stop_translation_timestep ();
55 Tab_tie_follow_engraver::Tab_tie_follow_engraver ()
60 Tab_tie_follow_engraver::acknowledge_glissando (Grob_info info)
62 glissandi_.push_back (info.spanner ());
66 Tab_tie_follow_engraver::acknowledge_tab_note_head (Grob_info info)
68 note_heads_.push_back (info.item ());
72 Tab_tie_follow_engraver::acknowledge_slur (Grob_info info)
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.",