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

[Stephen MacNeil]

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

On Wed, May 20, 2015 at 7:02 AM, 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

}

HTH

Stephen