Re: Chords degree

[Carl Sorensen]

On 10/11/11 6:10 AM, "Stjepan Horvat" <address@hidden> wrote:

> Hello..thank you for your response..
> It's not quite what i wanted..
> I'm sending you an example of what i did in pdf format..
> 
> I'm making a church song book..So the problem in my (our) church is that we
> allways have to transpose becouse it is too high or too low..So i tought that
> i will write in one line chords..and in upper line Chords degree..so it would
> be easy to transpose whenever you need to...That was quite practical becose
> then i woud only need to write chords in one line and then in upper just
> transpose to C major and the degree would be flawless..Simple in my head..:)
> 
> Thanks..
> 
> 
> On Tue, Oct 11, 2011 at 11:14 AM, Robert Schmaus <address@hidden>


Here's a hack to generate what you want.  As written, it will only work as
long as your music is in the key of C.


\version "2.14"

#(define-public (note-name->roman-markup pitch lowercase?)
  "Return roman numeral pitch markup for @var{pitch}.
   NOTE: Only works in key of C."
  (make-line-markup
   (list
    (make-simple-markup
       (vector-ref #("I" "II" "III" "IV" "V" "VI" "VII") (ly:pitch-notename
pitch))))))


myChords = \chordmode {
  c1 d e f g a b
}

\score {
  <<
    \new ChordNames {
      \set chordRootNamer = #note-name->roman-markup
      \myChords
    }
   \new ChordNames {
      \myChords
   }
   \new Staff {
     \myChords
   }
  >>
}




HTH,

Carl