[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Suggestion for diatonic chordRootNames function
From: |
Johannes Asal |
Subject: |
Re: Suggestion for diatonic chordRootNames function |
Date: |
Tue, 10 Mar 2009 15:32:24 +0000 (UTC) |
User-agent: |
Loom/3.14 (http://gmane.org/) |
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