Re: [Lilypond-auto] Issue 3056 in lilypond: Barring example in Notation Reference

[lilypond]

Comment #7 on issue 3056 by address@hidden: Barring example in Notation  
Reference
http://code.google.com/p/lilypond/issues/detail?id=3056

Yes, I agree that's a much better way of expressing the intent of the
notation. Here's a re-implementation of the barre function using that
method, and I've also added a similar function for string number
indications across multiple notes. I included a direction parameter for
string number, as they can commonly be below as well as above, depending on
whether the indication is for a bass or treble voice. See attached example
from a commercial score (Segovia's transcription of the Chaconne).

\version "2.17.6"

beginBarre = #(define-event-function (parser location fretnum partial)
  (number? number?)
#{
  \tweak bound-details.left.text
    \markup\small\bold\concat { C #(format #f "address@hidden" fretnum)
      \raise #0.8 \sub #(number->string partial) }
  \tweak style #'line
  \tweak font-shape #'upright
  \tweak bound-details.right.text \markup { \draw-line #'(0 . -1) }
  \tweak bound-details.left.stencil-align-dir-y #0.35
  \tweak bound-details.left.padding #-0.25
  \tweak bound-details.right.padding #-1
  \tweak bound-details.right-broken.padding #0.5
  \tweak bound-details.left-broken.padding #2
  \tweak bound-details.left-broken.text ##f
  \tweak bound-details.right-broken.text ##f
  \startTextSpan
#})
endBarre = \stopTextSpan

beginStringNum = #(define-event-function (parser location strng dirn)
  (number? number?)
#{
  \tweak bound-details.left.text \markup\bold\teeny\concat
    { \circle { \finger #(number->string strng) } \char ##x2006 }
  \tweak font-shape #'upright
  \tweak direction #dirn
  \tweak bound-details.left.stencil-align-dir-y #CENTER
  \tweak dash-period #0.8
  \tweak dash-fraction #0.6
  \tweak thickness #0.8
  \tweak bound-details.right.text \markup { \draw-line #(cons 0 (/ dirn
-2)) }
  \tweak bound-details.left.padding #0.25
  \tweak bound-details.right.padding #-1
  \tweak bound-details.right-broken.padding #0.5
  \tweak bound-details.left-broken.padding #2
  \tweak bound-details.left-broken.text ##f
  \tweak bound-details.right-broken.text ##f
  \startTextSpan
#})
endStringNum = \stopTextSpan

\relative c {
  \clef "treble_8"
  c4\beginBarre 2 3 c c \times 2/3 { c8 c c\endBarre }
  c4\beginStringNum 5 #DOWN c c c\endStringNum
}