Re: Replicating chord slurs

[Thomas Morley]

2017-01-05 16:32 GMT+01:00 Joel C. Salomon <address@hidden>:
> Neighbors,
>
> I’m trying to replicate the chord slurs in the attached image. This
> shows the closest two versions I’ve managed (image also attached):
>
>     \version "2.19.54"
>     \language "english"
>
>     \score {
>       \relative c' {
>         \time 3/4
>         <cs\=1( e!\=2( g\=3^( as\=4^(>2
>         <d\=1) g\=2)\=3) b\=4)>4
>
>         <cs\=1( e!\=2( g\=4^( as\=3^(>2
>         <d\=1) g\=2)\=3) b\=4)>4
>       }
>       \layout {}
>     }
>
> The first has the right notes slurred together, but looks bad; the
> second looks less bad, but still isn’t right. Can anyone suggest another
> tweak I might try here?
>
> ––Joel C. Salomon



Hi,

setting spanner-id via \=... has still some shortcomings.

In _this_ and only this case I'd go for a complete stencil-rewrite,
tailored at mass (every bow starts/ends at same height.

\version "2.19.52"

myStil =
  #(lambda (grob)
    (let* ((c-ps (ly:slur::calc-control-points grob))
           (thick 0.1)
           (angularity 0.5)
           (height (/ (ly:grob-property grob 'minimum-length) 10)))
       (ly:stencil-add
        (make-bow-stencil
          (cons (+ (car (car c-ps)) 1) (- (cdr (car c-ps)) 0))
          (cons (- (car (fourth c-ps)) 1) (- (cdr (car c-ps)) 0))
          thick angularity height UP)
        (make-bow-stencil
          (cons (+ (car (car c-ps)) 1) (- (cdr (car c-ps)) 1))
          (cons (- (car (fourth c-ps)) 1) (- (cdr (car c-ps)) 1))
          thick angularity height UP)
        (make-bow-stencil
          (cons (+ (car (car c-ps)) 0) (- (cdr (car c-ps)) 2.4))
          (cons (- (car (fourth c-ps)) 1) (- (cdr (car c-ps)) 2.4))
          thick angularity height DOWN)
        (make-bow-stencil
          (cons (+ (car (car c-ps)) 0) (- (cdr (car c-ps)) 3.7))
          (cons (- (car (fourth c-ps)) 1) (- (cdr (car c-ps)) 3.7))
          thick angularity height DOWN))))

mySlur =
\tweak minimum-length #10
\tweak direction #UP
\tweak stencil \myStil
\etc


\new Staff \relative c' {
    <cis e! g ais >2 -\mySlur (
    <d g b >4)
}


Hopefully someone comes up with a better idea.

Cheers,
  Harm