Begin forwarded message:
> From: pls <p.l.schm...@gmx.de>
> Subject: Re: how to add barre indications to automatic fret diagrams?
> Date: 20. Mai 2015 13:12:30 MESZ
> To: Stephen MacNeil <classicalja...@gmail.com>
>
> Hi Stephen,
> On 20.05.2015, at 13:02, 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
>> }
>>
>
> 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
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
