Re: Symmetrical ties in TieColumn

[Karol Majewski]

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 <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