Re: Tie shape

[Ben]

On 12/19/2017 8:26 PM, Pieter Terpstra wrote:

Dear people,
Another question.
Trying to change the shape of the tie in such a way that the c note becomes free from the tie overlap.
The \Shape command works on the lowest tie but not on the next?
To add the \Shape command a second time makes no difference.

Here is the example:
\score {
  \relative c' {
    g'16\rest 
  \shape #'((0 . 0) (0 . -1) (0 . -1) (0 . 0)) Tie
  \set tieWaitForNote = ##t
  b,~
  \shape #'((-3 . 0) (0 . -3) (0 . -3) (0 . 0)) Tie
  d~ g~ s8 c ~ s4 <b, d g c>
  }
}

Hi Peter,

If you can't get it to work with the shape, maybe you'd get some results with this tiecolumn approach? It's from a while ago, but I remembered it...for a rainy day :)

http://lilypond.1069038.n5.nabble.com/Shape-of-individual-ties-in-chords-td158120.html

%%%%
affect-TieColumn =
#(define-music-function (parser location offsets)(list?)
#{
  \once
    \override TieColumn #'after-line-breaking =
      #(lambda (grob)
        (let* ((ties (ly:grob-array->list (ly:grob-object grob 'ties)))
               (c-ps
                 (map
                   (lambda (tie) (ly:grob-property tie 'control-points))
                   ties)))

      (define (offset-control-points coords offsets)
       (if (null? offsets)
           (car c-ps)
           (map
             (lambda (x y) (coord-translate x y))
             coords offsets)))

       (define (help offs pts new-pts)
         (if (null? offs)
             (reverse new-pts)
             (help (cdr offs) (cdr pts)
               (cons (offset-control-points (car pts) (car offs)) new-pts))))

      (for-each
         (lambda (tie cpts) (ly:grob-set-property! tie 'control-points cpts))
         ties
         (help offsets c-ps '()))))
#})

%% crazy values taken, to show it works
{
  <fis' cis'' a''>2 ~
  \affect-TieColumn #'( ((0 . -4)  (2 . 3) (4 . 5) (6 . 7));; bottom
                        ((-1 . 0) (0 . 0) (0 . 0) (0 . 0)) ;; middle
                        ((-5 . 3) (0 . 0) (0 . 0) (0 . 0)) ;; top
                                          )
  q
}