Re: Symmetrical ties in TieColumn

[Thomas Morley]

2013/10/20 Karol Majewski <address@hidden>:
> Hmm... the code:
>
>
>
> {
>
> \override Tie.after-line-breaking =
>
> #(lambda (grob)
>
> (display (ly:grob-property grob 'control-points))
>
> (newline))
>
> c'1~ c'1
>
> }
>
>
>
> doesn't work for me. I see no control points (nor the numbers).

Well, it works for me.

Below I use David's code adding an approach via TieColumn.

\version "2.17.28"

%% Nicer formatting with:
#(use-modules (ice-9 pretty-print))

displayTieCps =
   \override Tie.after-line-breaking =
     #(lambda (grob)
       (display "\nDisplay control-points using \\displayTieCps\n")
       (pretty-print (ly:grob-property grob 'control-points))
       ;; or use
       ;(display (ly:grob-property grob 'control-points))
       (newline))

displayTieColumnCps =
%\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)))
        (newline)
        (display "\nDisplay control-points using \\displayTieColumnCps\n")
        (pretty-print c-ps)
        ;; or use
        ;(display c-ps)
        ))

{
  \displayTieCps
  \displayTieColumnCps
  <fis' cis'' a''>2~
  %% If you want to use \once \displayTieColumnCps it has to be inserted here.
  %\displayTieColumnCps
  <fis' cis'' a''>2
}

This returns:

Display control-points using \displayTieColumnCps
(((0.894991999999998 . -2.5)
  (1.55561519677929 . -3.14431009035289)
  (3.29240580235533 . -3.14431009035289)
  (3.95302899913461 . -2.5))
 ((0.465000000000003 . 1.225)
  (1.18506989232716 . 1.90581194400239)
  (3.23295910680746 . 1.90581194400239)
  (3.95302899913461 . 1.225))
 ((0.894991999999998 . 4.0)
  (1.66581234547445 . 4.70907034772497)
  (4.01220065366016 . 4.70907034772497)
  (4.78302099913461 . 4.0)))

Display control-points using \displayTieCps
((0.894991999999998 . 4.0)
 (1.66581234547445 . 4.70907034772497)
 (4.01220065366016 . 4.70907034772497)
 (4.78302099913461 . 4.0))


Display control-points using \displayTieCps
((0.465000000000003 . 1.225)
 (1.18506989232716 . 1.90581194400239)
 (3.23295910680746 . 1.90581194400239)
 (3.95302899913461 . 1.225))


Display control-points using \displayTieCps
((0.894991999999998 . -2.5)
 (1.55561519677929 . -3.14431009035289)
 (3.29240580235533 . -3.14431009035289)
 (3.95302899913461 . -2.5))



HTH,
  Harm