I must be doing something wrong. Where are the numbers? In PDF? In separate
file?
I use version 2.17.28 on Windows 7. Perhaps it is Windows issue?
Dnia 20-10-2013 o godz. 12:45 Thomas Morley napisał(a):
> 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
