OK, I made it. I think I begin to understand scheme :-) #(define nhg (lambda (grob) (let* ((stil (ly:note-head::print grob)) (dur-log (ly:grob-property grob 'duration-log)) (nh-id-nr (if (>= dur-log 2) 2 1)) (new-note-head-stil (grob-interpret-markup grob (markup #:musicglyph (format #f "noteheads.u~adoThin" nh-id-nr))))) new-note-head-stil)))
_______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user