I forgot to thank you. It works great.
Knute Snortum
(via Gmail)
On Mon, Jan 19, 2015 at 10:11 AM, David Nalesnik <david.nales...@gmail.com>
wrote:
> Hi Knute,
>
> On Mon, Jan 19, 2015 at 11:08 AM, Knute Snortum <ksnor...@gmail.com>
> wrote:
>
>> I'm using a Laissez Vibrer tie on a chord. It works fine, but I would
>> like to change the shape. \shape works fine but for only one tie. How do
>> I shape both ties?
>>
>
> As with the ties in a TieColumn, \shape won't work for l.v. ties in a
> LaissezVibrerTieColumn. One solution here is to adapt \shapeTieColumn (in
> openlilylib and on the -user list).
>
> Try this:
>
> \version "2.19.15"
>
> shapeLVTieColumn =
> #(define-music-function (parser location all-offsets) (list?)
> #{
> \override LaissezVibrerTieColumn.before-line-breaking =
> #(lambda (grob)
> (let ((ties (ly:grob-array->list (ly:grob-object grob 'ties))))
> (for-each
> (lambda (tie offsets)
> (set! (ly:grob-property tie 'control-points)
> (map
> (lambda (x y) (coord-translate x y))
> (ly:tie::calc-control-points tie)
> offsets)))
> ties all-offsets)))
> #})
>
> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
>
> \language "english"
>
> \relative c, {
> \time 3/4
> \key a \major
> \clef bass
> \shapeLVTieColumn #' (
> ((1 . 0) (2 . 0) (3 . 0) (17 . 0))
> ((1 . 0) (2 . 0) (3 . 0) (4 . 0))
> )
> <a a'>2. \laissezVibrer |
> }
> %%% -- End
>
>
> HTH,
> David
>
>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
