Akkordliste/exceptions
Zur Navigation springen
Zur Suche springen
myflat = \markup \fontsize #-1 \flat
mysharp = \markup \fontsize #-2 \sharp
slashfive = \markup \combine 5 \override #'(thickness . 2) \draw-line #'(1 . 2)
chExceptionMusic = {
<c e g h>1-\markup { \fontsize #-6 " " "j" }
<c e g h d'>1-\markup { \fontsize #-6 " " "j" \super 9 }
<c e g h dis'>1-\markup { \fontsize #-6 " " "j" \super \vcenter { "7(" \mysharp "9)" } }
<c e g h d' a'>1-\markup { \fontsize #-6 " " "j" \super 13 }
<c e g b d' a'>1-\markup { \super 13 }
<c e g a d'>-\markup {
\super {
"6/9"
}
}
<c es g a d'>-\markup {
m \super 6/9
}
<c es ges heses>-\markup {
\fontsize #-6 " " dim \super 7
}
<c es ges b des'>-\markup \line {
m \super 7
\translate #'(-0.5 . 1) \vcenter
{
"(" \override #'(baseline-skip . 1)
\center-column
\fontsize #-4 { \concat { \myflat "5" } \concat { \myflat "9" } } ")"
}
}
<c es ges h>-\markup {
\fontsize #-6 " " dim \super maj7
}
<c es ges heses des'>-\markup {
\fontsize #-6 " " "dim" \super \concat { \myflat "9" }
}
<c es g b f'>-\markup {
m \super 7(add11)
}
<c es gis>-\markup {
m
\normal-size-super "+"
}
<c f g b>-\markup \super {
7
\normal-size-sub sus
}
<c f g b d'>-\markup \super {
9
\normal-size-sub sus
}
<c f g b d' a'>-\markup \super {
13
\normal-size-sub sus
}
<c e ges b>-\markup \super {
7 "(" \myflat "5)"
}
<c e ges b d'>-\markup \super {
9 "(" \myflat "5)"
}
<c e gis b>-\markup {
+ \super 7
}
<c e gis b d'>-\markup {
+ \super 9
}
<c e g b des'>-\markup \super {
7 "(" \myflat "9)"
}
<c e g b dis'>-\markup \super {
\vcenter { "7(" \mysharp "9)" }
}
<c e ges b des'>-\markup \line {
\super 7
\translate #'(-0.5 . 1) \vcenter
{
"(" \override #'(baseline-skip . 1)
\center-column
\fontsize #-4 { \concat { \myflat "9" } \concat { \myflat "5" } } ")"
}
}
<c e gis b dis'>-\markup {
+ \super \vcenter { "7(" \mysharp "9)" }
}
<c e gis b des'>-\markup {
+ \super \vcenter { "7(" \myflat "9)" }
}
<c e gis h >-\markup {
+ \super 7
}
<c e gis h d'>-\markup {
+ \super 9
}
<c e g b fis'>-\markup
\super \vcenter { "7(" \mysharp "11)" }
<c e g b d' fis'>-\markup
\super \vcenter { "9(" \mysharp "11)" }
<c e g b des' fis'>-\markup \line {
\super 7
\translate #'(-0.5 . 1) \vcenter
{
"(" \override #'(baseline-skip . 1)
\center-column
\fontsize #-4 { \concat { \mysharp "11" } \concat { \myflat "9" } } ")"
}
}
<c e ges b d' a'>-\markup
\super \vcenter { "13(" \myflat "5)" }
<c e g b d' fis' a'>-\markup
\super \vcenter { "13(" \mysharp "11)" }
<c e b f' a'>-\markup \line {
\super { 7 \slashed-digit #5 }
\translate #'(-0.5 . 2.5) \vcenter
{
"("
\override #'(baseline-skip . 1)
\left-column
\fontsize #-4 { add11 add13 } ")"
}
}
<c e g b f' a'>-\markup \line {
\super %\concat \general-align #Y #DOWN
{ 7 }
\translate #'(-0.5 . 2.5) \vcenter
{
"("
\override #'(baseline-skip . 1)
\left-column
\fontsize #-4 { add11 add13 } ")"
}
}
<c e f' a'>-\markup \line {
\super { \slashed-digit #5 }
\translate #'(-0.5 . 2.5) \vcenter
{
"("
\override #'(baseline-skip . 1)
\left-column
\fontsize #-4 { add11 add13 } ")"
}
}
}
chExceptions =
#(append
(sequential-music-to-chord-exceptions chExceptionMusic #t)
ignatzekExceptions)
myBlue = #(rgb-color (/ 22 255) (/ 22 255) (/ 92 255))
#(define ((chord-name->german-markup-text-alteration B-instead-of-Bb) pitch lowercase?)
(define (pitch-alteration-semitones pitch)
(inexact->exact (round (* (ly:pitch-alteration pitch) 2))))
(define (conditional-string-downcase str condition)
(if condition
(string-downcase str)
str))
(let* ((name (ly:pitch-notename pitch))
(alt-semitones (pitch-alteration-semitones pitch))
(n-a (if (member (cons name alt-semitones) `((6 . -1) (6 . -1)))
(cons 7 (+ (if B-instead-of-Bb 1 1) alt-semitones))
(cons name alt-semitones))))
(make-line-markup
(list
(make-simple-markup
(conditional-string-downcase
(vector-ref #("C" "D" "E" "F" "G" "A" "H" "B") (car n-a))
lowercase?))
(let ((alteration (/ (cdr n-a) 2)))
(cond
((and (equal? lowercase? #f) (= alteration FLAT) (= (car n-a) 7)) (make-simple-markup ""))
((and (= alteration FLAT) (or (= (car n-a) 5) (= (car n-a) 2) )) (make-simple-markup "s"))
((= alteration FLAT) (make-simple-markup "es"))
((and (= alteration DOUBLE-FLAT) (or (= (car n-a) 5)(= (car n-a) 2) )) (make-simple-markup "ses"))
((= alteration DOUBLE-FLAT) (make-simple-markup "eses"))
((= alteration SHARP) (make-simple-markup "is"))
((= alteration DOUBLE-SHARP) (make-simple-markup "isis"))
(else empty-markup)))))))
#(define germanChords (chord-name->german-markup-text-alteration #t))