guide / shift finger

[Stephen MacNeil]

i just redid my guide finger if anyone is interested

\version "2.18.2"

%%%%%%%%%%%%%%%%%%%%5

#(define (fingering-event? m) (and (ly:music? m)

(music-is-of-type? m 'fingering-event)))

gf =

#(define-event-function (parser location num str fingering)

(number? number? fingering-event?)

(let* ((finger (ly:music-property fingering 'digit))

(n (number->string finger)))

#{

-\tweak text

\markup \concat {

\raise #num \rotate #str {

\override #'(thickness . 2)

\draw-line #'(.9 . 0) }

\fontsize #-9 " "

\override #'(font-encoding . fetaText)

\bold \override #'(font-size . -6)

{\lower #.5 #n }}

#fingering

#}))

%%%%%%%%%%%%%%%%%%%%%%%%%%

\relative c''' {

\set fingeringOrientations = #'(up)

\override Score.Fingering.font-size = #-6

% first raise/(-)lower second rotates % third is finger

c,16 -3 <a'\gf #-.5 #37 -3> <c\gf #-.1 #15 -3> <g\gf #.6 #-50 -3>

\once \override Fingering.extra-offset = #'(0 . -.5)

<c\gf #-.5 #35 -3>4 e,\gf #.6 #-38 -3

}

cheers stephen