Shortening hairpins

[Stephen MacNeil]

I needed a solution as well and wrote this. I find for my needs it works wonders.

acdy =

#(define-music-function

(parser location str)

(number?)

#{

-\markup

{

\halign #-1.2

\combine

\draw-line #`(,str . 0.7)

\draw-line #`(,str . -0.7)

}

#}

)

\relative c' {

c ^\acdy #-4 c d^\acdy #3.4 d c _\acdy #-3.8 c d_\acdy #2.4 d

}

HTH

Stephen