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 <classicalja...@gmail.com>
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
>
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
