Fwd: how to add barre indications to automatic fret diagrams?

[pls]

Begin forwarded message:

From: pls <address@hidden>

Subject: Re: how to add barre indications to automatic fret diagrams?

Date: 20. Mai 2015 13:12:30 MESZ

To: Stephen MacNeil <address@hidden>

Hi Stephen,
On 20.05.2015, at 13:02, Stephen MacNeil <address@hidden> wrote:

sorry forgot one

\version "2.18.2"
barre = #(define-music-function (barre location str ) (number?)
#{
\once \override FretBoard.before-line-breaking =
#(lambda (grob)
;(display (ly:grob-property grob 'dot-placement-list))
(ly:grob-set-property! grob 'dot-placement-list
(cons `(barre 6 1 ,str) (ly:grob-property grob 'dot-placement-list))))

#})
fMajorEShape = { <f,-1 c-3 f-4 a-2 c'-1 f'-1> }
gMajorEShape = { \transpose f g { \fMajorEShape } }

\new FretBoards {
\barre #3
\transpose f g { \fMajorEShape }
\barre #4
\gMajorEShape
\barre #3
<g,-1 d-3 g-4 b-2 d'-1 g'-1>
\set FretBoards.minimumFret = #3
\barre #4
\gMajorEShape
}

Yes, that’s what I was looking for! Thank you very much! I cleaned it up a little bit to get rid of some unnecessary bits and pieces (and to make it easier to understand what it does):

\version "2.19.15"

barre = #(define-music-function (bend location str ) (number?)
          #{
            \once \override FretBoard.before-line-breaking =
            #(lambda (grob)
               ;(display (ly:grob-property grob 'dot-placement-list))
               (ly:grob-set-property! grob 'dot-placement-list
                 (cons `(barre 6 1 ,str) (ly:grob-property grob 'dot-placement-list))))
          #})

fMajorEShape = { <f,-1 c-3 f-4 a-2 c'-1 f'-1> }

\new FretBoards {
 \barre #1
 \fMajorEShape
 \barre #3
 \transpose f g { \fMajorEShape }
 \barre #5
 \transpose f a { \fMajorEShape }
 \barre #7
 \transpose f b { \fMajorEShape }
}

Thanks again!
patrick