2015-12-08 21:05 GMT+01:00 Thomas Morley <thomasmorle...@gmail.com>:
> 2015-12-08 19:36 GMT+01:00 Federico Bruni <f...@inventati.org>:
>> Hi all
>>
>> I'd like to create a custom right-hand fingering. Where should I look at?
>> I've tried looking at the definitions of finger and rightHandFinger in
>> music-functions-init.ly, but I don't know how to create a new one.
>>
>> I'm transcribing a piece from a book which uses this notation to specify
>> tapping and the right-hand finger used to produce it:
>>
>> Tm = tapping with middle finger
>> Ti = tapping with index finger
>>
>> Thanks in advance
>> Federico
>
>
>
> {
> \set strokeFingerOrientations = #'(up)
> \override StrokeFinger.digit-names = ##("Tp" "Ti" "Tm" "Ta" "Tx")
>
> c'\rightHandFinger #1
> e'\rightHandFinger #2
> g'\rightHandFinger #3
> c''\rightHandFinger #4
> }
>
> Ofcourse there are shortcuts available for \rightHandFinger...
>
> HTH,
> Harm
Also possible:
#(define (my-stroke-finger::calc-text grob)
(let ((event (event-cause grob)))
(or (ly:event-property event 'text #f)
(vector-ref (ly:grob-property grob 'digit-names)
(1- (max 1
(min 10 (ly:event-property event 'digit))))))))
{
\set strokeFingerOrientations = #'(up)
\override StrokeFinger.text = #my-stroke-finger::calc-text
\override StrokeFinger.digit-names =
##("p" "i" "m" "a" "x" "Tp" "Ti" "Tm" "Ta" "Tx")
c'\rightHandFinger #1
e'\rightHandFinger #2
g'\rightHandFinger #3
c''\rightHandFinger #4
e''\rightHandFinger #5
c'\rightHandFinger #6
e'\rightHandFinger #7
g'\rightHandFinger #8
c''\rightHandFinger #9
e''\rightHandFinger #10
}
Cheers,
Harm
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
