--- /dev/null
+\header {
+
+ texidoc = "Tied notes sound as one note in MIDI. Grace notes
+ following a tied note shorten the resulting single note in MIDI."
+
+ % https://code.google.com/p/lilypond/issues/detail?id=3091
+}
+\version "2.16.0"
+\score {
+ \relative c' {
+ % This first b~ tie should be honoured in the MIDI output:
+ a2. b4~
+ % i.e. this b8 must not be sounded:
+ | b8 \grace c16 d4
+ }
+ \midi { }
+}
Audio_note::tie_to (Audio_note *t, Moment skip)
{
tied_ = t;
- Audio_note *first = t;
- while (first->tied_)
- first = first->tied_;
+ Audio_note *first = tie_head();
// Add the skip to the tied note and the length of the appended note
// to the full duration of the tie...
first->length_mom_ += skip + length_mom_;
length_mom_ = 0;
}
+Audio_note *
+Audio_note::tie_head ()
+{
+ Audio_note *first = this;
+ while (first->tied_)
+ first = first->tied_;
+ return first;
+}
+
+string
+Audio_note::to_string () const
+{
+ string s = "#<Audio_note pitch ";
+ s += pitch_.to_string();
+ s += " len ";
+ s += length_mom_.to_string();
+ if (tied_)
+ {
+ s += " tied to " + tied_->to_string();
+ }
+ if (tie_event_)
+ {
+ s += " tie_event";
+ }
+ s += ">";
+ return s;
+}
+
Audio_key::Audio_key (int acc, bool major)
{
accidentals_ = acc;
// with tieWaitForNote, there might be a skip between the tied notes!
void tie_to (Audio_note *, Moment skip = 0);
+ Audio_note *tie_head ();
+ virtual string to_string () const;
Pitch pitch_;
Moment length_mom_;
Midi_walker::process ()
{
Audio_item *audio = items_[index_];
- do_stop_notes (audio->audio_column_->ticks ());
+ Audio_column *col = audio->get_column ();
+ do_stop_notes (col->ticks ());
if (Midi_item *midi = get_midi (audio))
{
notes_.push_back (p);
/*
- shorten previous note.
+ Shorten previous note. If it was part of a tie, shorten
+ the first note in the tie.
*/
if (now_mom ().grace_part_)
{
if (last_start_.grace_part_ == Rational (0))
{
for (vsize i = 0; i < last_notes_.size (); i++)
- last_notes_[i]->length_mom_ += Moment (0,
- now_mom ().grace_part_);
+ {
+ Audio_note *tie_head = last_notes_[i]->tie_head ();
+ tie_head->length_mom_ += Moment (0, now_mom ().grace_part_);
+ }
}
}
}