lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Tie settings question


From: Thomas Morley
Subject: Re: Tie settings question
Date: Fri, 21 Oct 2016 22:48:25 +0200

2016-10-21 22:39 GMT+02:00 Karol Majewski <address@hidden>:
> 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]