Alle leitereigenen Drei Vier Fünfklänge/kadenzen

VStufen = {
  s1\dynamictext "I" s\dynamictext "IV"
  s\dynamictext "V" s\dynamictext "I"
}

FStufen = {
  s1\dynamictext "I" s\dynamictext "vi"
  s\dynamictext "IV"
  s\dynamictext "V"  s\dynamictext "I"
}

vkad=\relative c' {
  < e g c >1 < f a c > < d g h > < e g c > \bar "|"
  < g c e > < a c f > <g h d > < g c e > \bar "|"
  < c, e g > < c f a > < h d g > < c e g > \bar ""
}

skad = \relative c'' {
  < g c e >1 < a c e > < a c f > <g h d > < g c e > \bar "|"
  < e g c > < e a c > < f a c > < d g h > < e g c > \bar "|"
  < c e g > < c e a > < c f a > < h d g > < c e g >
}

vli=\relative c { c f e c }
sli=\relative c { c a' f g c, }

KadI = \relative c' { < c e g c >1 }
Kadii = \relative c' { < d f a >1 }
Kadiii = \relative c' { < h e g h >1 }
Kadvi = \relative c' { < c e a c >1 }
Kadvii = \relative c' { < h d f h >1 }
KadV = \relative c' { < h d g h >1 }
KadIV = \relative c' { < c f a c >1 }
KadIj = \relative c' { < c e g h >1 }

VollK = {
  \KadI \KadIV \Kadvii \Kadiii
  \Kadvi \Kadii \KadV \KadI
}

cKadV = \chordmode { g1 }
cKadIV = \chordmode { f1 }
cKadii = \chordmode { d1:m }
cKadiii = \chordmode { e1:m }
cKadvi = \chordmode { a1:m }
cKadvii = \chordmode { h:dim }
cKadIj  = \chordmode { c1:maj7 }
cKadI = \chordmode { c1 }
cVollK = \chordmode {
  \cKadI \cKadIV \cKadvii \cKadiii
  \cKadvi \cKadii \cKadV \cKadI
}

KadI = \relative c' { < c e g h >1 }
KadIa = \relative c'' { < g h c e >1 }
Kadii = \relative c' { < d f a c >1 }
Kadiii = \relative c' { < e g h d >1 }
Kadvi = \relative c' { < e g a c >1 }
Kadvii = \relative c' { < f a h d >1 }
KadV = \relative c' { < d f g h >1 }
KadIV = \relative c' { < f a c e >1 }
KadIj = \relative c' { < c e g h >1 }

VollKj = {
  \KadIa \KadIV \Kadvii \Kadiii
  \Kadvi \Kadii \KadV \KadI
}

cKadV = \chordmode { g1:7 }
cKadIV = \chordmode { f1:maj7 }
cKadii = \chordmode { d1:m7 }
cKadiii = \chordmode { e1:m7 }
cKadvi = \chordmode { a1:m7 }
cKadvii = \chordmode { h:dim7 }
cKadIj  = \chordmode { c1:maj7 }
cKadI = \chordmode { c1:maj7 }
cVollKj = \chordmode {
  \cKadI \cKadIV \cKadvii \cKadiii
  \cKadvi \cKadii \cKadV \cKadI
}

KadI = \relative c'' { < a c e a >1 }
Kadii = \relative c'' { < h d f h >1 }
Kadiii = \relative c'' { < c e gis c >1 }
Kadvi = \relative c'' { < c f a c >1 }
Kadvii = \relative c'' { < h d gis h >1 }
KadV = \relative c'' { < h e gis h >1 }
KadIV = \relative c'' { < a d f a >1 }
KadIj = \relative c'' { < c e g h >1 }

VollKMoll = {
  \accidentalStyle forget
  \KadI \KadIV \Kadvii \Kadiii
  \Kadvi \Kadii \KadV \KadI
}

cKadV = \chordmode { e1 }
cKadIV = \chordmode { d1:m }
cKadii = \chordmode { h1:min }
cKadiii = \chordmode { c1:aug }
cKadvi = \chordmode { f1 }
cKadvii = \chordmode { gis:dim }
cKadIj  = \chordmode { c1:maj7 }
cKadI = \chordmode { a1:m }
cVollKMoll = \chordmode {
  \cKadI \cKadIV \cKadvii \cKadiii
  \cKadvi \cKadii \cKadV \cKadI
}

MollStufen = {
  s1\dynamictext "i"  s\dynamictext "iv"
  s\dynamictext "vii"  s\dynamictext "iii"
  s\dynamictext "VI"  s\dynamictext "ii"
  s\dynamictext "V"   s\dynamictext "i"
}

DurStufenr = {
  s1\dynamictext "I"  s\dynamictext "IV"
  s\dynamictext "vii"  s\dynamictext "iii"
  s\dynamictext "vi"  s\dynamictext "ii"
  s\dynamictext "V"  s\dynamictext "I"
}

kadenzen =
#(define-music-function ( p)
   (ly:pitch?)
   #{
     \new PianoStaff
     \with {
       instrumentName = \markup \fontsize #2 \override #'(font-features . ("smcp"))
       \center-column { "Kadenzen""3stufig" }
       shortInstrumentName = \markup \fontsize #2 \override #'(font-features . ("smcp"))
       \center-column { "Kadenzen""4stufig" }
       \consists "Bar_engraver"
     }
     <<
       \new Staff {
         \new Voice \transpose c $p {
           \key c \major \vkad \skad
           \VollK \VollKj
         }
         \new Voice \transpose a $p { \key c \major \VollKMoll }
       }
       \new Dynamics {
         \VStufen \VStufen \VStufen \bar ""
         \break
         \FStufen \FStufen \FStufen \bar ""
       }
       \new ChordNames {
         s1 * 12
         s1 * 15
         \transpose c $p { \cVollK \cVollKj }
         \transpose a $p \cVollKMoll
       }
       \new Staff \new Voice
       {
         \clef bass \transpose c $p
         {
           \key c \major  \vli \vli \vli \sli \sli \sli
           \set PianoStaff.shortInstrumentName = \markup \fontsize #2 \override #'(font-features . ("smcp"))
           \center-column { "Quintfall" }
           \transpose c c, { \key c \major \VollK }
           \set PianoStaff.shortInstrumentName = \markup \fontsize #2 \override #'(font-features . ("smcp"))
           \center-column { "Quintfall""Jazz" }
           \transpose c c,, \VollKj
         }
         \set PianoStaff.shortInstrumentName = \markup \fontsize #2 \override #'(font-features . ("smcp"))
         \center-column { "Quintfall""Moll" }
         \transpose a' $p \VollKMoll
       }
       \new Dynamics {
         \override Score.NonMusicalPaperColumn.page-break-permission = ##f
         \override Score.NonMusicalPaperColumn.line-break-permission = ##f
         s1 * 12
         s1 * 15
         \break
         \DurStufenr \bar ""
         \break
         \DurStufenr
         \bar "" \break
         \MollStufen
       }
     >>
   #}
   )

kadenz =
#(define-scheme-function (p)
   (ly:pitch?)
   (scorify-music (kadenzen p)))