Gilles,
Thank you for you answer. This is great.
Additional question: Can the numeric line up horizontally?
Blessing in+,
Lyndon.
>________________________________
> From: Gilles
>
>> One question though: Can the numeric displayed above the staff?
>
>Just set the property of newgrob to UP ( = 1 )
>
>%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
>
>numbr = #(make-engraver (acknowledgers
>((note-head-interface engraver grob source)
> (let* (
> (context (ly:translator-context engraver))
> (tonic-pitch (ly:context-property context 'tonic))
> (tonic-index (ly:pitch-notename tonic-pitch))
> (event (ly:grob-property grob 'cause))
> (grob-pitch (ly:event-property event 'pitch))
> (grob-index (ly:pitch-notename grob-pitch))
> (delta (modulo (- grob-index tonic-index) 7))
> (name (list-ref '("1" "2" "3" "4" "5" "6" "7") delta))
> (newgrob (ly:engraver-make-grob engraver 'TextScript event)))
> (set! (ly:grob-property newgrob 'text) name)
> (set! (ly:grob-property newgrob 'direction) UP)))))
>
>%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
>--Gilles
>
>
>_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
