Re: markup accidentals for a microtonal system

[Thomas Richter]

Hello Nike,

following your submission I extended Ekmelily to support now arbitrary markup (not only glyphs from an external font); see www.ekmelic-music.org/en/extra/ekmelily.htm (version 3.11).

Maybe this is a solution for you. It defines accidentals for eighth tones with glyphs from LilyPond's Emmentaler font and additional markup, and it also works for midi output.  It uses notenames defined in "ekmel-48.ily", but I could also define a new set of notenames with suffix "et" for eighth tones upward, however, I'm not sure how to name downward alterations.

\version "2.24.0"
\include "ekmel-48.ily"

arrow = \markup {
    \override #'(thickness . 1.45)
    \overlay {
        \draw-line #'(0.01 . -2)
        \draw-line #'(-0.3 . -0.7)
        \draw-line #'(0.3 . -0.7)
    }}

\ekmelicUserStyle myeighthnotation #`(
    (1/8 ,(markup #:translate '(0 . 0.4) arrow))
    (-1/8 ,(markup #:translate '(0 . 1.5) #:rotate 180 arrow))
    (1/4 ,(markup #:musicglyph "accidentals.sharp.slashslash.stem"))
    (-1/4 ,(markup #:musicglyph "accidentals.mirroredflat"))
    (3/8 ,(markup #:combine
        #:musicglyph "accidentals.sharp.slashslash.stem"
        #:translate '(0.35 . 2.5) arrow))
    (-3/8 ,(markup #:combine
        #:musicglyph "accidentals.mirroredflat"
        #:translate '(0.7 . 0) #:rotate 180 arrow))
    (1/2 ,(markup #:sharp))
    (-1/2 ,(markup #:flat))
    (5/8 ,(markup #:musicglyph "accidentals.sharp.arrowup"))
    (-5/8 ,(markup #:musicglyph "accidentals.flat.arrowdown"))
    (3/4 ,(markup #:musicglyph "accidentals.sharp.slashslash.stemstemstem"))
    (-3/4 ,(markup #:musicglyph "accidentals.mirroredflat.flat"))
    (7/8 ,(markup #:combine
        #:musicglyph "accidentals.sharp.slashslash.stemstemstem"
        #:translate '(1.24 . 2.5) arrow))
    (-7/8 ,(markup #:combine
        #:musicglyph "accidentals.mirroredflat.flat"
        #:translate '(0.8 . 0) #:rotate 180 arrow))
    (1 ,(markup #:doublesharp))
    (-1 ,(markup #:doubleflat))
)

\fixed c' {
    cil cih cisel cis cisil cisih cisisel cisis
    del deh desil des desel deseh desesil deses
}

Regards,
Thomas Richter