Re: Suppress NoteNames output on ties ?

[Gilles THIBAULT]

> Is it possible to tell the NoteNames engraver to print the name for
> only the first note of a sequence of tied notes?
>
> mymusic = { c'4 c' ~ c'2 }
> \score {
> <<
> \new Voice \mymusic
> \context NoteNames \mymusic
> >>
> }

Try that

%%%%%%%%%%%%%%%%%%%
tiedNoteToSkip = #(define-music-function (parser location music) (ly:music?)
(let ((prev-was-tie? #f))
 (define (tied-note->skip evt)
    (let ((elt (ly:music-property evt 'element))
          (elts (ly:music-property evt 'elements))
          (name (ly:music-property evt 'name)))
     (cond ((and prev-was-tie? (eq? name 'EventChord))
               (set! prev-was-tie? #f)
               (skip-of-length  evt))
           ((eq? name 'TieEvent)
               (set! prev-was-tie? #t)
               evt)
           (else
               (if (ly:music? elt) (ly:music-set-property! evt 'element
                                           (tied-note->skip elt)))
               (if (pair? elts) (ly:music-set-property! evt 'elements
                                          (map tied-note->skip elts)))
               evt))))
(tied-note->skip music)))

mymusic = { c'4 c' ~ c'2 }
\score {
<<
\new Voice \mymusic
\context NoteNames \tiedNoteToSkip \mymusic
>>
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%

Good Week-end.

Gilles