|
From: | Stephen MacNeil |
Subject: | guide / shift finger |
Date: | Fri, 3 Apr 2015 17:24:19 -0400 |
\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
[Prev in Thread] | Current Thread | [Next in Thread] |