2013/10/20 Karol Majewski <karo...@wp.pl>:
> 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
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
