Hi Harm,
this is nice workaround, indeed.
But how can I modify it to have different glyph for each duration-log? The
original code was:
#(define nhg
(lambda (grob)
(if
(= 2
(ly:grob-property grob 'duration-log))
(begin
(let*
((stem
(ly:grob-object grob 'stem))
(stem-dir
(ly:grob-property stem 'direction))
(rot
(if
(= stem-dir 1) 0 180)))
(ly:grob-set-property! grob 'stencil
(grob-interpret-markup grob
(markup #:rotate rot #:musicglyph "noteheads.u2doThin"))))))
(if
(= 1
(ly:grob-property grob 'duration-log))
(begin
(let*
((stem
(ly:grob-object grob 'stem))
(stem-dir
(ly:grob-property stem 'direction))
(rot
(if
(= stem-dir 1) 0 180)))
(ly:grob-set-property! grob 'stencil
(grob-interpret-markup grob
(markup #:rotate rot #:musicglyph "noteheads.u1doThin"))))))))
\layout {
\context {
\Voice
\override NoteHead.stencil = #nhg
}
}
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
