2 This file is part of LilyPond, the GNU music typesetter.
4 Copyright (C) 2010 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 slurs_
.push_back (info
.spanner ());
77 Tab_tie_follow_engraver::stop_translation_timestep ()
79 for (vsize k
= 0; k
< note_heads_
.size (); k
++)
81 bool spanner_start
= false;
82 for (vsize j
= 0; j
< slurs_
.size (); j
++)
84 Item
* left_item
= slurs_
[j
]->get_bound (LEFT
);
87 SCM left_cause
= left_item
->get_property ("cause");
88 Item
*slur_cause
= unsmob_item (left_cause
);
89 if (slur_cause
== note_heads_
[k
])
91 note_heads_
[k
]->set_property ("span-start", SCM_BOOL_T
);
98 for (vsize j
= 0; j
< glissandi_
.size (); j
++)
100 Item
*left_bound
= glissandi_
[j
]->get_bound (LEFT
);
101 if (left_bound
== note_heads_
[k
])
103 note_heads_
[k
]->set_property ("span-start", SCM_BOOL_T
);
113 ADD_ACKNOWLEDGER (Tab_tie_follow_engraver
, slur
);
114 ADD_ACKNOWLEDGER (Tab_tie_follow_engraver
, glissando
);
115 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.",