]> git.donarmstrong.com Git - lilypond.git/blob - input/regression/chords-funky-ignatzek.ly
(construct-chord): mark inversion as bass if
[lilypond.git] / input / regression / chords-funky-ignatzek.ly
1 \header {
2 texidoc = "Jazz chords, unusual combinations."
3 }
4
5 chs = \notes 
6 {
7 <<c d  f g>>1
8 <<c d  e f g>>1
9 <<c d  e  g>>1
10 <<c d es  g as>>1
11 <<c d e f g bes d' f'>>1
12 <<c d e f g bes c'  d' e'>>1
13 <<c e g bes c'  d' e'>>1
14 <<c e g a bes>>1
15 <<c e g a d'>>1
16 }
17
18
19 \score{
20     <
21         \context ChordNames {
22         #(set-chord-name-style 'ignatzek)
23         \chs
24     }
25         \context Staff \notes \transpose c c' { \chs }
26     >
27     \paper{
28         \translator { 
29             \ChordNamesContext
30             ChordName \override #'word-space = #1 
31         }
32     }
33 }