Lilypond Custom Notehead Stem Length Issue Example

lilypond-custom-notehead-stem-length-issue-example.ly

\version "2.24.4"

noteheadPath = #'(
    (M -0.0002496 0.72211449)
    (C -0.0002496 0.72211449 1.97353590702 2.2953056 2.3640189070199997 2.6311482)
    (C 2.702207 2.9220137 3.4315411 2.185533 3.2018007 1.9309118)
    (C 2.992187 1.718216 0.86545999 0 0.86658549 0)
    (C 0.86658549 0 2.9495123 -1.6717892 3.1937539999999998 -1.8947996)
    (C 3.4789443999999996 -2.1551992 2.6757286 -2.9105102 2.3691337999999997 -2.6413624)
    (C 2.0363879 -2.3492576 -0.00024960702000020873 -0.7241839400000003 -0.00024960702000020873 -0.7241839400000003)
    (C -0.00024960702000020873 -0.7241839400000003 -2.0773576 -2.3921776 -2.3542664 -2.6288903)
    (C -2.6800162 -2.9073542 -3.4856747 -2.2252259 -3.1710806 -1.8746829)
    (C -2.8731071 -1.6003893 -0.85877921 0 -0.85877921 0)
    (C -0.85877921 0 -2.7291507 1.5335068 -3.1767066 1.8870645)
    (C -3.5138102 2.1533677 -2.6598198 2.9041958 -2.3746102 2.6660029)
    (C -1.9557768 2.3162141 -0.0002496 0.72211449 -0.0002496 0.72211449)
    (Z)
)

myNotehead = {
    \override NoteHead.stencil = #ly:text-interface::print
    \override NoteHead.text =
        \markup {
            \scale #'(0.2 . 0.2)
            \override #'(filled . #t)
            \path #0 #noteheadPath
        }
}

{
    \myNotehead g' a' b' c'' |
    \xNote g' \xNote a' \xNote b' \xNote c'' |
}