2016-10-21 22:39 GMT+02:00 Karol Majewski <karo...@wp.pl>:
> OK, this does change skyline-padding in chords, but unfotunately it also
> changes skyline-padding between single notes (see example: c'8~ c'4). I'd
> like tied chords to have different skyline-padding value than tied single
> notes.
>
> hint =
> \override TieColumn.before-line-breaking =
> #(lambda (grob)
> (for-each
> (lambda (clr tie)
> (ly:grob-set-nested-property! tie '(details skyline-padding) 5)
> (ly:grob-set-property! tie 'color clr))
> (circular-list red green)
> (ly:grob-array->list (ly:grob-object grob 'ties))))
>
> \relative c' {
> \hint
> <c e g c e>4~
> <c e g c e>
> c'8~ c'4.
> }
Well, I wasn't aware we create a TieColumn-grob even for stand-alone Ties.
Then you probably should restrict it to occarabces of more than one
Tie at a time. Leading to:
hint =
\override TieColumn.before-line-breaking =
#(lambda (grob)
(let ((ties (ly:grob-array->list (ly:grob-object grob 'ties))))
(if (> (length ties) 1)
(for-each
(lambda (clr tie)
(ly:grob-set-nested-property! tie '(details skyline-padding) 5)
(ly:grob-set-property! tie 'color clr))
(circular-list red green)
ties))))
\relative c' {
\hint
<c e g c e>4~
<c e g c e>
<c'>8~ <c>4.
}
Cheers,
Harm
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
