On 20 March 2011 09:35, Gilles THIBAULT <gilles.thiba...@free.fr> wrote:
>
> 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.
Could/did you add this to the LSR?
It should be the default behaviour IMHO (or at least a possible tunable
option).
Maybe one could discuss this with the devs and suggest Gilles' code as
a PATCH.
Cheers,
Xavier
--
Xavier Scheuer <x.sche...@gmail.com>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
