Am 10.01.2016 um 02:50 schrieb Peter Crighton:
> (if (or (music-is-of-type? mus 'rest-event)
> (music-is-of-type? mus 'multi-measure-rest))
The overrides fall into the ‘else’ case and then the tweaks are applied.
I’m not sure why this is changing all of the following note heads (bug?)
but I have a solution for your problem: Just tweak only if there is a
rhythmic-event.
\version "2.19.35"
bgr =
#(define-music-function (music) (ly:music?)
(music-map
(lambda (mus)
(cond
((or (music-is-of-type? mus 'rest-event)
(music-is-of-type? mus 'multi-measure-rest))
(make-music 'SkipEvent mus))
((music-is-of-type? mus 'rhythmic-event)
#{
\tweak NoteHead.font-size #-2
\tweak Accidental.font-size #-2
#mus
#})
(else
mus)))
music))
\new Staff <<
\new Voice <<
\relative c' {
<<
{
c4 d e f~
f g a b
}
\bgr {
g a b c~
\once \override TieColumn.tie-configuration = #'((0 . 1) (0 . -1))
c d e f
}
>>
}
>>
>>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
