Am Mi., 9. Jan. 2019 um 23:38 Uhr schrieb Gloops <yaglo...@yahoo.fr>: > > Thank you very much Harm, it works very well now!!! > Musically > Gilles
Hi Gilles, glad you like it. Though, here one improvement: Settings for 'font-series and 'font-family need to be done _before_ 'stencil. I.e.: #(define Ez_numbers_engraver_harm (make-engraver (acknowledgers ((note-head-interface engraver grob source-engraver) (let* ((context (ly:translator-context engraver)) (tonic-pitch (ly:context-property context 'tonic)) (tonic-name (ly:pitch-notename tonic-pitch))) (if (grob::has-interface grob 'ambitus-interface) (let* ((details (ly:grob-property grob 'details)) (ez-numbers (assoc-get 'ez-numbers details #f))) (if ez-numbers (ly:grob-set-property! grob 'after-line-breaking (lambda (grob) (let* ((grob-pitch (ly:event-property (event-cause grob) 'pitch)) (grob-name (ly:pitch-notename grob-pitch)) (delta (modulo (- grob-name tonic-name) 7)) (note-names (make-vector 7 (number->string (1+ delta))))) (ly:grob-set-property! grob 'note-names note-names) (ly:grob-set-property! grob 'font-family 'sans) (ly:grob-set-property! grob 'font-series 'bold) (ly:grob-set-property! grob 'stencil (note-head::brew-ez-stencil grob))))))) (let* ((grob-pitch (ly:event-property (event-cause grob) 'pitch)) (grob-name (ly:pitch-notename grob-pitch)) (delta (modulo (- grob-name tonic-name) 7)) (note-names (make-vector 7 (number->string (1+ delta))))) (ly:grob-set-property! grob 'note-names note-names)))))))) Cheers, Harm _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user