What do you think about that as a first step:
(define-public (note-name->roman-markup pitch root)
"Return roman markup for PITCH relative to ROOT."
(make-line-markup
(list
(make-simple-markup
(vector-ref #("I" "II" "III" "IV" "V" "VI" "VII") (modulo (-
(ly:pitch-notename pitch) (ly:pitch-notename root)) 7) ))
(accidental->markup (ly:pitch-alteration pitch)))))
Best regards,
Johannes Asal
_______________________________________________
lilypond-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-devel
