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 [email protected] https://lists.gnu.org/mailman/listinfo/lilypond-user
